From 80dd9a688f9c3f678b1311208a9045d4c76f4676 Mon Sep 17 00:00:00 2001
From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Wed, 13 Apr 2005 14:24:58 +0000
Subject: [PATCH] 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
---
 src/perlmods/OpenSRF/Application.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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