From: Jan Michel <j.michel@gsi.de>
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;