Fix (valid) -Wall warnings in perlio.c

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

diff --git a/perly.c b/perly.c
index 35f64e9..2c63b52 100644 (file)
--- a/perly.c
+++ b/perly.c
@@ -1570,12 +1570,12 @@ case 1:
 #if defined(YYDEBUG) && defined(DEBUGGING)
                    yydebug = (DEBUG_p_TEST);
 #endif
-                   PL_expect = XSTATE;
+                   PL_expect = XSTATE; yyval.ival = block_start(TRUE);
                }
 break;
 case 2:
 #line 135 "perly.y"
-{ newPROG(yyvsp[0].opval); }
+{ newPROG(block_end(yyvsp[-1].ival,yyvsp[0].opval)); }
 break;
 case 3:
 #line 139 "perly.y"