From 1b2b9eb680d5de30b128d552da2efa0005a0e92e Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 23 Oct 2010 00:03:49 +0200
Subject: [PATCH] better error reporting

---
 server.pl | 2 ++
 1 file changed, 2 insertions(+)

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 = {};
-- 
2.20.1