From: Andreas Neiser <neiser@kph.uni-mainz.de>
Date: Thu, 18 Jun 2015 13:19:54 +0000 (+0200)
Subject: same change for put.pl
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=92298fdf7ed88fc2021d363832087ca301bb6a6b;p=daqtools.git

same change for put.pl
---

diff --git a/xml-db/put.pl b/xml-db/put.pl
index 95f2fec..e4b0f02 100755
--- a/xml-db/put.pl
+++ b/xml-db/put.pl
@@ -4,8 +4,8 @@ use HADES::TrbNet;
 use Storable qw(lock_retrieve);
 use Time::HiRes qw( usleep );
 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;