get.pl update

diff --git a/xml-db/get.pl b/xml-db/get.pl
index 5cbfacb5fa345cfbd5606f9eadd650a81f74d125..8be211cce8affce9b7c863e97a0ba93b26c9e377 100755 (executable)
--- 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;