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 118744fd6e..e4de219a44 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 d2971566c8..78e3e1e917 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 e9e9e335cf..7399fea3cf 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 73a41d903f..715c372901 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 19c55eb6d4..cefcf82ff4 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 45f7403222..f54bf6f6c7 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 4393393e08..8f29eb8a23 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; -- 2.39.2