From ff040766daf5443a7498eefd3551058078376b8b Mon Sep 17 00:00:00 2001 From: Jan Michel Date: Thu, 25 Aug 2016 17:12:50 +0200 Subject: [PATCH] Suppress 'when' warnings in get.pl --- xml-db/get.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/xml-db/get.pl b/xml-db/get.pl index 98447cb..52a4cb2 100755 --- a/xml-db/get.pl +++ b/xml-db/get.pl @@ -4,7 +4,6 @@ use Storable qw(lock_store lock_retrieve); use feature "switch"; use Time::HiRes qw( time usleep ); -no if $] >= 5.017011, warnings => 'experimental::smartmatch'; use if (defined $ENV{'QUERY_STRING'}), CGI::Carp => qw(fatalsToBrowser); use if (!defined $ENV{'QUERY_STRING'}), warnings; use if (!defined $ENV{'QUERY_STRING'}), Pod::Usage; @@ -12,6 +11,7 @@ use if (!defined $ENV{'QUERY_STRING'}), Text::TabularDisplay; use if (!defined $ENV{'QUERY_STRING'}), Data::Dumper; use if (!defined $ENV{'QUERY_STRING'}), Data::TreeDumper; use if (!defined $ENV{'QUERY_STRING'}), Getopt::Long; +no warnings 'experimental::smartmatch'; # use Data::TreeDumper; use Data::Dumper; -- 2.43.0