TODO tests for untimely destruction introduced by lvalue ops [RT#67838]

[perl5.git] / cop.h

diff --git a/cop.h b/cop.h
index 7d90891..e5370c4 100644 (file)
--- a/cop.h
+++ b/cop.h
@@ -732,7 +732,7 @@ struct context {
 #define CxFOREACHDEF(c)        ((CxTYPE_is_LOOP(c) && CxTYPE(c) != CXt_LOOP_PLAIN) \
                         && ((c)->cx_type & CXp_FOR_DEF))
 
-#define CXINC ((cxstack_ix + 1) < cxstack_max ? ++cxstack_ix : (cxstack_ix = cxinc()))
+#define CXINC (cxstack_ix < cxstack_max ? ++cxstack_ix : (cxstack_ix = cxinc()))
 
 /* 
 =head1 "Gimme" Values