diff options
| -rw-r--r-- | lib/ASM/Classes.pm | 1 | ||||
| -rw-r--r-- | lib/ASM/Commander.pm | 1 | ||||
| -rw-r--r-- | lib/ASM/DB.pm | 1 | ||||
| -rw-r--r-- | lib/ASM/Event.pm | 1 | ||||
| -rw-r--r-- | lib/ASM/Fifo.pm | 1 | ||||
| -rw-r--r-- | lib/ASM/Inspect.pm | 1 | ||||
| -rw-r--r-- | lib/ASM/Log.pm | 1 | ||||
| -rw-r--r-- | lib/ASM/Services.pm | 1 | ||||
| -rw-r--r-- | lib/ASM/Util.pm | 1 | ||||
| -rw-r--r-- | lib/ASM/XML.pm | 1 |
10 files changed, 10 insertions, 0 deletions
diff --git a/lib/ASM/Classes.pm b/lib/ASM/Classes.pm index 2cd9793..17f6bdb 100644 --- a/lib/ASM/Classes.pm +++ b/lib/ASM/Classes.pm @@ -5,6 +5,7 @@ use warnings; use Text::LevenshteinXS qw(distance); use Data::Dumper; use Regexp::Wildcards; +no if $] >= 5.017011, warnings => 'experimental::smartmatch'; my %sf = (); diff --git a/lib/ASM/Commander.pm b/lib/ASM/Commander.pm index c85e46b..1ae2700 100644 --- a/lib/ASM/Commander.pm +++ b/lib/ASM/Commander.pm @@ -7,6 +7,7 @@ use IO::All; use POSIX qw(strftime); use Data::Dumper; use URI::Escape; +no if $] >= 5.017011, warnings => 'experimental::smartmatch'; sub new { diff --git a/lib/ASM/DB.pm b/lib/ASM/DB.pm index 212cc92..7735fbb 100644 --- a/lib/ASM/DB.pm +++ b/lib/ASM/DB.pm @@ -5,6 +5,7 @@ use warnings; use strict; use DBI; use Data::Dumper; +no if $] >= 5.017011, warnings => 'experimental::smartmatch'; sub new { my $module = shift; diff --git a/lib/ASM/Event.pm b/lib/ASM/Event.pm index 525bd9d..7f7ff3c 100644 --- a/lib/ASM/Event.pm +++ b/lib/ASM/Event.pm @@ -9,6 +9,7 @@ use POSIX qw(strftime); use Regexp::Wildcards; use HTTP::Request; use Array::Utils qw(:all); +no if $] >= 5.017011, warnings => 'experimental::smartmatch'; sub new { diff --git a/lib/ASM/Fifo.pm b/lib/ASM/Fifo.pm index cb4f2cb..8505d70 100644 --- a/lib/ASM/Fifo.pm +++ b/lib/ASM/Fifo.pm @@ -5,6 +5,7 @@ use warnings; use strict; use POSIX qw(mkfifo); use Fcntl; +no if $] >= 5.017011, warnings => 'experimental::smartmatch'; sub new { diff --git a/lib/ASM/Inspect.pm b/lib/ASM/Inspect.pm index 7f4aa7f..5d8b8e3 100644 --- a/lib/ASM/Inspect.pm +++ b/lib/ASM/Inspect.pm @@ -5,6 +5,7 @@ use strict; use Data::Dumper; use String::Interpolate qw(interpolate); +no if $] >= 5.017011, warnings => 'experimental::smartmatch'; %::ignored = (); sub new diff --git a/lib/ASM/Log.pm b/lib/ASM/Log.pm index 656c88a..e922d88 100644 --- a/lib/ASM/Log.pm +++ b/lib/ASM/Log.pm @@ -5,6 +5,7 @@ use warnings; use strict; use POSIX qw(strftime); +no if $] >= 5.017011, warnings => 'experimental::smartmatch'; sub new { diff --git a/lib/ASM/Services.pm b/lib/ASM/Services.pm index 7be0c82..c64e0b1 100644 --- a/lib/ASM/Services.pm +++ b/lib/ASM/Services.pm @@ -5,6 +5,7 @@ use strict; use Data::Dumper; $Data::Dumper::Useqq=1; +no if $] >= 5.017011, warnings => 'experimental::smartmatch'; sub new { diff --git a/lib/ASM/Util.pm b/lib/ASM/Util.pm index c23fbf6..ed630ed 100644 --- a/lib/ASM/Util.pm +++ b/lib/ASM/Util.pm @@ -7,6 +7,7 @@ use strict; use Term::ANSIColor qw (:constants); use Socket qw( inet_aton inet_ntoa ); use Data::Dumper; +no if $] >= 5.017011, warnings => 'experimental::smartmatch'; %::RISKS = ( diff --git a/lib/ASM/XML.pm b/lib/ASM/XML.pm index 092e570..15ec811 100644 --- a/lib/ASM/XML.pm +++ b/lib/ASM/XML.pm @@ -5,6 +5,7 @@ use strict; use XML::Simple qw(:strict); use IO::All; +no if $] >= 5.017011, warnings => 'experimental::smartmatch'; $::xs1 = XML::Simple->new( KeyAttr => ['id'], Cache => [ qw/memcopy/ ]); |