Update Devel-PPPort to CPAN version 3.21

[perl5.git] / cpan / Devel-PPPort / parts / inc / warn

diff --git a/cpan/Devel-PPPort/parts/inc/warn b/cpan/Devel-PPPort/parts/inc/warn
index 779239f..8f8f8ff 100644 (file)
--- a/cpan/Devel-PPPort/parts/inc/warn
+++ b/cpan/Devel-PPPort/parts/inc/warn
@@ -1,12 +1,6 @@
 ################################################################################
 ##
-##  $Revision: 8 $
-##  $Author: mhx $
-##  $Date: 2010/03/07 13:15:45 +0100 $
-##
-################################################################################
-##
-##  Version 3.x, Copyright (C) 2004-2010, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
@@ -25,53 +19,53 @@ Perl_warner_nocontext
 
 =implementation
 
-__UNDEFINED__  WARN_ALL                        0
-__UNDEFINED__  WARN_CLOSURE            1
-__UNDEFINED__  WARN_DEPRECATED         2
-__UNDEFINED__  WARN_EXITING            3
-__UNDEFINED__  WARN_GLOB               4
-__UNDEFINED__  WARN_IO                 5
-__UNDEFINED__  WARN_CLOSED             6
-__UNDEFINED__  WARN_EXEC               7
-__UNDEFINED__  WARN_LAYER              8
-__UNDEFINED__  WARN_NEWLINE            9
-__UNDEFINED__  WARN_PIPE               10
-__UNDEFINED__  WARN_UNOPENED           11
-__UNDEFINED__  WARN_MISC               12
-__UNDEFINED__  WARN_NUMERIC            13
-__UNDEFINED__  WARN_ONCE               14
-__UNDEFINED__  WARN_OVERFLOW           15
-__UNDEFINED__  WARN_PACK               16
-__UNDEFINED__  WARN_PORTABLE           17
-__UNDEFINED__  WARN_RECURSION          18
-__UNDEFINED__  WARN_REDEFINE           19
-__UNDEFINED__  WARN_REGEXP             20
-__UNDEFINED__  WARN_SEVERE             21
-__UNDEFINED__  WARN_DEBUGGING          22
-__UNDEFINED__  WARN_INPLACE            23
-__UNDEFINED__  WARN_INTERNAL           24
-__UNDEFINED__  WARN_MALLOC             25
-__UNDEFINED__  WARN_SIGNAL             26
-__UNDEFINED__  WARN_SUBSTR             27
-__UNDEFINED__  WARN_SYNTAX             28
-__UNDEFINED__  WARN_AMBIGUOUS          29
-__UNDEFINED__  WARN_BAREWORD           30
-__UNDEFINED__  WARN_DIGIT              31
-__UNDEFINED__  WARN_PARENTHESIS                32
-__UNDEFINED__  WARN_PRECEDENCE         33
-__UNDEFINED__  WARN_PRINTF             34
-__UNDEFINED__  WARN_PROTOTYPE          35
-__UNDEFINED__  WARN_QW                 36
-__UNDEFINED__  WARN_RESERVED           37
-__UNDEFINED__  WARN_SEMICOLON          38
-__UNDEFINED__  WARN_TAINT              39
-__UNDEFINED__  WARN_THREADS            40
-__UNDEFINED__  WARN_UNINITIALIZED      41
-__UNDEFINED__  WARN_UNPACK             42
-__UNDEFINED__  WARN_UNTIE              43
-__UNDEFINED__  WARN_UTF8               44
-__UNDEFINED__  WARN_VOID               45
-__UNDEFINED__  WARN_ASSERTIONS         46
+__UNDEFINED__  WARN_ALL                 0
+__UNDEFINED__  WARN_CLOSURE             1
+__UNDEFINED__  WARN_DEPRECATED          2
+__UNDEFINED__  WARN_EXITING             3
+__UNDEFINED__  WARN_GLOB                4
+__UNDEFINED__  WARN_IO                  5
+__UNDEFINED__  WARN_CLOSED              6
+__UNDEFINED__  WARN_EXEC                7
+__UNDEFINED__  WARN_LAYER               8
+__UNDEFINED__  WARN_NEWLINE             9
+__UNDEFINED__  WARN_PIPE                10
+__UNDEFINED__  WARN_UNOPENED            11
+__UNDEFINED__  WARN_MISC                12
+__UNDEFINED__  WARN_NUMERIC             13
+__UNDEFINED__  WARN_ONCE                14
+__UNDEFINED__  WARN_OVERFLOW            15
+__UNDEFINED__  WARN_PACK                16
+__UNDEFINED__  WARN_PORTABLE            17
+__UNDEFINED__  WARN_RECURSION           18
+__UNDEFINED__  WARN_REDEFINE            19
+__UNDEFINED__  WARN_REGEXP              20
+__UNDEFINED__  WARN_SEVERE              21
+__UNDEFINED__  WARN_DEBUGGING           22
+__UNDEFINED__  WARN_INPLACE             23
+__UNDEFINED__  WARN_INTERNAL            24
+__UNDEFINED__  WARN_MALLOC              25
+__UNDEFINED__  WARN_SIGNAL              26
+__UNDEFINED__  WARN_SUBSTR              27
+__UNDEFINED__  WARN_SYNTAX              28
+__UNDEFINED__  WARN_AMBIGUOUS           29
+__UNDEFINED__  WARN_BAREWORD            30
+__UNDEFINED__  WARN_DIGIT               31
+__UNDEFINED__  WARN_PARENTHESIS         32
+__UNDEFINED__  WARN_PRECEDENCE          33
+__UNDEFINED__  WARN_PRINTF              34
+__UNDEFINED__  WARN_PROTOTYPE           35
+__UNDEFINED__  WARN_QW                  36
+__UNDEFINED__  WARN_RESERVED            37
+__UNDEFINED__  WARN_SEMICOLON           38
+__UNDEFINED__  WARN_TAINT               39
+__UNDEFINED__  WARN_THREADS             40
+__UNDEFINED__  WARN_UNINITIALIZED       41
+__UNDEFINED__  WARN_UNPACK              42
+__UNDEFINED__  WARN_UNTIE               43
+__UNDEFINED__  WARN_UTF8                44
+__UNDEFINED__  WARN_VOID                45
+__UNDEFINED__  WARN_ASSERTIONS          46
 
 __UNDEFINED__  packWARN(a)              (a)
 
@@ -116,31 +110,31 @@ warner(U32 err, const char *pat, ...)
 
 void
 warner()
-       CODE:
+        CODE:
 #if { VERSION >= 5.004 }
-               warner(packWARN(WARN_MISC), "warner %s:%d", "bar", 42);
+                warner(packWARN(WARN_MISC), "warner %s:%d", "bar", 42);
 #endif
 
 void
 Perl_warner()
-       CODE:
+        CODE:
 #if { VERSION >= 5.004 }
-               Perl_warner(aTHX_ packWARN(WARN_MISC), "Perl_warner %s:%d", "bar", 42);
+                Perl_warner(aTHX_ packWARN(WARN_MISC), "Perl_warner %s:%d", "bar", 42);
 #endif
 
 void
 Perl_warner_nocontext()
-       CODE:
+        CODE:
 #if { VERSION >= 5.004 }
-               Perl_warner_nocontext(packWARN(WARN_MISC), "Perl_warner_nocontext %s:%d", "bar", 42);
+                Perl_warner_nocontext(packWARN(WARN_MISC), "Perl_warner_nocontext %s:%d", "bar", 42);
 #endif
 
 void
 ckWARN()
-       CODE:
+        CODE:
 #if { VERSION >= 5.004 }
-               if (ckWARN(WARN_MISC))
-                 Perl_warner_nocontext(packWARN(WARN_MISC), "ckWARN %s:%d", "bar", 42);
+                if (ckWARN(WARN_MISC))
+                  Perl_warner_nocontext(packWARN(WARN_MISC), "ckWARN %s:%d", "bar", 42);
 #endif
 
 =tests plan => 5
@@ -172,4 +166,3 @@ $^W = 1;
 $warning = '';
 Devel::PPPort::ckWARN();
 ok($] >= 5.004 ? $warning =~ /^ckWARN bar:42/ : $warning eq '');
-