From 6f48387a45abfd82047243df8cef453f08b23648 Mon Sep 17 00:00:00 2001
From: Perl 5 Porters <perl5-porters.nicoh.com>
Date: Mon, 1 Jan 1996 23:10:37 +0000
Subject: A patch from Tim Bunce (?)

---
 lib/diagnostics.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm
index 6016d961d8..f40c51e030 100755
--- a/lib/diagnostics.pm
+++ b/lib/diagnostics.pm
@@ -415,7 +415,8 @@ sub death_trap {
     if (caller eq $WHOAMI) { print STDERR "INTERNAL EXCEPTION: $exception"; } 
     &$olddie if defined $olddie and $olddie and $olddie ne \&death_trap;
     $SIG{__DIE__} = $SIG{__WARN__} = '';
-    confess "Uncaught exception from user code:\n\t$exception    Bailing out";
+    local($Carp::CarpLevel) = 1;
+    confess "Uncaught exception from user code:\n\t$exception";
 	# up we go; where we stop, nobody knows, but i think we die now
 	# but i'm deeply afraid of the &$olddie guy reraising and us getting
 	# into an indirect recursion loop
-- 
cgit v1.2.1