diff options
Diffstat (limited to 'lib/diagnostics.pm')
| -rwxr-xr-x | lib/diagnostics.pm | 3 |
1 files changed, 2 insertions, 1 deletions
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 |