This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[cpan#100183] Add missing "<FH> chunk #" phrase to Carp messages
[perl5.git] / dist / Carp / lib / Carp.pm
index 92f8866..8e61752 100644 (file)
@@ -87,7 +87,7 @@ BEGIN {
     }
 }
 
     }
 }
 
-our $VERSION = '1.40';
+our $VERSION = '1.41';
 $VERSION =~ tr/_//d;
 
 our $MaxEvalLen = 0;
 $VERSION =~ tr/_//d;
 
 our $MaxEvalLen = 0;
@@ -474,7 +474,7 @@ sub ret_backtrace {
         eval {
             CORE::die;
         };
         eval {
             CORE::die;
         };
-        if($@ =~ /^Died at .*(, <.*?> line \d+).$/ ) {
+        if($@ =~ /^Died at .*(, <.*?> (?:line|chunk) \d+).$/ ) {
             $mess .= $1;
         }
     }
             $mess .= $1;
         }
     }