-#line 368 "perly.y"
- {
- /* Unimplemented "my sub foo { }" */
- SvREFCNT_inc_simple_void(PL_compcv);
-#ifdef MAD
- (yyval.opval) = newMYSUB((ps[(2) - (6)].val.ival), (ps[(3) - (6)].val.opval), (ps[(4) - (6)].val.opval), (ps[(5) - (6)].val.opval), (ps[(6) - (6)].val.opval));
- token_getmad((ps[(1) - (6)].val.i_tkval),(yyval.opval),'d');
-#else
- newMYSUB((ps[(2) - (6)].val.ival), (ps[(3) - (6)].val.opval), (ps[(4) - (6)].val.opval), (ps[(5) - (6)].val.opval), (ps[(6) - (6)].val.opval));
- (yyval.opval) = (OP*)NULL;
-#endif
- ;}
- break;
-
- case 33:
-#line 380 "perly.y"