From: Chip Salzenberg <chip@perl.com>
Date: Thu, 6 Mar 1997 15:46:36 +0000 (+1200)
Subject: Fix label on C<for(;;)> statement
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b25809da6d2fc5e61497c7df6731abd5b4a2b2a8;p=p5sagit%2Fp5-mst-13.2.git

Fix label on C<for(;;)> statement
---

diff --git a/perly.c b/perly.c
index 8480949..b25b2fa 100644
--- a/perly.c
+++ b/perly.c
@@ -1628,8 +1628,8 @@ case 32:
 #line 209 "perly.y"
 { copline = yyvsp[-9].ival;
 			    yyval.opval = block_end(yyvsp[-7].ival,
-				   append_elem(OP_LINESEQ, scalar(yyvsp[-6].opval),
-				     newSTATEOP(0, yyvsp[-10].pval,
+				   newSTATEOP(0, yyvsp[-10].pval,
+				     append_elem(OP_LINESEQ, scalar(yyvsp[-6].opval),
 				       newWHILEOP(0, 1, (LOOP*)Nullop,
 						  scalar(yyvsp[-4].opval),
 						  yyvsp[0].opval, scalar(yyvsp[-2].opval))))); }
diff --git a/perly.y b/perly.y
index b181d5f..3bf1fda 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))))); }