dump whole error structure instead of HASH

dpavlin · Feb 12, 2013 · 37c6085 · 37c6085
1 parent 0cf61cc
commit 37c6085
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/server.pl b/server.pl
@@ -64,7 +64,7 @@ sub SearchHandle {
 diag "using $module for $database ", Dumper( $from );
 
 	eval { $query = $rpn->{query}->render( $from->usemap ); };
-	warn "ERROR: $@" if $@;
+	warn "ERROR: ", Dumper($@) if $@;
     if ( $@ && ref($@) ) {    ## Did someone/something report any errors?
         $self->{ERR_CODE} = $@->{errcode};
         $self->{ERR_STR}  = $@->{errstr};