Describe __PACKAGE__ in perldelta

[p5sagit/p5-mst-13.2.git] / perly.c

diff --git a/perly.c b/perly.c
index 6de75e5..b25b2fa 100644 (file)
--- 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))))); }
@@ -1706,15 +1706,15 @@ case 52:
 break;
 case 53:
 #line 280 "perly.y"
-{ yyval.ival = start_subparse(0); }
+{ yyval.ival = start_subparse(FALSE, 0); }
 break;
 case 54:
 #line 284 "perly.y"
-{ yyval.ival = start_subparse(CVf_ANON); }
+{ yyval.ival = start_subparse(FALSE, CVf_ANON); }
 break;
 case 55:
 #line 288 "perly.y"
-{ yyval.ival = start_subparse(CVf_FORMAT); }
+{ yyval.ival = start_subparse(TRUE, 0); }
 break;
 case 56:
 #line 291 "perly.y"