+#line 301 "perly.y"
+ {
+ if ((ps[(2) - (3)].val.opval)->op_type == OP_CONST) {
+ const char *const name =
+ SvPV_nolen_const(((SVOP*)(ps[(2) - (3)].val.opval))->op_sv);
+ if (strEQ(name, "BEGIN") || strEQ(name, "END")
+ || strEQ(name, "INIT") || strEQ(name, "CHECK")
+ || strEQ(name, "UNITCHECK"))
+ CvSPECIAL_on(PL_compcv);
+ }
+ else
+ /* State subs inside anonymous subs need to be
+ clonable themselves. */
+ if (CvANON(CvOUTSIDE(PL_compcv))
+ || CvCLONE(CvOUTSIDE(PL_compcv))
+ || !PadnameIsSTATE(PadlistNAMESARRAY(CvPADLIST(
+ CvOUTSIDE(PL_compcv)
+ ))[(ps[(2) - (3)].val.opval)->op_targ]))
+ CvCLONE_on(PL_compcv);
+ parser->in_my = 0;
+ parser->in_my_stash = NULL;
+ ;}
+ break;
+
+ case 32:
+#line 323 "perly.y"
+ {
+ OP *body;
+ if (parser->copline > (line_t)(ps[(8) - (10)].val.ival))
+ parser->copline = (line_t)(ps[(8) - (10)].val.ival);
+ body = block_end((ps[(5) - (10)].val.ival),
+ op_append_list(OP_LINESEQ, (ps[(6) - (10)].val.opval), (ps[(9) - (10)].val.opval)));
+
+ SvREFCNT_inc_simple_void(PL_compcv);
+ (ps[(2) - (10)].val.opval)->op_type == OP_CONST
+ ? newATTRSUB((ps[(3) - (10)].val.ival), (ps[(2) - (10)].val.opval), NULL, (ps[(7) - (10)].val.opval), body)
+ : newMYSUB((ps[(3) - (10)].val.ival), (ps[(2) - (10)].val.opval), NULL, (ps[(7) - (10)].val.opval), body)
+ ;
+ (yyval.opval) = (OP*)NULL;
+ intro_my();
+ parser->parsed_sub = 1;
+ ;}
+ break;
+
+ case 33:
+#line 340 "perly.y"