From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Wed, 13 Apr 2005 14:24:58 +0000 (+0000)
Subject: getting "can't call toString on unblessed reference" in the commented out log line
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=80dd9a688f9c3f678b1311208a9045d4c76f4676;p=opensrf%2Fbjwebb.git

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
--- 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);