diff options
| -rw-r--r-- | dist/Carp/lib/Carp.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/dist/Carp/lib/Carp.pm b/dist/Carp/lib/Carp.pm index cd9eb870d0..c08af19b0f 100644 --- a/dist/Carp/lib/Carp.pm +++ b/dist/Carp/lib/Carp.pm @@ -289,6 +289,7 @@ sub ret_backtrace { $mess = "$err at $i{file} line $i{line}$tid_msg"; if( defined $. ) { local $@ = ''; + local $SIG{__DIE__}; eval { die; }; |