same change for put.pl

diff --git a/xml-db/put.pl b/xml-db/put.pl
index 95f2fec39741140b1c9bc32f86c22130bacfd11a..e4b0f02b03d08b9040ab2399fd2e278a070c9623 100755 (executable)
--- 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;