X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fwarnings.pm;h=7822f92f080bca5fea949fcac73dadb01dee3c79;hb=002b9267a385cf8ff0e7534241cdf3798da8636c;hp=85ce3de7471b8641ac29c9fd3fc4e192f2d060da;hpb=29ddba3bfaa890fa4ba09cd9e59d0dd375d96279;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/warnings.pm b/lib/warnings.pm
index 85ce3de..7822f92 100644
--- a/lib/warnings.pm
+++ b/lib/warnings.pm
@@ -296,6 +296,7 @@ $All = "" ; vec($All, $Offsets{'all'}, 2) = 3 ;
 sub Croaker
 {
     require Carp::Heavy; # this initializes %CarpInternal
+    local $Carp::CarpInternal{'warnings'};
     delete $Carp::CarpInternal{'warnings'};
     Carp::croak(@_);
 }