diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-12-26 16:56:14 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-26 16:56:14 -0800 |
| commit | 2c39375ffb1105696abafbdb124db97d3fc608d0 (patch) | |
| tree | a24e9bc78d9fa41d81ca8ea124e9606f770043d9 /lib/diagnostics.pm | |
| parent | 2dde04676ae62e4ba4bd87d6749bae66d1bed890 (diff) | |
| download | perl-2c39375ffb1105696abafbdb124db97d3fc608d0.tar.gz | |
Remove unnecessary code from diagnostics.pm
As of commit 58618f23, it has been setting %CarpInternal, so
setting $CarpLevel is unnecessary.
Diffstat (limited to 'lib/diagnostics.pm')
| -rw-r--r-- | lib/diagnostics.pm | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm index 6c166a3b93..2421c6ffdf 100644 --- a/lib/diagnostics.pm +++ b/lib/diagnostics.pm @@ -573,9 +573,6 @@ sub death_trap { # traps. $SIG{__DIE__} = $SIG{__WARN__} = ''; - # Have carp skip over death_trap() when showing the stack trace. - local($Carp::CarpLevel) = 1; - die Carp::longmess("__diagnostics__") =~ s/^__diagnostics__.*?line \d+\.?\n/ "Uncaught exception from user code:\n\t$exception" |