Integrate change #18420 from maint-5.8:

[perl5.git] / lib / Carp.pm

diff --git a/lib/Carp.pm b/lib/Carp.pm
index 5dbae29..6199f89 100644 (file)
--- 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