diff options
| -rw-r--r-- | lib/warnings.pm | 9 | ||||
| -rw-r--r-- | regen/warnings.pl | 3 | ||||
| -rw-r--r-- | warnings.h | 2 |
3 files changed, 11 insertions, 3 deletions
diff --git a/lib/warnings.pm b/lib/warnings.pm index ce93db4d0f..d81497fd5f 100644 --- a/lib/warnings.pm +++ b/lib/warnings.pm @@ -5,7 +5,7 @@ package warnings; -our $VERSION = "1.57"; +our $VERSION = "1.58"; # Verify that we're called correctly so that warnings will work. # Can't use Carp, since Carp uses us! @@ -117,6 +117,7 @@ our %Offsets = ( 'experimental::builtin' => 150, 'experimental::defer' => 152, 'experimental::for_list' => 154, + 'scalar' => 156, ); our %Bits = ( @@ -182,6 +183,7 @@ our %Bits = ( 'redundant' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00", # [64] 'regexp' => "\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [20] 'reserved' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [37] + 'scalar' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10", # [78] 'semicolon' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\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\x00\x00\x00", # [21..25] 'shadow' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00", # [68] @@ -263,6 +265,7 @@ our %DeadBits = ( 'redundant' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00", # [64] 'regexp' => "\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [20] 'reserved' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [37] + 'scalar' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20", # [78] 'semicolon' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\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\x00\x00\x00", # [21..25] 'shadow' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00", # [68] @@ -284,7 +287,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\0\0\0"; our $DEFAULT = "\x10\x01\x00\x00\x00\x50\x04\x00\x00\x00\x00\x00\x00\x55\x51\x15\x54\x54\x55\x05"; # [2,4,22,23,25,52..56,58..62,65..67,69..77] -our $LAST_BIT = 156 ; +our $LAST_BIT = 158 ; our $BYTES = 20 ; sub Croaker @@ -968,6 +971,8 @@ The current hierarchy is: | +- regexp | + +- scalar + | +- severe --------+ | | | +- debugging diff --git a/regen/warnings.pl b/regen/warnings.pl index 4b06b747ac..d27e7453d8 100644 --- a/regen/warnings.pl +++ b/regen/warnings.pl @@ -16,7 +16,7 @@ # # This script is normally invoked from regen.pl. -$VERSION = '1.57'; +$VERSION = '1.58'; BEGIN { require './regen/regen_lib.pl'; @@ -133,6 +133,7 @@ my $tree = { 'redundant' => [ 5.021, DEFAULT_OFF], 'locale' => [ 5.021, DEFAULT_ON], 'shadow' => [ 5.027, DEFAULT_OFF], + 'scalar' => [ 5.035, DEFAULT_OFF], #'default' => [ 5.008, DEFAULT_ON ], }]}; diff --git a/warnings.h b/warnings.h index b5a6233269..4d805d4c9a 100644 --- a/warnings.h +++ b/warnings.h @@ -140,6 +140,7 @@ #define WARN_EXPERIMENTAL__BUILTIN 75 #define WARN_EXPERIMENTAL__DEFER 76 #define WARN_EXPERIMENTAL__FOR_LIST 77 +#define WARN_SCALAR 78 #define WARNsize 20 #define WARN_ALLstring "\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125" #define WARN_NONEstring "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" @@ -327,6 +328,7 @@ category parameters passed. =for apidoc Amnh||WARN_EXPERIMENTAL__BUILTIN =for apidoc Amnh||WARN_EXPERIMENTAL__DEFER =for apidoc Amnh||WARN_EXPERIMENTAL__FOR_LIST +=for apidoc Amnh||WARN_SCALAR =cut */ |