X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCarp.pm;h=6199f8944877901a3db80d70f979fca99ff3ba70;hb=a6d0563455796929d2aae5a18fb57e80a20f87bd;hp=5dbae299fdbd11d1218e52a2fdbd1b20e0c7d144;hpb=af80c6a74104e70a516bb6c83a9f4ff35a70e1cc;p=p5sagit%2Fp5-mst-13.2.git diff --git a/lib/Carp.pm b/lib/Carp.pm index 5dbae29..6199f89 100644 --- a/lib/Carp.pm +++ b/lib/Carp.pm @@ -119,6 +119,7 @@ call die() or warn(), as appropriate. # text and function arguments should be formatted when printed. $CarpInternal{Carp}++; +$CarpInternal{warnings}++; $CarpLevel = 0; # How many extra package levels to skip on carp. # How many calls to skip on confess. # Reconciling these notions is hard, use