*/
case 2:
-#line 142 "perly.y"
+#line 140 "perly.y"
{
PL_parser->expect = XSTATE;
;}
break;
case 3:
-#line 146 "perly.y"
+#line 144 "perly.y"
{
newPROG(block_end((ps[(3) - (4)].val.ival),(ps[(4) - (4)].val.opval)));
(yyval.ival) = 0;
break;
case 4:
-#line 151 "perly.y"
+#line 149 "perly.y"
{
parser->expect = XTERM;
;}
break;
case 5:
-#line 155 "perly.y"
+#line 153 "perly.y"
{
PL_eval_root = (ps[(3) - (3)].val.opval);
(yyval.ival) = 0;
break;
case 6:
-#line 160 "perly.y"
+#line 158 "perly.y"
{
parser->expect = XBLOCK;
;}
break;
case 7:
-#line 164 "perly.y"
+#line 162 "perly.y"
{
PL_pad_reset_pending = TRUE;
PL_eval_root = (ps[(3) - (3)].val.opval);
break;
case 8:
-#line 172 "perly.y"
+#line 170 "perly.y"
{
parser->expect = XSTATE;
;}
break;
case 9:
-#line 176 "perly.y"
+#line 174 "perly.y"
{
PL_pad_reset_pending = TRUE;
PL_eval_root = (ps[(3) - (3)].val.opval);
break;
case 10:
-#line 184 "perly.y"
+#line 182 "perly.y"
{
parser->expect = XSTATE;
;}
break;
case 11:
-#line 188 "perly.y"
+#line 186 "perly.y"
{
PL_pad_reset_pending = TRUE;
PL_eval_root = (ps[(3) - (3)].val.opval);
break;
case 12:
-#line 196 "perly.y"
+#line 194 "perly.y"
{
parser->expect = XSTATE;
;}
break;
case 13:
-#line 200 "perly.y"
+#line 198 "perly.y"
{
PL_eval_root = (ps[(3) - (3)].val.opval);
(yyval.ival) = 0;
break;
case 14:
-#line 208 "perly.y"
+#line 206 "perly.y"
{ if (PL_parser->copline > (line_t)IVAL((ps[(1) - (4)].val.i_tkval)))
PL_parser->copline = (line_t)IVAL((ps[(1) - (4)].val.i_tkval));
(yyval.opval) = block_end((ps[(2) - (4)].val.ival), (ps[(3) - (4)].val.opval));
break;
case 15:
-#line 217 "perly.y"
+#line 215 "perly.y"
{ (yyval.ival) = block_start(TRUE); ;}
break;
case 16:
-#line 221 "perly.y"
+#line 219 "perly.y"
{ (yyval.ival) = (I32) Perl_allocmy(aTHX_ STR_WITH_LEN("$_"), 0); ;}
break;
case 17:
-#line 225 "perly.y"
+#line 223 "perly.y"
{ if (PL_parser->copline > (line_t)IVAL((ps[(1) - (4)].val.i_tkval)))
PL_parser->copline = (line_t)IVAL((ps[(1) - (4)].val.i_tkval));
(yyval.opval) = block_end((ps[(2) - (4)].val.ival), (ps[(3) - (4)].val.opval));
break;
case 18:
-#line 234 "perly.y"
+#line 232 "perly.y"
{ (yyval.ival) = block_start(FALSE); ;}
break;
case 19:
-#line 239 "perly.y"
+#line 237 "perly.y"
{ (yyval.opval) = (OP*)NULL; ;}
break;
case 20:
-#line 241 "perly.y"
+#line 239 "perly.y"
{ (yyval.opval) = op_append_list(OP_LINESEQ, (ps[(1) - (2)].val.opval), (ps[(2) - (2)].val.opval));
PL_pad_reset_pending = TRUE;
if ((ps[(1) - (2)].val.opval) && (ps[(2) - (2)].val.opval))
break;
case 21:
-#line 250 "perly.y"
+#line 248 "perly.y"
{
if((ps[(1) - (1)].val.opval)) {
(yyval.opval) = newSTATEOP(0, NULL, (ps[(1) - (1)].val.opval));
break;
case 22:
-#line 258 "perly.y"
+#line 256 "perly.y"
{ (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
break;
case 23:
-#line 262 "perly.y"
+#line 260 "perly.y"
{
- (yyval.opval) = newSTATEOP(0, PVAL((ps[(1) - (2)].val.p_tkval)), (ps[(2) - (2)].val.opval));
+ (yyval.opval) = newSTATEOP(SvUTF8(((SVOP*)(ps[(1) - (2)].val.p_tkval))->op_sv),
+ savepv(SvPVX(((SVOP*)(ps[(1) - (2)].val.p_tkval))->op_sv)), (ps[(2) - (2)].val.opval));
TOKEN_GETMAD((ps[(1) - (2)].val.p_tkval),
(ps[(2) - (2)].val.opval) ? cLISTOPx((yyval.opval))->op_first : (yyval.opval), 'L');
;}
break;
case 24:
-#line 268 "perly.y"
+#line 267 "perly.y"
{
- (yyval.opval) = newSTATEOP(0, PVAL((ps[(1) - (2)].val.p_tkval)), (ps[(2) - (2)].val.opval));
+ (yyval.opval) = newSTATEOP(SvUTF8(((SVOP*)(ps[(1) - (2)].val.p_tkval))->op_sv),
+ savepv(SvPVX(((SVOP*)(ps[(1) - (2)].val.p_tkval))->op_sv)), (ps[(2) - (2)].val.opval));
TOKEN_GETMAD((ps[(1) - (2)].val.p_tkval), cLISTOPx((yyval.opval))->op_first, 'L');
;}
break;
break;
case 209:
-#line 1324 "perly.y"
- { (yyval.i_tkval) = (ps[(1) - (1)].val.i_tkval); ;}
- break;
-
- case 210:
#line 1326 "perly.y"
- { munge_qwlist_to_paren_list((ps[(1) - (1)].val.opval)); ;}
- break;
-
- case 211:
-#line 1328 "perly.y"
- { (yyval.i_tkval) = (ps[(3) - (3)].val.i_tkval); ;}
- break;
-
- case 212:
-#line 1334 "perly.y"
{ PL_parser->in_my = 0; (yyval.opval) = my((ps[(1) - (1)].val.opval)); ;}
break;
- case 213:
-#line 1338 "perly.y"
+ case 210:
+#line 1330 "perly.y"
{ (yyval.opval) = newCVREF(IVAL((ps[(1) - (2)].val.i_tkval)),(ps[(2) - (2)].val.opval));
TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'&');
;}
break;
- case 214:
-#line 1344 "perly.y"
+ case 211:
+#line 1336 "perly.y"
{ (yyval.opval) = newSVREF((ps[(2) - (2)].val.opval));
TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'$');
;}
break;
- case 215:
-#line 1350 "perly.y"
+ case 212:
+#line 1342 "perly.y"
{ (yyval.opval) = newAVREF((ps[(2) - (2)].val.opval));
TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'@');
;}
break;
- case 216:
-#line 1356 "perly.y"
+ case 213:
+#line 1348 "perly.y"
{ (yyval.opval) = newHVREF((ps[(2) - (2)].val.opval));
TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'%');
;}
break;
- case 217:
-#line 1362 "perly.y"
+ case 214:
+#line 1354 "perly.y"
{ (yyval.opval) = newAVREF((ps[(2) - (2)].val.opval));
TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'l');
;}
break;
- case 218:
-#line 1368 "perly.y"
+ case 215:
+#line 1360 "perly.y"
{ (yyval.opval) = newGVREF(0,(ps[(2) - (2)].val.opval));
TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'*');
;}
break;
- case 219:
-#line 1375 "perly.y"
+ case 216:
+#line 1367 "perly.y"
{ (yyval.opval) = scalar((ps[(1) - (1)].val.opval)); ;}
break;
- case 220:
-#line 1377 "perly.y"
+ case 217:
+#line 1369 "perly.y"
{ (yyval.opval) = scalar((ps[(1) - (1)].val.opval)); ;}
break;
- case 221:
-#line 1379 "perly.y"
+ case 218:
+#line 1371 "perly.y"
{ (yyval.opval) = op_scope((ps[(1) - (1)].val.opval)); ;}
break;
- case 222:
-#line 1382 "perly.y"
+ case 219:
+#line 1374 "perly.y"
{ (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
break;
-
-/* Line 1267 of yacc.c. */
-
default: break;
/* Generated from:
- * 7fb05fb0a9bd3f1c047696941084a07f2d9928ccde2dd343a19d32cf51669760 perly.y
- * 738ca60a0b4cb075902435e976a2f393d438e8e6e32ba81e037dd773b75c87b5 regen_perly.pl
+ * ff01d43de6f749eba3bfeffd39928772fe7e1bebe039506b8465c05941209aa8 perly.y
+ * 53f57d7143a42b3c008841a14d158bcf9cab64b2904b07ef5e95051fe9a8a875 regen_perly.pl
* ex: set ro: */