From d1756d4c429e2409ae6a939cd76099d2e4c5cf1a Mon Sep 17 00:00:00 2001 From: miker Date: Mon, 25 Jul 2005 01:57:13 +0000 Subject: [PATCH] rolling back useless logging change from earlier git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@422 9efc2488-bf62-4759-914b-345cdb29e865 --- src/perlmods/OpenSRF/Application.pm | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/src/perlmods/OpenSRF/Application.pm b/src/perlmods/OpenSRF/Application.pm index 0688d01..128a947 100644 --- a/src/perlmods/OpenSRF/Application.pm +++ b/src/perlmods/OpenSRF/Application.pm @@ -152,20 +152,12 @@ sub handler { $e = $e->stringify(); } my $sess_id = $session->session_id; - - my $stack = "-=-=-=-=-=- Stack Backtrace (5) -=-=-=-=-=-\n"; - for my $lvl ( 1 .. 5 ) { - my ($package, $filename, $line, $subroutine, $hasargs, - $wantarray, $evaltext, $is_require, $hints, $bitmask) = caller($lvl); - $stack .= "PKG[$package]|FILE[$filename]|LINE[$line]|SUB[$subroutine]\n"; - } - $session->status( OpenSRF::DomainObject::oilsMethodException->new( statusCode => STATUS_INTERNALSERVERERROR(), status => " *** Call to [$method_name] failed for session ". "[$sess_id], thread trace ". - "[".$appreq->threadTrace."]:\n$e\n\n$stack" + "[".$appreq->threadTrace."]:\n$e\n" ) ); }; -- 2.11.0