#2026 fallout.

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

diff --git a/perly.c b/perly.c
index f9799a8..2f9c045 100644 (file)
--- a/perly.c
+++ b/perly.c
@@ -10,8 +10,6 @@ static char yysccsid[] = "@(#)yaccpar 1.8 (Berkeley) 01/20/91";
 #define yynerrs            PL_yynerrs
 #define yyerrflag   PL_yyerrflag
 #define yychar     PL_yychar
-#define yyssp      PL_yyssp
-#define yyvsp      PL_yyvsp
 #define yyval      PL_yyval
 #define yylval     PL_yylval
 
@@ -2110,7 +2108,7 @@ case 134:
 break;
 case 135:
 #line 515 "perly.y"
-{ yyval.opval = newUNOP(OP_DOFILE, 0, scalar(yyvsp[0].opval)); }
+{ yyval.opval = dofile(yyvsp[0].opval); }
 break;
 case 136:
 #line 517 "perly.y"