bugfix

diff --git a/xml-db/get.pl b/xml-db/get.pl
index 02cd1daca3bb278b67eda8148fd535a028ae6dee..1743b1fb5dbf67a00674612031621879db2db974 100755 (executable)
--- 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;