From 92298fdf7ed88fc2021d363832087ca301bb6a6b Mon Sep 17 00:00:00 2001
From: Andreas Neiser <neiser@kph.uni-mainz.de>
Date: Thu, 18 Jun 2015 15:19:54 +0200
Subject: [PATCH] same change for put.pl

---
 xml-db/put.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
2.43.0