From 53191d0af7cac79e5c31c054d1f12c942b1d5dc6 Mon Sep 17 00:00:00 2001
From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Thu, 17 Mar 2005 18:32:03 +0000
Subject: [PATCH] added check to make sure log line didn't kill things

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@243 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perlmods/OpenSRF/Application.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/perlmods/OpenSRF/Application.pm b/src/perlmods/OpenSRF/Application.pm
index ca3230c..34b41bd 100644
--- a/src/perlmods/OpenSRF/Application.pm
+++ b/src/perlmods/OpenSRF/Application.pm
@@ -387,7 +387,10 @@ sub run {
 			$resp = $code->($self, $req, @params);
 		} catch Error with {
 			my $e = shift;
-			$log->error("Sub $$self{package}::$$self{method} DIED!!!\n\t$e\n".Carp::longmess(), ERROR);
+			warn "Caught Error in Application: $e\n";
+			if( ref($self) eq 'HASH') {
+				$log->error("Sub $$self{package}::$$self{method} DIED!!!\n\t$e\n", ERROR);
+			}
 			die $e;
 		};
 
-- 
2.11.0