#define YYLEX_PARAM (&yychar)
#endif
-#line 52 "perly.c"
+#line 51 "perly.c"
#define YYERRCODE 256
static short yylhs[] = { -1,
50, 0, 8, 6, 9, 7, 10, 10, 10, 11,
#endif
#define yyparse() Perl_yyparse(pTHX)
-#line 1372 "perly.c"
+#line 1371 "perly.c"
#define YYABORT goto yyabort
#define YYACCEPT goto yyaccept
#define YYERROR goto yyerrlab
struct ysv *ysave;
New(73, ysave, 1, struct ysv);
- SAVEDESTRUCTOR(yydestruct, ysave);
+ SAVEDESTRUCTOR_X(yydestruct, ysave);
ysave->oldyydebug = yydebug;
ysave->oldyynerrs = yynerrs;
ysave->oldyyerrflag = yyerrflag;
break;
case 22:
#line 203 "perly.y"
-{ yyval.opval = scope(yyvsp[0].opval); }
+{ (yyvsp[0].opval)->op_flags |= OPf_PARENS; yyval.opval = scope(yyvsp[0].opval); }
break;
case 23:
#line 205 "perly.y"
#line 338 "perly.y"
{ STRLEN n_a; char *name = SvPV(((SVOP*)yyvsp[0].opval)->op_sv,n_a);
if (strEQ(name, "BEGIN") || strEQ(name, "END")
- || strEQ(name, "INIT"))
+ || strEQ(name, "INIT") || strEQ(name, "CHECK"))
CvSPECIAL_on(PL_compcv);
yyval.opval = yyvsp[0].opval; }
break;
#line 723 "perly.y"
{ yyval.opval = yyvsp[0].opval; }
break;
-#line 2414 "perly.c"
+#line 2412 "perly.c"
}
yyssp -= yym;
yystate = *yyssp;
}
#ifdef PERL_OBJECT
-#define NO_XSLOCKS
#include "XSUB.h"
#endif