From: Andreas Neiser Date: Thu, 18 Jun 2015 08:37:24 +0000 (+0200) Subject: Little change to get.pl when used on command line X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=4d37a18becfa17971ddcd35dbb7993006cb5da97;p=daqtools.git Little change to get.pl when used on command line --- diff --git a/xml-db/get.pl b/xml-db/get.pl index 8ceaf34..98447cb 100755 --- a/xml-db/get.pl +++ b/xml-db/get.pl @@ -3,10 +3,9 @@ use HADES::TrbNet; use Storable qw(lock_store lock_retrieve); 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'}), CGI::Carp => qw(fatalsToBrowser); use if (!defined $ENV{'QUERY_STRING'}), warnings; use if (!defined $ENV{'QUERY_STRING'}), Pod::Usage; use if (!defined $ENV{'QUERY_STRING'}), Text::TabularDisplay;