This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 5.0 alpha 5
[perl5.git] / op.h
diff --git a/op.h b/op.h
index f6375b1..c230dd0 100644 (file)
--- a/op.h
+++ b/op.h
@@ -84,6 +84,9 @@ typedef U16 PADOFFSET;
 /* Private for OP_FLIP/FLOP */
 #define OPpFLIP_LINENUM                1       /* Range arg potentially a line num. */
 
+/* Private for OP_LIST */
+#define OPpLIST_GUESSED                1       /* Guessed that pushmark was needed. */
+
 struct op {
     BASEOP
 };