rolling back useless logging change from earlier

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@422 9efc2488-bf62-4759-914b-345cdb29e865

diff --git a/src/perlmods/OpenSRF/Application.pm b/src/perlmods/OpenSRF/Application.pm
index 0688d01..128a947 100644 (file)
--- 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"
                                        )
                                );
                        };