This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Carp.pm localise $SIG{__DIE__} before eval
[perl5.git] / dist / Carp / lib / Carp.pm
index cd9eb87..c08af19 100644 (file)
@@ -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;
         };