lexical warnings update, ability to inspect bitmask in calling

scope, among other things (from Paul Marquess)

p4raw-id: //depot/perl@5170

1 files changed, 50 insertions, 40 deletions

diff --git a/warnings.h b/warnings.h
index 23e6d1c994..31942e1e66 100644
--- a/warnings.h
+++ b/warnings.h
@@ -61,46 +61,56 @@
 #define isWARN_ONCE	(PL_dowarn & (G_WARN_ON|G_WARN_ONCE))
 #define isWARN_on(c,x)	(IsSet(SvPVX(c), 2*(x)))
 
-#define WARN_IO			0
-#define WARN_CLOSED		1
-#define WARN_EXEC		2
-#define WARN_NEWLINE		3
-#define WARN_PIPE		4
-#define WARN_UNOPENED		5
-#define WARN_MISC		6
-#define WARN_NUMERIC		7
-#define WARN_ONCE		8
-#define WARN_RECURSION		9
-#define WARN_REDEFINE		10
-#define WARN_SEVERE		11
-#define WARN_DEBUGGING		12
-#define WARN_INPLACE		13
-#define WARN_INTERNAL		14
-#define WARN_SYNTAX		15
-#define WARN_AMBIGUOUS		16
-#define WARN_BAREWORD		17
-#define WARN_DEPRECATED		18
-#define WARN_DIGIT		19
-#define WARN_OCTAL		20
-#define WARN_PARENTHESIS	21
-#define WARN_PRINTF		22
-#define WARN_RESERVED		23
-#define WARN_SEMICOLON		24
-#define WARN_UNINITIALIZED	25
-#define WARN_UNSAFE		26
-#define WARN_CLOSURE		27
-#define WARN_OVERFLOW		28
-#define WARN_PORTABLE		29
-#define WARN_SIGNAL		30
-#define WARN_SUBSTR		31
-#define WARN_TAINT		32
-#define WARN_UNTIE		33
-#define WARN_UTF8		34
-#define WARN_VOID		35
-
-#define WARNsize		9
-#define WARN_ALLstring		"\125\125\125\125\125\125\125\125\125"
-#define WARN_NONEstring		"\0\0\0\0\0\0\0\0\0"
+#define WARN_CHMOD		0
+#define WARN_CLOSURE		1
+#define WARN_EXITING		2
+#define WARN_GLOB		3
+#define WARN_IO			4
+#define WARN_CLOSED		5
+#define WARN_EXEC		6
+#define WARN_NEWLINE		7
+#define WARN_PIPE		8
+#define WARN_UNOPENED		9
+#define WARN_MISC		10
+#define WARN_NUMERIC		11
+#define WARN_ONCE		12
+#define WARN_OVERFLOW		13
+#define WARN_PACK		14
+#define WARN_PORTABLE		15
+#define WARN_RECURSION		16
+#define WARN_REDEFINE		17
+#define WARN_REGEXP		18
+#define WARN_SEVERE		19
+#define WARN_DEBUGGING		20
+#define WARN_INPLACE		21
+#define WARN_INTERNAL		22
+#define WARN_MALLOC		23
+#define WARN_SIGNAL		24
+#define WARN_SUBSTR		25
+#define WARN_SYNTAX		26
+#define WARN_AMBIGUOUS		27
+#define WARN_BAREWORD		28
+#define WARN_DEPRECATED		29
+#define WARN_DIGIT		30
+#define WARN_PARENTHESIS	31
+#define WARN_PRECEDENCE		32
+#define WARN_PRINTF		33
+#define WARN_PROTOTYPE		34
+#define WARN_QW			35
+#define WARN_RESERVED		36
+#define WARN_SEMICOLON		37
+#define WARN_TAINT		38
+#define WARN_UMASK		39
+#define WARN_UNINITIALIZED	40
+#define WARN_UNPACK		41
+#define WARN_UNTIE		42
+#define WARN_UTF8		43
+#define WARN_VOID		44
+#define WARN_Y2K		45
+
+#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 file warnings.h */