From: Jan Michel <j.michel@gsi.de>
Date: Thu, 25 Aug 2016 15:12:50 +0000 (+0200)
Subject: Suppress 'when' warnings in get.pl
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=ff040766daf5443a7498eefd3551058078376b8b;p=daqtools.git

Suppress 'when' warnings in get.pl
---

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;