diff options
| author | Zefram <zefram@fysh.org> | 2017-12-06 04:00:04 +0000 |
|---|---|---|
| committer | Zefram <zefram@fysh.org> | 2017-12-06 04:00:04 +0000 |
| commit | 52e3acf87aacbe6b39ecb42fe0adb6c0dac1019d (patch) | |
| tree | d789ce56ac7364b4acb33c4c492a715efc55eb0c /lib | |
| parent | 58be57636a42d6c6fd404c48c4e1cb87870182df (diff) | |
| download | perl-52e3acf87aacbe6b39ecb42fe0adb6c0dac1019d.tar.gz | |
put shadowing warnings in their own category
As proposed in [perl #125330].
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/warnings.pm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lib/warnings.pm b/lib/warnings.pm index 64e6448a08..c6bbe8c95d 100644 --- a/lib/warnings.pm +++ b/lib/warnings.pm @@ -5,7 +5,7 @@ package warnings; -our $VERSION = "1.38"; +our $VERSION = "1.39"; # Verify that we're called correctly so that warnings will work. # Can't use Carp, since Carp uses us! @@ -96,6 +96,9 @@ our %Offsets = ( # Warnings Categories added in Perl 5.025 'experimental::declared_refs' => 132, + + # Warnings Categories added in Perl 5.027 + 'shadow' => 134, ); our %Bits = ( @@ -153,6 +156,7 @@ our %Bits = ( 'reserved' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00", # [37] 'semicolon' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00", # [38] 'severe' => "\x00\x00\x00\x00\x00\x54\x05\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [21..25] + 'shadow' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40", # [67] 'signal' => "\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [26] 'substr' => "\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [27] 'surrogate' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00", # [50] @@ -223,6 +227,7 @@ our %DeadBits = ( 'reserved' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00", # [37] 'semicolon' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00", # [38] 'severe' => "\x00\x00\x00\x00\x00\xa8\x0a\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [21..25] + 'shadow' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80", # [67] 'signal' => "\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [26] 'substr' => "\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [27] 'surrogate' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00", # [50] @@ -241,7 +246,7 @@ our %DeadBits = ( # These are used by various things, including our own tests our $NONE = "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"; our $DEFAULT = "\x10\x01\x00\x00\x00\x50\x04\x00\x00\x00\x00\x00\x00\x55\x51\x55\x10", # [2,4,22,23,25,52..56,58..63,66] -our $LAST_BIT = 134 ; +our $LAST_BIT = 136 ; our $BYTES = 17 ; sub Croaker @@ -811,6 +816,8 @@ The current hierarchy is: | | | +- malloc | + +- shadow + | +- signal | +- substr |