[inseparable changes from match from perl-5.003_97e to perl-5.003_97f]

[p5sagit/p5-mst-13.2.git] / vms / perly_c.vms

diff --git a/vms/perly_c.vms b/vms/perly_c.vms
index 0949d5b..c371e4b 100644 (file)
--- a/vms/perly_c.vms
+++ b/vms/perly_c.vms
@@ -1631,8 +1631,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))))); }