provide File::Copy::syscopy() via Win32::CopyFile() on win32

[perl5.git] / lib / warning.pm

diff --git a/lib/warning.pm b/lib/warning.pm
index c81e644..ac6aefa 100644 (file)
--- a/lib/warning.pm
+++ b/lib/warning.pm
@@ -7,7 +7,7 @@ package warning;
 
 =head1 NAME
 
-warning - Perl pragma to control 
+warning - Perl pragma to control optional warnings
 
 =head1 SYNOPSIS
 
@@ -45,70 +45,70 @@ use Carp ;
 
 %Bits = (
     'all'              => "\x55\x55\x55\x55\x55\x55\x55\x55", # [0..31]
-    'ambiguous'                => "\x00\x00\x00\x00\x10\x00\x00\x00", # [18]
-    'closed'           => "\x00\x00\x00\x00\x00\x40\x00\x00", # [23]
-    'closure'          => "\x00\x04\x00\x00\x00\x00\x00\x00", # [5]
-    'default'          => "\x00\x00\x10\x00\x00\x00\x00\x00", # [10]
+    'ambiguous'                => "\x00\x00\x00\x04\x00\x00\x00\x00", # [13]
+    'closed'           => "\x10\x00\x00\x00\x00\x00\x00\x00", # [2]
+    'closure'          => "\x00\x00\x00\x00\x00\x40\x00\x00", # [23]
+    'default'          => "\x01\x00\x00\x00\x00\x00\x00\x00", # [0]
     'deprecated'       => "\x00\x00\x00\x10\x00\x00\x00\x00", # [14]
-    'exec'             => "\x00\x00\x00\x00\x00\x00\x01\x00", # [24]
-    'io'               => "\x00\x00\x00\x00\x00\x54\x15\x00", # [21..26]
-    'misc'             => "\x00\x00\x00\x00\x00\x00\x00\x04", # [29]
-    'newline'          => "\x00\x00\x00\x00\x00\x10\x00\x00", # [22]
-    'numeric'          => "\x00\x00\x04\x00\x00\x00\x00\x00", # [9]
-    'octal'            => "\x00\x00\x00\x00\x04\x00\x00\x00", # [17]
-    'once'             => "\x00\x00\x40\x00\x00\x00\x00\x00", # [11]
-    'parenthesis'      => "\x00\x00\x00\x00\x40\x00\x00\x00", # [19]
-    'pipe'             => "\x00\x00\x00\x00\x00\x00\x10\x00", # [26]
-    'precedence'       => "\x00\x00\x00\x00\x00\x01\x00\x00", # [20]
-    'printf'           => "\x00\x00\x00\x00\x01\x00\x00\x00", # [16]
-    'recursion'                => "\x00\x00\x00\x00\x00\x00\x00\x01", # [28]
-    'redefine'         => "\x01\x00\x00\x00\x00\x00\x00\x00", # [0]
-    'reserved'         => "\x00\x00\x00\x04\x00\x00\x00\x00", # [13]
-    'semicolon'                => "\x00\x00\x00\x40\x00\x00\x00\x00", # [15]
-    'signal'           => "\x00\x40\x00\x00\x00\x00\x00\x00", # [7]
-    'substr'           => "\x00\x01\x00\x00\x00\x00\x00\x00", # [4]
+    'exec'             => "\x40\x00\x00\x00\x00\x00\x00\x00", # [3]
+    'io'               => "\x54\x15\x00\x00\x00\x00\x00\x00", # [1..6]
+    'misc'             => "\x00\x40\x00\x00\x00\x00\x00\x00", # [7]
+    'newline'          => "\x00\x01\x00\x00\x00\x00\x00\x00", # [4]
+    'numeric'          => "\x00\x00\x01\x00\x00\x00\x00\x00", # [8]
+    'octal'            => "\x00\x00\x00\x40\x00\x00\x00\x00", # [15]
+    'once'             => "\x00\x00\x04\x00\x00\x00\x00\x00", # [9]
+    'parenthesis'      => "\x00\x00\x00\x00\x01\x00\x00\x00", # [16]
+    'pipe'             => "\x00\x04\x00\x00\x00\x00\x00\x00", # [5]
+    'precedence'       => "\x00\x00\x00\x00\x04\x00\x00\x00", # [17]
+    'printf'           => "\x00\x00\x00\x00\x10\x00\x00\x00", # [18]
+    'recursion'                => "\x00\x00\x10\x00\x00\x00\x00\x00", # [10]
+    'redefine'         => "\x00\x00\x40\x00\x00\x00\x00\x00", # [11]
+    'reserved'         => "\x00\x00\x00\x00\x40\x00\x00\x00", # [19]
+    'semicolon'                => "\x00\x00\x00\x00\x00\x01\x00\x00", # [20]
+    'signal'           => "\x00\x00\x00\x00\x00\x00\x01\x00", # [24]
+    'substr'           => "\x00\x00\x00\x00\x00\x00\x04\x00", # [25]
     'syntax'           => "\x00\x00\x00\x55\x55\x01\x00\x00", # [12..20]
-    'taint'            => "\x40\x00\x00\x00\x00\x00\x00\x00", # [3]
-    'uninitialized'    => "\x00\x00\x00\x00\x00\x00\x40\x00", # [27]
-    'unopened'         => "\x00\x00\x00\x00\x00\x00\x04\x00", # [25]
-    'unsafe'           => "\x50\x55\x01\x00\x00\x00\x00\x00", # [2..8]
-    'untie'            => "\x00\x10\x00\x00\x00\x00\x00\x00", # [6]
-    'utf8'             => "\x00\x00\x01\x00\x00\x00\x00\x00", # [8]
-    'void'             => "\x04\x00\x00\x00\x00\x00\x00\x00", # [1]
+    'taint'            => "\x00\x00\x00\x00\x00\x00\x10\x00", # [26]
+    'uninitialized'    => "\x00\x00\x00\x00\x00\x04\x00\x00", # [21]
+    'unopened'         => "\x00\x10\x00\x00\x00\x00\x00\x00", # [6]
+    'unsafe'           => "\x00\x00\x00\x00\x00\x50\x55\x01", # [22..28]
+    'untie'            => "\x00\x00\x00\x00\x00\x00\x40\x00", # [27]
+    'utf8'             => "\x00\x00\x00\x00\x00\x00\x00\x01", # [28]
+    'void'             => "\x00\x00\x00\x00\x00\x00\x00\x04", # [29]
   );
 
 %DeadBits = (
     'all'              => "\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa", # [0..31]
-    'ambiguous'                => "\x00\x00\x00\x00\x20\x00\x00\x00", # [18]
-    'closed'           => "\x00\x00\x00\x00\x00\x80\x00\x00", # [23]
-    'closure'          => "\x00\x08\x00\x00\x00\x00\x00\x00", # [5]
-    'default'          => "\x00\x00\x20\x00\x00\x00\x00\x00", # [10]
+    'ambiguous'                => "\x00\x00\x00\x08\x00\x00\x00\x00", # [13]
+    'closed'           => "\x20\x00\x00\x00\x00\x00\x00\x00", # [2]
+    'closure'          => "\x00\x00\x00\x00\x00\x80\x00\x00", # [23]
+    'default'          => "\x02\x00\x00\x00\x00\x00\x00\x00", # [0]
     'deprecated'       => "\x00\x00\x00\x20\x00\x00\x00\x00", # [14]
-    'exec'             => "\x00\x00\x00\x00\x00\x00\x02\x00", # [24]
-    'io'               => "\x00\x00\x00\x00\x00\xa8\x2a\x00", # [21..26]
-    'misc'             => "\x00\x00\x00\x00\x00\x00\x00\x08", # [29]
-    'newline'          => "\x00\x00\x00\x00\x00\x20\x00\x00", # [22]
-    'numeric'          => "\x00\x00\x08\x00\x00\x00\x00\x00", # [9]
-    'octal'            => "\x00\x00\x00\x00\x08\x00\x00\x00", # [17]
-    'once'             => "\x00\x00\x80\x00\x00\x00\x00\x00", # [11]
-    'parenthesis'      => "\x00\x00\x00\x00\x80\x00\x00\x00", # [19]
-    'pipe'             => "\x00\x00\x00\x00\x00\x00\x20\x00", # [26]
-    'precedence'       => "\x00\x00\x00\x00\x00\x02\x00\x00", # [20]
-    'printf'           => "\x00\x00\x00\x00\x02\x00\x00\x00", # [16]
-    'recursion'                => "\x00\x00\x00\x00\x00\x00\x00\x02", # [28]
-    'redefine'         => "\x02\x00\x00\x00\x00\x00\x00\x00", # [0]
-    'reserved'         => "\x00\x00\x00\x08\x00\x00\x00\x00", # [13]
-    'semicolon'                => "\x00\x00\x00\x80\x00\x00\x00\x00", # [15]
-    'signal'           => "\x00\x80\x00\x00\x00\x00\x00\x00", # [7]
-    'substr'           => "\x00\x02\x00\x00\x00\x00\x00\x00", # [4]
+    'exec'             => "\x80\x00\x00\x00\x00\x00\x00\x00", # [3]
+    'io'               => "\xa8\x2a\x00\x00\x00\x00\x00\x00", # [1..6]
+    'misc'             => "\x00\x80\x00\x00\x00\x00\x00\x00", # [7]
+    'newline'          => "\x00\x02\x00\x00\x00\x00\x00\x00", # [4]
+    'numeric'          => "\x00\x00\x02\x00\x00\x00\x00\x00", # [8]
+    'octal'            => "\x00\x00\x00\x80\x00\x00\x00\x00", # [15]
+    'once'             => "\x00\x00\x08\x00\x00\x00\x00\x00", # [9]
+    'parenthesis'      => "\x00\x00\x00\x00\x02\x00\x00\x00", # [16]
+    'pipe'             => "\x00\x08\x00\x00\x00\x00\x00\x00", # [5]
+    'precedence'       => "\x00\x00\x00\x00\x08\x00\x00\x00", # [17]
+    'printf'           => "\x00\x00\x00\x00\x20\x00\x00\x00", # [18]
+    'recursion'                => "\x00\x00\x20\x00\x00\x00\x00\x00", # [10]
+    'redefine'         => "\x00\x00\x80\x00\x00\x00\x00\x00", # [11]
+    'reserved'         => "\x00\x00\x00\x00\x80\x00\x00\x00", # [19]
+    'semicolon'                => "\x00\x00\x00\x00\x00\x02\x00\x00", # [20]
+    'signal'           => "\x00\x00\x00\x00\x00\x00\x02\x00", # [24]
+    'substr'           => "\x00\x00\x00\x00\x00\x00\x08\x00", # [25]
     'syntax'           => "\x00\x00\x00\xaa\xaa\x02\x00\x00", # [12..20]
-    'taint'            => "\x80\x00\x00\x00\x00\x00\x00\x00", # [3]
-    'uninitialized'    => "\x00\x00\x00\x00\x00\x00\x80\x00", # [27]
-    'unopened'         => "\x00\x00\x00\x00\x00\x00\x08\x00", # [25]
-    'unsafe'           => "\xa0\xaa\x02\x00\x00\x00\x00\x00", # [2..8]
-    'untie'            => "\x00\x20\x00\x00\x00\x00\x00\x00", # [6]
-    'utf8'             => "\x00\x00\x02\x00\x00\x00\x00\x00", # [8]
-    'void'             => "\x08\x00\x00\x00\x00\x00\x00\x00", # [1]
+    'taint'            => "\x00\x00\x00\x00\x00\x00\x20\x00", # [26]
+    'uninitialized'    => "\x00\x00\x00\x00\x00\x08\x00\x00", # [21]
+    'unopened'         => "\x00\x20\x00\x00\x00\x00\x00\x00", # [6]
+    'unsafe'           => "\x00\x00\x00\x00\x00\xa0\xaa\x02", # [22..28]
+    'untie'            => "\x00\x00\x00\x00\x00\x00\x80\x00", # [27]
+    'utf8'             => "\x00\x00\x00\x00\x00\x00\x00\x02", # [28]
+    'void'             => "\x00\x00\x00\x00\x00\x00\x00\x08", # [29]
   );