From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Thu, 17 Mar 2005 18:32:03 +0000 (+0000)
Subject: added check to make sure log line didn't kill things
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=53191d0af7cac79e5c31c054d1f12c942b1d5dc6;p=opensrf%2Fbjwebb.git

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

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