]> git.ipfire.org Git - ipfire-2.x.git/commitdiff
perl-scripts: suppress smartmatch experimental warning
authorArne Fitzenreiter <arne_f@ipfire.org>
Fri, 16 Aug 2019 10:21:26 +0000 (12:21 +0200)
committerArne Fitzenreiter <arne_f@ipfire.org>
Fri, 16 Aug 2019 10:21:26 +0000 (12:21 +0200)
smartmatch was introduced with perl 5.10 and was marked
as experimental in 5.14

Signed-off-by: Arne Fitzenreiter <arne_f@ipfire.org>
config/firewall/firewall-lib.pl
config/firewall/rules.pl
html/cgi-bin/connections.cgi
html/cgi-bin/ddns.cgi
html/cgi-bin/dhcp.cgi
html/cgi-bin/firewall.cgi
html/cgi-bin/netexternal.cgi

index 118744fd6e60b831a21305e2a943b91769845585..e4de219a4494c946eb127de10ed274dac8ed3c55 100644 (file)
@@ -20,6 +20,8 @@
 ###############################################################################
 
 use strict;
+use experimental 'smartmatch';
+
 no warnings 'uninitialized';
 
 package fwlib;
index d2971566c881da1738f334a4dcbd0b9f50c52084..78e3e1e9175db7704c797c14bf2a8793da397e96 100644 (file)
@@ -20,6 +20,7 @@
 ###############################################################################
 
 use strict;
+use experimental 'smartmatch';
 
 require '/var/ipfire/general-functions.pl';
 require "${General::swroot}/lang.pl";
index e9e9e335cfe4356b8509b5a79b1f482562e51e6c..7399fea3cf395ffb181e849e9cfaff21dcc2ee2e 100644 (file)
@@ -20,6 +20,7 @@
 ###############################################################################
 
 use strict;
+use experimental 'smartmatch';
 
 use Net::IPv4Addr qw( :all );
 use Switch;
index 73a41d903fae41b47024f38ce18237adca36556c..715c3729011ba9f53008ff61355f699b422b889c 100644 (file)
@@ -20,6 +20,7 @@
 ###############################################################################
 
 use strict;
+use experimental 'smartmatch';
 
 # enable only the following on debugging purpose
 #use warnings;
index 19c55eb6d4c1c0722fd15ee56c75bdb7fe77626c..cefcf82ff41041be982fa91b430d78da40aea9e1 100644 (file)
@@ -20,6 +20,7 @@
 ###############################################################################
 
 use strict;
+use ecperimental 'smartmatch';
 
 # enable only the following on debugging purpose
 #use warnings;
index 45f7403222f2774ed906a95ee1fca34e062f242f..f54bf6f6c77a9b02e40a4ade84e33d260513afa6 100644 (file)
@@ -23,6 +23,7 @@ use strict;
 use Sort::Naturally;
 use utf8;
 use feature 'unicode_strings';
+use experimental 'smartmatch';
 
 no warnings 'uninitialized';
 
index 4393393e081f07326de37e0b7648c2c2d59683c4..8f29eb8a23a088a17ceb1610fcd16812c5d96350 100644 (file)
@@ -20,6 +20,7 @@
 ###############################################################################
 
 use strict;
+use experimental 'smartmatch';
 
 # enable only the following on debugging purpose
 #use warnings;