Add plain ~ expansion for Windows system in File::Glob

[perl5.git] / op.h

diff --git a/op.h b/op.h
index 0d970ca..6ae8dd9 100644 (file)
--- a/op.h
+++ b/op.h
@@ -204,9 +204,9 @@ Deprecated.  Use C<GIMME_V> instead.
 
   /* OP_ENTERSUB only */
 #define OPpENTERSUB_DB         16      /* Debug subroutine. */
-#define OPpENTERSUB_HASTARG    32      /* Called from OP tree. */
-#define OPpENTERSUB_INARGS     4       /* Lval used as arg to a sub. */
-#define OPpENTERSUB_DEREF      1       /* Lval call that autovivifies. */
+#define OPpENTERSUB_HASTARG    4       /* Called from OP tree. */
+#define OPpENTERSUB_INARGS     1       /* Lval used as arg to a sub. */
+/* used by OPpDEREF             (32|64) */
 /* used by HINT_STRICT_SUBS     2          */
   /* Mask for OP_ENTERSUB flags, the absence of which must be propagated
      in dynamic context */
@@ -244,7 +244,6 @@ Deprecated.  Use C<GIMME_V> instead.
 #define        OPpCONST_SHORTCIRCUIT   4       /* eg the constant 5 in (5 || foo) */
 #define        OPpCONST_STRICT         8       /* bareword subject to strict 'subs' */
 #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. */
 
@@ -301,6 +300,7 @@ Deprecated.  Use C<GIMME_V> instead.
 /* These must not conflict with OPpDONT_INIT_GV.  See pp.c:S_rv2gv. */
 #define OPpCOREARGS_DEREF1     1       /* Arg 1 is a handle constructor */
 #define OPpCOREARGS_DEREF2     2       /* Arg 2 is a handle constructor */
+#define OPpCOREARGS_SCALARMOD  64      /* \$ rather than \[$@%*] */
 #define OPpCOREARGS_PUSHMARK   128     /* Call pp_pushmark */
 
 struct op {