This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
lexsub.t: Add test name, test override from another pkg
[perl5.git] / op.h
diff --git a/op.h b/op.h
index d977e57..2bfaa0d 100644 (file)
--- a/op.h
+++ b/op.h
@@ -222,7 +222,9 @@ Deprecated.  Use C<GIMME_V> instead.
      OP_R?KEYS, OP_SUBSTR, OP_POS, OP_VEC */
 #define OPpMAYBE_LVSUB         8       /* We might be an lvalue to return */
   /* OP_RV2HV and OP_PADHV */
-#define OpMAYBE_TRUEBOOL       64      /* %hash in (%hash || $foo) where
+#define OPpTRUEBOOL            32      /* %hash in (%hash || $foo) in
+                                          void context */
+#define OPpMAYBE_TRUEBOOL      64      /* %hash in (%hash || $foo) where
                                           cx is not known till run time */
 
   /* OP_SUBSTR only */