1 files changed, 2 insertions, 2 deletions
diff --git a/perly.y b/perly.y
index b181d5fb39..3bf1fdaf60 100644
--- a/perly.y
+++ b/perly.y
@@ -208,8 +208,8 @@ loop	:	label WHILE '(' remember mtexpr ')' mblock cont
 			/* basically fake up an initialize-while lineseq */
 			{ copline = $2;
 			    $$ = block_end($4,
-				   append_elem(OP_LINESEQ, scalar($5),
-				     newSTATEOP(0, $1,
+				   newSTATEOP(0, $1,
+				     append_elem(OP_LINESEQ, scalar($5),
 				       newWHILEOP(0, 1, (LOOP*)Nullop,
 						  scalar($7),
 						  $11, scalar($9))))); }