- ;}
- break;
-
- case 146:
-#line 1046 "perly.y"
- { (yyval.opval) = newUNOP(OP_ENTERSUB,
- OPf_SPECIAL|OPf_STACKED,
- op_prepend_elem(OP_LIST,
- scalar(newCVREF(
- (OPpENTERSUB_AMPER<<8),
- scalar((ps[(2) - (4)].val.opval))
- )),(OP*)NULL)); dep();
- TOKEN_GETMAD((ps[(1) - (4)].val.i_tkval),(yyval.opval),'o');
- TOKEN_GETMAD((ps[(3) - (4)].val.i_tkval),(yyval.opval),'(');
- TOKEN_GETMAD((ps[(4) - (4)].val.i_tkval),(yyval.opval),')');
- ;}
- break;
-
- case 147:
-#line 1058 "perly.y"
- { (yyval.opval) = newUNOP(OP_ENTERSUB,
- OPf_SPECIAL|OPf_STACKED,
- op_append_elem(OP_LIST,
- (ps[(4) - (5)].val.opval),
- scalar(newCVREF(
- (OPpENTERSUB_AMPER<<8),
- scalar((ps[(2) - (5)].val.opval))
- )))); dep();
- TOKEN_GETMAD((ps[(1) - (5)].val.i_tkval),(yyval.opval),'o');
- TOKEN_GETMAD((ps[(3) - (5)].val.i_tkval),(yyval.opval),'(');
- TOKEN_GETMAD((ps[(5) - (5)].val.i_tkval),(yyval.opval),')');
- ;}
- break;
-
- case 148:
-#line 1071 "perly.y"
- { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_SPECIAL|OPf_STACKED,
- op_prepend_elem(OP_LIST,
- scalar(newCVREF(0,scalar((ps[(2) - (4)].val.opval)))), (OP*)NULL)); dep();
- TOKEN_GETMAD((ps[(1) - (4)].val.i_tkval),(yyval.opval),'o');
- TOKEN_GETMAD((ps[(3) - (4)].val.i_tkval),(yyval.opval),'(');
- TOKEN_GETMAD((ps[(4) - (4)].val.i_tkval),(yyval.opval),')');
- ;}
- break;
-
- case 149:
-#line 1079 "perly.y"
- { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_SPECIAL|OPf_STACKED,
- op_prepend_elem(OP_LIST,
- (ps[(4) - (5)].val.opval),
- scalar(newCVREF(0,scalar((ps[(2) - (5)].val.opval)))))); dep();
- TOKEN_GETMAD((ps[(1) - (5)].val.i_tkval),(yyval.opval),'o');
- TOKEN_GETMAD((ps[(3) - (5)].val.i_tkval),(yyval.opval),'(');
- TOKEN_GETMAD((ps[(5) - (5)].val.i_tkval),(yyval.opval),')');
- ;}