From ae07544596577288cb932aaa5a06aa19e57c40c7 Mon Sep 17 00:00:00 2001 From: Hades DAQ Date: Sun, 25 May 2014 14:52:01 +0200 Subject: [PATCH] get.pl update --- xml-db/get.pl | 2 ++ 1 file changed, 2 insertions(+) diff --git a/xml-db/get.pl b/xml-db/get.pl index 5cbfacb..8be211c 100755 --- a/xml-db/get.pl +++ b/xml-db/get.pl @@ -5,6 +5,8 @@ use feature "switch"; use Time::HiRes qw( time usleep ); use CGI::Carp qw(fatalsToBrowser); +no if $] >= 5.017011, warnings => 'experimental::smartmatch'; + use if (!defined $ENV{'QUERY_STRING'}), warnings; use if (!defined $ENV{'QUERY_STRING'}), Pod::Usage; use if (!defined $ENV{'QUERY_STRING'}), Text::TabularDisplay; -- 2.43.0