- TOKEN_GETMAD((ps[(1) - (1)].val.i_tkval),(yyval.opval),':');
- ;}
- break;
-
- case 79:
-#line 641 "perly.y"
- { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
- break;
-
- case 80:
-#line 642 "perly.y"
- { (yyval.opval) = IF_MAD(
- newOP(OP_NULL,0),
- (OP*)NULL
- );
- PL_parser->expect = XSTATE;
- TOKEN_GETMAD((ps[(1) - (1)].val.i_tkval),(yyval.opval),';');
- ;}
- break;
-
- case 81:
-#line 652 "perly.y"
- {
-#ifdef MAD
- (yyval.opval) = package((ps[(3) - (4)].val.opval));
- token_getmad((ps[(1) - (4)].val.i_tkval),(yyval.opval),'o');
- if ((ps[(2) - (4)].val.opval))
- package_version((ps[(2) - (4)].val.opval));
- token_getmad((ps[(4) - (4)].val.i_tkval),(yyval.opval),';');
-#else
- package((ps[(3) - (4)].val.opval));
- if ((ps[(2) - (4)].val.opval))
- package_version((ps[(2) - (4)].val.opval));
- (yyval.opval) = (OP*)NULL;
-#endif
- ;}
- break;
-
- case 82:
-#line 669 "perly.y"
- {
- int save_3_latefree = (ps[(3) - (5)].val.opval)->op_latefree;
- (ps[(3) - (5)].val.opval)->op_latefree = 1;
- package((ps[(3) - (5)].val.opval));
- (ps[(3) - (5)].val.opval)->op_latefree = save_3_latefree;
- if ((ps[(2) - (5)].val.opval)) {
- int save_2_latefree = (ps[(2) - (5)].val.opval)->op_latefree;
- (ps[(2) - (5)].val.opval)->op_latefree = 1;
- package_version((ps[(2) - (5)].val.opval));
- (ps[(2) - (5)].val.opval)->op_latefree = save_2_latefree;
- }
- ;}
- break;
-
- case 83:
-#line 682 "perly.y"
- { if (PL_parser->copline > (line_t)IVAL((ps[(4) - (8)].val.i_tkval)))
- PL_parser->copline = (line_t)IVAL((ps[(4) - (8)].val.i_tkval));
- (yyval.opval) = block_end((ps[(5) - (8)].val.ival), (ps[(7) - (8)].val.opval));
- TOKEN_GETMAD((ps[(4) - (8)].val.i_tkval),(yyval.opval),'{');
- TOKEN_GETMAD((ps[(8) - (8)].val.i_tkval),(yyval.opval),'}');
- op_free((ps[(3) - (8)].val.opval));
- if ((ps[(2) - (8)].val.opval))
- op_free((ps[(2) - (8)].val.opval));