IO::Socket now sets $!, avoids eval/die (patch from Graham Barr

[p5sagit/p5-mst-13.2.git] / lib / warnings.pm

diff --git a/lib/warnings.pm b/lib/warnings.pm
index 6b87d85..b952295 100644 (file)
--- a/lib/warnings.pm
+++ b/lib/warnings.pm
@@ -32,11 +32,12 @@ use Carp ;
 %Bits = (
     'all'              => "\x55\x55\x55\x55\x55\x55\x55\x55\x55", # [0..35]
     'ambiguous'                => "\x00\x00\x00\x00\x01\x00\x00\x00\x00", # [16]
+    'bareword'         => "\x00\x00\x00\x00\x04\x00\x00\x00\x00", # [17]
     'closed'           => "\x04\x00\x00\x00\x00\x00\x00\x00\x00", # [1]
     'closure'          => "\x00\x00\x00\x00\x00\x00\x40\x00\x00", # [27]
     'debugging'                => "\x00\x00\x00\x01\x00\x00\x00\x00\x00", # [12]
-    'deprecated'       => "\x00\x00\x00\x00\x04\x00\x00\x00\x00", # [17]
-    'digit'            => "\x00\x00\x00\x00\x10\x00\x00\x00\x00", # [18]
+    'deprecated'       => "\x00\x00\x00\x00\x10\x00\x00\x00\x00", # [18]
+    'digit'            => "\x00\x00\x00\x00\x40\x00\x00\x00\x00", # [19]
     'exec'             => "\x10\x00\x00\x00\x00\x00\x00\x00\x00", # [2]
     'inplace'          => "\x00\x00\x00\x04\x00\x00\x00\x00\x00", # [13]
     'internal'         => "\x00\x00\x00\x10\x00\x00\x00\x00\x00", # [14]
@@ -44,13 +45,12 @@ use Carp ;
     'misc'             => "\x00\x10\x00\x00\x00\x00\x00\x00\x00", # [6]
     'newline'          => "\x40\x00\x00\x00\x00\x00\x00\x00\x00", # [3]
     'numeric'          => "\x00\x40\x00\x00\x00\x00\x00\x00\x00", # [7]
-    'octal'            => "\x00\x00\x00\x00\x40\x00\x00\x00\x00", # [19]
+    'octal'            => "\x00\x00\x00\x00\x00\x01\x00\x00\x00", # [20]
     'once'             => "\x00\x00\x01\x00\x00\x00\x00\x00\x00", # [8]
     'overflow'         => "\x00\x00\x00\x00\x00\x00\x00\x01\x00", # [28]
-    'parenthesis'      => "\x00\x00\x00\x00\x00\x01\x00\x00\x00", # [20]
+    'parenthesis'      => "\x00\x00\x00\x00\x00\x04\x00\x00\x00", # [21]
     'pipe'             => "\x00\x01\x00\x00\x00\x00\x00\x00\x00", # [4]
     'portable'         => "\x00\x00\x00\x00\x00\x00\x00\x04\x00", # [29]
-    'precedence'       => "\x00\x00\x00\x00\x00\x04\x00\x00\x00", # [21]
     'printf'           => "\x00\x00\x00\x00\x00\x10\x00\x00\x00", # [22]
     'recursion'                => "\x00\x00\x04\x00\x00\x00\x00\x00\x00", # [9]
     'redefine'         => "\x00\x00\x10\x00\x00\x00\x00\x00\x00", # [10]
@@ -72,11 +72,12 @@ use Carp ;
 %DeadBits = (
     'all'              => "\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa", # [0..35]
     'ambiguous'                => "\x00\x00\x00\x00\x02\x00\x00\x00\x00", # [16]
+    'bareword'         => "\x00\x00\x00\x00\x08\x00\x00\x00\x00", # [17]
     'closed'           => "\x08\x00\x00\x00\x00\x00\x00\x00\x00", # [1]
     'closure'          => "\x00\x00\x00\x00\x00\x00\x80\x00\x00", # [27]
     'debugging'                => "\x00\x00\x00\x02\x00\x00\x00\x00\x00", # [12]
-    'deprecated'       => "\x00\x00\x00\x00\x08\x00\x00\x00\x00", # [17]
-    'digit'            => "\x00\x00\x00\x00\x20\x00\x00\x00\x00", # [18]
+    'deprecated'       => "\x00\x00\x00\x00\x20\x00\x00\x00\x00", # [18]
+    'digit'            => "\x00\x00\x00\x00\x80\x00\x00\x00\x00", # [19]
     'exec'             => "\x20\x00\x00\x00\x00\x00\x00\x00\x00", # [2]
     'inplace'          => "\x00\x00\x00\x08\x00\x00\x00\x00\x00", # [13]
     'internal'         => "\x00\x00\x00\x20\x00\x00\x00\x00\x00", # [14]
@@ -84,13 +85,12 @@ use Carp ;
     'misc'             => "\x00\x20\x00\x00\x00\x00\x00\x00\x00", # [6]
     'newline'          => "\x80\x00\x00\x00\x00\x00\x00\x00\x00", # [3]
     'numeric'          => "\x00\x80\x00\x00\x00\x00\x00\x00\x00", # [7]
-    'octal'            => "\x00\x00\x00\x00\x80\x00\x00\x00\x00", # [19]
+    'octal'            => "\x00\x00\x00\x00\x00\x02\x00\x00\x00", # [20]
     'once'             => "\x00\x00\x02\x00\x00\x00\x00\x00\x00", # [8]
     'overflow'         => "\x00\x00\x00\x00\x00\x00\x00\x02\x00", # [28]
-    'parenthesis'      => "\x00\x00\x00\x00\x00\x02\x00\x00\x00", # [20]
+    'parenthesis'      => "\x00\x00\x00\x00\x00\x08\x00\x00\x00", # [21]
     'pipe'             => "\x00\x02\x00\x00\x00\x00\x00\x00\x00", # [4]
     'portable'         => "\x00\x00\x00\x00\x00\x00\x00\x08\x00", # [29]
-    'precedence'       => "\x00\x00\x00\x00\x00\x08\x00\x00\x00", # [21]
     'printf'           => "\x00\x00\x00\x00\x00\x20\x00\x00\x00", # [22]
     'recursion'                => "\x00\x00\x08\x00\x00\x00\x00\x00\x00", # [9]
     'redefine'         => "\x00\x00\x20\x00\x00\x00\x00\x00\x00", # [10]