Really disable smartmatch warning

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/ ]);