diff options
| author | Salvador Fandiño <sfandino@yahoo.com> | 2003-02-21 17:26:16 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-03-04 20:49:59 +0000 |
| commit | 8fa7688f7865696bdfa78bc12d4ffb78bd1d6103 (patch) | |
| tree | 9737caf004c7fafa8466b02223aa35b52064734f /lib/warnings.pm | |
| parent | 9bf4a77902309e820b008865d9ebf6110e4a6cac (diff) | |
| download | perl-8fa7688f7865696bdfa78bc12d4ffb78bd1d6103.tar.gz | |
[PATCH] assertions
Message-ID: <3E566138.4090709@yahoo.com>
and the complement : (with added comments)
Subject: [PATCH] bug in ext/B/t/deparse.t
Message-ID: <3E563E16.7060303@yahoo.com>
plus perldiag.pod patch for the new warning
(previous change was, once again, empty)
p4raw-id: //depot/perl@18828
Diffstat (limited to 'lib/warnings.pm')
| -rw-r--r-- | lib/warnings.pm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/lib/warnings.pm b/lib/warnings.pm index 0400a17527..06091c3788 100644 --- a/lib/warnings.pm +++ b/lib/warnings.pm @@ -180,11 +180,16 @@ use Carp ; 'utf8' => 88, 'void' => 90, 'y2k' => 92, + + # Warnings Categories added in Perl 5.009 + + 'assertions' => 94, ); %Bits = ( - 'all' => "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15", # [0..46] + 'all' => "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55", # [0..47] 'ambiguous' => "\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00", # [29] + 'assertions' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40", # [47] 'bareword' => "\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00", # [30] 'closed' => "\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [6] 'closure' => "\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [1] @@ -233,8 +238,9 @@ use Carp ; ); %DeadBits = ( - 'all' => "\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\x2a", # [0..46] + 'all' => "\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa", # [0..47] 'ambiguous' => "\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00", # [29] + 'assertions' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80", # [47] 'bareword' => "\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00", # [30] 'closed' => "\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [6] 'closure' => "\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [1] @@ -283,7 +289,7 @@ use Carp ; ); $NONE = "\0\0\0\0\0\0\0\0\0\0\0\0"; -$LAST_BIT = 94 ; +$LAST_BIT = 96 ; $BYTES = 12 ; $All = "" ; vec($All, $Offsets{'all'}, 2) = 3 ; |