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 <arne_f@ipfire.org>
This commit is contained in:
Arne Fitzenreiter
2019-08-16 12:21:26 +02:00
parent 348cc0ddcd
commit 5653e55107
7 changed files with 8 additions and 0 deletions

View File

@@ -20,6 +20,8 @@
###############################################################################
use strict;
use experimental 'smartmatch';
no warnings 'uninitialized';
package fwlib;

View File

@@ -20,6 +20,7 @@
###############################################################################
use strict;
use experimental 'smartmatch';
require '/var/ipfire/general-functions.pl';
require "${General::swroot}/lang.pl";

View File

@@ -20,6 +20,7 @@
###############################################################################
use strict;
use experimental 'smartmatch';
use Net::IPv4Addr qw( :all );
use Switch;

View File

@@ -20,6 +20,7 @@
###############################################################################
use strict;
use experimental 'smartmatch';
# enable only the following on debugging purpose
#use warnings;

View File

@@ -20,6 +20,7 @@
###############################################################################
use strict;
use ecperimental 'smartmatch';
# enable only the following on debugging purpose
#use warnings;

View File

@@ -23,6 +23,7 @@ use strict;
use Sort::Naturally;
use utf8;
use feature 'unicode_strings';
use experimental 'smartmatch';
no warnings 'uninitialized';

View File

@@ -20,6 +20,7 @@
###############################################################################
use strict;
use experimental 'smartmatch';
# enable only the following on debugging purpose
#use warnings;