getting "can't call toString on unblessed reference" in the commented out log line

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@276 9efc2488-bf62-4759-914b-345cdb29e865

diff --git a/src/perlmods/OpenSRF/Application.pm b/src/perlmods/OpenSRF/Application.pm
index 65cd9df..64493aa 100644 (file)
--- a/src/perlmods/OpenSRF/Application.pm
+++ b/src/perlmods/OpenSRF/Application.pm
@@ -184,7 +184,7 @@ sub handler {
 
                                        $appreq = $aref->[0];   
                                        if( ref( $response ) ) {
-                                               $log->debug( "Calling respond_complete: ". $response->toString(), INTERNAL );
+                                               #$log->debug( "Calling respond_complete: ". $response->toString(), INTERNAL );
                                                $appreq->respond_complete( $response );
                                        } else {
                                                $appreq->status( OpenSRF::DomainObject::oilsConnectStatus->new(
@@ -397,6 +397,11 @@ sub run {
                        my $e = shift;
                        $err = $e;
                        warn "Caught Error in Application: $e\n";
+
+                       if( UNIVERSAL::isa($e,"Error")) {
+                               warn "Exception is:\n " . $e->stringify() . "\n";
+                       }
+
                        if( ref($self) eq 'HASH') {
                                warn $self;
                                $log->error("Sub $$self{package}::$$self{method} DIED!!!\n\t$e\n", ERROR);