Change 31386 by [EMAIL PROTECTED] on 2007/06/15 08:55:38
Forgot to regen warnings
Affected files ...
... //depot/perl/lib/warnings.pm#43 edit
... //depot/perl/warnings.h#37 edit
Differences ...
==== //depot/perl/lib/warnings.pm#43 (text+w) ====
Index: perl/lib/warnings.pm
--- perl/lib/warnings.pm#42~31084~ 2007-04-26 05:47:57.000000000 -0700
+++ perl/lib/warnings.pm 2007-06-15 01:55:38.000000000 -0700
@@ -188,16 +188,11 @@
'untie' => 86,
'utf8' => 88,
'void' => 90,
-
- # Warnings Categories added in Perl 5.009
-
- 'assertions' => 92,
);
our %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\x05",
# [0..45]
'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\x10",
# [46]
'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]
@@ -245,9 +240,8 @@
);
our %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\x0a",
# [0..45]
'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\x20",
# [46]
'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]
@@ -295,7 +289,7 @@
);
$NONE = "\0\0\0\0\0\0\0\0\0\0\0\0";
-$LAST_BIT = 94 ;
+$LAST_BIT = 92 ;
$BYTES = 12 ;
$All = "" ; vec($All, $Offsets{'all'}, 2) = 3 ;
==== //depot/perl/warnings.h#37 (text+w) ====
Index: perl/warnings.h
--- perl/warnings.h#36~30365~ 2007-02-19 15:58:53.000000000 -0800
+++ perl/warnings.h 2007-06-15 01:55:38.000000000 -0700
@@ -76,10 +76,6 @@
#define WARN_UTF8 44
#define WARN_VOID 45
-/* Warnings Categories added in Perl 5.009 */
-
-#define WARN_ASSERTIONS 46
-
#define WARNsize 12
#define WARN_ALLstring
"\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"
End of Patch.
