From 79891858459339b8c3500c1a2b5a0e672b236642 Mon Sep 17 00:00:00 2001
From: Jan Michel <j.michel@gsi.de>
Date: Thu, 17 Oct 2013 19:14:25 +0200
Subject: [PATCH] bugfix

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

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