From 4d37a18becfa17971ddcd35dbb7993006cb5da97 Mon Sep 17 00:00:00 2001
From: Andreas Neiser <neiser@kph.uni-mainz.de>
Date: Thu, 18 Jun 2015 10:37:24 +0200
Subject: [PATCH] Little change to get.pl when used on command line

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

diff --git a/xml-db/get.pl b/xml-db/get.pl
index 8ceaf34..98447cb 100755
--- a/xml-db/get.pl
+++ b/xml-db/get.pl
@@ -3,10 +3,9 @@ use HADES::TrbNet;
 use Storable qw(lock_store lock_retrieve);
 use feature "switch";
 use Time::HiRes qw( time usleep );
-use CGI::Carp qw(fatalsToBrowser);
 
 no if $] >= 5.017011, warnings => 'experimental::smartmatch';
-
+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