From: Jan Michel Date: Thu, 17 Oct 2013 17:14:25 +0000 (+0200) Subject: bugfix X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=79891858459339b8c3500c1a2b5a0e672b236642;p=daqtools.git bugfix --- diff --git a/xml-db/get.pl b/xml-db/get.pl index 02cd1da..1743b1f 100755 --- a/xml-db/get.pl +++ b/xml-db/get.pl @@ -2,8 +2,8 @@ use HADES::TrbNet; use Storable qw(lock_retrieve); use feature "switch"; -use CGI::Carp qw(fatalsToBrowser); +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;