From 5653e55107d095322e4412b0bc2bcda6663c7a43 Mon Sep 17 00:00:00 2001 From: Arne Fitzenreiter Date: Fri, 16 Aug 2019 12:21:26 +0200 Subject: [PATCH] perl-scripts: suppress smartmatch experimental warning smartmatch was introduced with perl 5.10 and was marked as experimental in 5.14 Signed-off-by: Arne Fitzenreiter --- config/firewall/firewall-lib.pl | 2 ++ config/firewall/rules.pl | 1 + html/cgi-bin/connections.cgi | 1 + html/cgi-bin/ddns.cgi | 1 + html/cgi-bin/dhcp.cgi | 1 + html/cgi-bin/firewall.cgi | 1 + html/cgi-bin/netexternal.cgi | 1 + 7 files changed, 8 insertions(+) diff --git a/config/firewall/firewall-lib.pl b/config/firewall/firewall-lib.pl index 118744fd6..e4de219a4 100644 --- a/config/firewall/firewall-lib.pl +++ b/config/firewall/firewall-lib.pl @@ -20,6 +20,8 @@ ############################################################################### use strict; +use experimental 'smartmatch'; + no warnings 'uninitialized'; package fwlib; diff --git a/config/firewall/rules.pl b/config/firewall/rules.pl index d2971566c..78e3e1e91 100644 --- a/config/firewall/rules.pl +++ b/config/firewall/rules.pl @@ -20,6 +20,7 @@ ############################################################################### use strict; +use experimental 'smartmatch'; require '/var/ipfire/general-functions.pl'; require "${General::swroot}/lang.pl"; diff --git a/html/cgi-bin/connections.cgi b/html/cgi-bin/connections.cgi index e9e9e335c..7399fea3c 100644 --- a/html/cgi-bin/connections.cgi +++ b/html/cgi-bin/connections.cgi @@ -20,6 +20,7 @@ ############################################################################### use strict; +use experimental 'smartmatch'; use Net::IPv4Addr qw( :all ); use Switch; diff --git a/html/cgi-bin/ddns.cgi b/html/cgi-bin/ddns.cgi index 73a41d903..715c37290 100644 --- a/html/cgi-bin/ddns.cgi +++ b/html/cgi-bin/ddns.cgi @@ -20,6 +20,7 @@ ############################################################################### use strict; +use experimental 'smartmatch'; # enable only the following on debugging purpose #use warnings; diff --git a/html/cgi-bin/dhcp.cgi b/html/cgi-bin/dhcp.cgi index 19c55eb6d..cefcf82ff 100644 --- a/html/cgi-bin/dhcp.cgi +++ b/html/cgi-bin/dhcp.cgi @@ -20,6 +20,7 @@ ############################################################################### use strict; +use ecperimental 'smartmatch'; # enable only the following on debugging purpose #use warnings; diff --git a/html/cgi-bin/firewall.cgi b/html/cgi-bin/firewall.cgi index 45f740322..f54bf6f6c 100644 --- a/html/cgi-bin/firewall.cgi +++ b/html/cgi-bin/firewall.cgi @@ -23,6 +23,7 @@ use strict; use Sort::Naturally; use utf8; use feature 'unicode_strings'; +use experimental 'smartmatch'; no warnings 'uninitialized'; diff --git a/html/cgi-bin/netexternal.cgi b/html/cgi-bin/netexternal.cgi index 4393393e0..8f29eb8a2 100644 --- a/html/cgi-bin/netexternal.cgi +++ b/html/cgi-bin/netexternal.cgi @@ -20,6 +20,7 @@ ############################################################################### use strict; +use experimental 'smartmatch'; # enable only the following on debugging purpose #use warnings;