From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 22 Oct 2010 22:03:49 +0000 (+0200)
Subject: better error reporting
X-Git-Url: http://git.rot13.org/?p=Biblio-Z3950.git;a=commitdiff_plain;h=1b2b9eb680d5de30b128d552da2efa0005a0e92e

better error reporting
---

diff --git a/server.pl b/server.pl
index 3d5850e..b19f1e4 100755
--- a/server.pl
+++ b/server.pl
@@ -36,6 +36,7 @@ diag "SearchHandle ",Dumper($this);
     my $query;
 
     eval { $query = $rpn->{query}->render(); };
+	warn "ERROR: $@" if $@;
     if ( $@ && ref($@) ) {    ## Did someone/something report any errors?
         $this->{ERR_CODE} = $@->{errcode};
         $this->{ERR_STR}  = $@->{errstr};
@@ -171,6 +172,7 @@ print "render ", dump($this);
 my $from = 'COBISS';
 
 my $usemap = eval "${from}::usemap;";
+die $@ if $@;
 warn "# $from usermap ",dump($usemap);
 
     my $attributes = {};