2 files changed, 2 insertions, 2 deletions
diff --git a/perly.act b/perly.act
index 8d4b5f8803..02aa650daa 100644
--- a/perly.act
+++ b/perly.act
@@ -325,7 +325,7 @@ case 2:
 			  forop = newUNOP(OP_NULL, 0, append_elem(OP_LINESEQ,
 				newSTATEOP(0,
 					   CopLABEL_alloc(((ps[(1) - (12)].val.p_tkval))->tk_lval.pval),
-					   ((ps[(5) - (12)].val.opval) ? newOP(OP_NULL, 0) : (ps[(5) - (12)].val.opval)) ),
+					   ((ps[(5) - (12)].val.opval) ? (ps[(5) - (12)].val.opval) : newOP(OP_NULL, 0)) ),
 				forop));
 
 			  token_getmad((ps[(2) - (12)].val.i_tkval),forop,'3');
diff --git a/perly.y b/perly.y
index 2abf7a1f5d..9ca64a8757 100644
--- a/perly.y
+++ b/perly.y
@@ -391,7 +391,7 @@ loop	:	label WHILE '(' remember texpr ')' mintro mblock cont
 			  forop = newUNOP(OP_NULL, 0, append_elem(OP_LINESEQ,
 				newSTATEOP(0,
 					   CopLABEL_alloc(($1)->tk_lval.pval),
-					   ($5 ? newOP(OP_NULL, 0) : $5) ),
+					   ($5 ? $5 : newOP(OP_NULL, 0)) ),
 				forop));
 
 			  token_getmad($2,forop,'3');