lexical warnings; tweaks to places that didn't apply correctly

[perl5.git] / op.h

diff --git a/op.h b/op.h
index 9ec72e9..cbb2ac3 100644 (file)
--- a/op.h
+++ b/op.h
@@ -130,6 +130,7 @@ typedef U32 PADOFFSET;
 #define OPpCONST_ENTERED       16      /* Has been entered as symbol. */
 #define OPpCONST_ARYBASE       32      /* Was a $[ translated to constant. */
 #define OPpCONST_BARE          64      /* Was a bare word (filehandle?). */
+#define OPpCONST_WARNING       128     /* Was a $^W translated to constant. */
 
 /* Private for OP_FLIP/FLOP */
 #define OPpFLIP_LINENUM                64      /* Range arg potentially a line num. */