diff options
| author | Perl 5 Porters <perl5-porters.nicoh.com> | 1996-01-01 23:10:37 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera.lafayette.edu> | 1996-01-01 23:10:37 +0000 |
| commit | 6f48387a45abfd82047243df8cef453f08b23648 (patch) | |
| tree | 27ed51fae90a83877c927c3ddde5310c2dd1c29a | |
| parent | 69e00e79faf95f0f669f6ee0f92c3b03d9174cff (diff) | |
| download | perl-6f48387a45abfd82047243df8cef453f08b23648.tar.gz | |
A patch from Tim Bunce (?)
| -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 |