diff options
author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2019-07-11 18:34:28 +0100 |
---|---|---|
committer | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2019-07-22 11:18:26 +0100 |
commit | 996b0cb8b8b219f477902fa7cadd7d6d10f5d079 (patch) | |
tree | 7bfe564de4eafdff2656bee4cf8a3773ed57330e /perly.act | |
parent | 03b7d2792b10d1f615dd9a9680ffd3cd2f73f584 (diff) | |
download | perl-996b0cb8b8b219f477902fa7cadd7d6d10f5d079.tar.gz |
[perl #132474] Add function for parsing sub signatures
This exposes a GRAMSUBSIGNATURE top-level production from perly.y for
toke.c to consume, which parses a subroutine signature, inside the
parens.
This needed a small change to the existing rules, to pull out a rule
that handles all of the insides of the parens but not the parens
themselves.
(h/t to ilmari for the suggestion)
Diffstat (limited to 'perly.act')
-rw-r--r-- | perly.act | 986 |
1 files changed, 505 insertions, 481 deletions
@@ -123,7 +123,25 @@ case 2: break; case 14: -#line 193 "perly.y" +#line 190 "perly.y" + { + parser->expect = XSTATE; + (yyval.ival) = 0; + } + + break; + + case 15: +#line 195 "perly.y" + { + PL_eval_root = (ps[0].val.opval); + (yyval.ival) = 0; + } + + break; + + case 16: +#line 203 "perly.y" { if (parser->copline > (line_t)(ps[-3].val.ival)) parser->copline = (line_t)(ps[-3].val.ival); (yyval.opval) = block_end((ps[-2].val.ival), (ps[-1].val.opval)); @@ -131,8 +149,8 @@ case 2: break; - case 15: -#line 201 "perly.y" + case 17: +#line 211 "perly.y" { if (parser->copline > (line_t)(ps[-6].val.ival)) parser->copline = (line_t)(ps[-6].val.ival); (yyval.opval) = block_end((ps[-5].val.ival), (ps[-2].val.opval)); @@ -140,15 +158,15 @@ case 2: break; - case 16: -#line 208 "perly.y" + case 18: +#line 218 "perly.y" { (yyval.ival) = block_start(TRUE); parser->parsed_sub = 0; } break; - case 17: -#line 213 "perly.y" + case 19: +#line 223 "perly.y" { if (parser->copline > (line_t)(ps[-3].val.ival)) parser->copline = (line_t)(ps[-3].val.ival); (yyval.opval) = block_end((ps[-2].val.ival), (ps[-1].val.opval)); @@ -156,21 +174,21 @@ case 2: break; - case 18: -#line 220 "perly.y" + case 20: +#line 230 "perly.y" { (yyval.ival) = block_start(FALSE); parser->parsed_sub = 0; } break; - case 19: -#line 226 "perly.y" + case 21: +#line 236 "perly.y" { (yyval.opval) = NULL; } break; - case 20: -#line 228 "perly.y" + case 22: +#line 238 "perly.y" { (yyval.opval) = op_append_list(OP_LINESEQ, (ps[-1].val.opval), (ps[0].val.opval)); PL_pad_reset_pending = TRUE; if ((ps[-1].val.opval) && (ps[0].val.opval)) @@ -179,14 +197,14 @@ case 2: break; - case 21: -#line 237 "perly.y" + case 23: +#line 247 "perly.y" { (yyval.opval) = NULL; } break; - case 22: -#line 239 "perly.y" + case 24: +#line 249 "perly.y" { (yyval.opval) = op_append_list(OP_LINESEQ, (ps[-1].val.opval), (ps[0].val.opval)); PL_pad_reset_pending = TRUE; if ((ps[-1].val.opval) && (ps[0].val.opval)) @@ -195,22 +213,22 @@ case 2: break; - case 23: -#line 248 "perly.y" + case 25: +#line 258 "perly.y" { (yyval.opval) = (ps[0].val.opval) ? newSTATEOP(0, NULL, (ps[0].val.opval)) : NULL; } break; - case 24: -#line 252 "perly.y" + case 26: +#line 262 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 25: -#line 256 "perly.y" + case 27: +#line 266 "perly.y" { SV *label = cSVOPx_sv((ps[-1].val.opval)); (yyval.opval) = newSTATEOP(SvFLAGS(label) & SVf_UTF8, @@ -220,8 +238,8 @@ case 2: break; - case 26: -#line 263 "perly.y" + case 28: +#line 273 "perly.y" { SV *label = cSVOPx_sv((ps[-1].val.opval)); (yyval.opval) = newSTATEOP(SvFLAGS(label) & SVf_UTF8, @@ -231,14 +249,14 @@ case 2: break; - case 27: -#line 273 "perly.y" + case 29: +#line 283 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 28: -#line 275 "perly.y" + case 30: +#line 285 "perly.y" { CV *fmtcv = PL_compcv; newFORM((ps[-2].val.ival), (ps[-1].val.opval), (ps[0].val.opval)); @@ -251,8 +269,8 @@ case 2: break; - case 29: -#line 287 "perly.y" + case 31: +#line 297 "perly.y" { init_named_cv(PL_compcv, (ps[-1].val.opval)); parser->in_my = 0; @@ -261,8 +279,8 @@ case 2: break; - case 30: -#line 293 "perly.y" + case 32: +#line 303 "perly.y" { SvREFCNT_inc_simple_void(PL_compcv); (ps[-5].val.opval)->op_type == OP_CONST @@ -276,8 +294,8 @@ case 2: break; - case 31: -#line 308 "perly.y" + case 33: +#line 318 "perly.y" { init_named_cv(PL_compcv, (ps[-1].val.opval)); parser->in_my = 0; @@ -286,8 +304,8 @@ case 2: break; - case 32: -#line 314 "perly.y" + case 34: +#line 324 "perly.y" { SvREFCNT_inc_simple_void(PL_compcv); (ps[-4].val.opval)->op_type == OP_CONST @@ -301,8 +319,8 @@ case 2: break; - case 33: -#line 325 "perly.y" + case 35: +#line 335 "perly.y" { package((ps[-1].val.opval)); if ((ps[-2].val.opval)) @@ -312,14 +330,14 @@ case 2: break; - case 34: -#line 332 "perly.y" + case 36: +#line 342 "perly.y" { CvSPECIAL_on(PL_compcv); /* It's a BEGIN {} */ } break; - case 35: -#line 334 "perly.y" + case 37: +#line 344 "perly.y" { SvREFCNT_inc_simple_void(PL_compcv); utilize((ps[-6].val.ival), (ps[-5].val.ival), (ps[-3].val.opval), (ps[-2].val.opval), (ps[-1].val.opval)); @@ -329,8 +347,8 @@ case 2: break; - case 36: -#line 341 "perly.y" + case 38: +#line 351 "perly.y" { (yyval.opval) = block_end((ps[-4].val.ival), newCONDOP(0, (ps[-3].val.opval), op_scope((ps[-1].val.opval)), (ps[0].val.opval))); @@ -339,8 +357,8 @@ case 2: break; - case 37: -#line 347 "perly.y" + case 39: +#line 357 "perly.y" { (yyval.opval) = block_end((ps[-4].val.ival), newCONDOP(0, (ps[-3].val.opval), (ps[0].val.opval), op_scope((ps[-1].val.opval)))); @@ -349,8 +367,8 @@ case 2: break; - case 38: -#line 353 "perly.y" + case 40: +#line 363 "perly.y" { (yyval.opval) = block_end((ps[-3].val.ival), newGIVENOP((ps[-2].val.opval), op_scope((ps[0].val.opval)), 0)); parser->copline = (line_t)(ps[-5].val.ival); @@ -358,20 +376,20 @@ case 2: break; - case 39: -#line 358 "perly.y" + case 41: +#line 368 "perly.y" { (yyval.opval) = block_end((ps[-3].val.ival), newWHENOP((ps[-2].val.opval), op_scope((ps[0].val.opval)))); } break; - case 40: -#line 360 "perly.y" + case 42: +#line 370 "perly.y" { (yyval.opval) = newWHENOP(0, op_scope((ps[0].val.opval))); } break; - case 41: -#line 362 "perly.y" + case 43: +#line 372 "perly.y" { (yyval.opval) = block_end((ps[-5].val.ival), newWHILEOP(0, 1, NULL, @@ -381,8 +399,8 @@ case 2: break; - case 42: -#line 369 "perly.y" + case 44: +#line 379 "perly.y" { (yyval.opval) = block_end((ps[-5].val.ival), newWHILEOP(0, 1, NULL, @@ -392,20 +410,20 @@ case 2: break; - case 43: -#line 376 "perly.y" + case 45: +#line 386 "perly.y" { parser->expect = XTERM; } break; - case 44: -#line 378 "perly.y" + case 46: +#line 388 "perly.y" { parser->expect = XTERM; } break; - case 45: -#line 381 "perly.y" + case 47: +#line 391 "perly.y" { OP *initop = (ps[-9].val.opval); OP *forop = newWHILEOP(0, 1, NULL, @@ -423,8 +441,8 @@ case 2: break; - case 46: -#line 396 "perly.y" + case 48: +#line 406 "perly.y" { (yyval.opval) = block_end((ps[-6].val.ival), newFOROP(0, (ps[-5].val.opval), (ps[-3].val.opval), (ps[-1].val.opval), (ps[0].val.opval))); parser->copline = (line_t)(ps[-8].val.ival); @@ -432,8 +450,8 @@ case 2: break; - case 47: -#line 401 "perly.y" + case 49: +#line 411 "perly.y" { (yyval.opval) = block_end((ps[-4].val.ival), newFOROP(0, op_lvalue((ps[-6].val.opval), OP_ENTERLOOP), (ps[-3].val.opval), (ps[-1].val.opval), (ps[0].val.opval))); @@ -442,14 +460,14 @@ case 2: break; - case 48: -#line 407 "perly.y" + case 50: +#line 417 "perly.y" { parser->in_my = 0; (yyval.opval) = my((ps[0].val.opval)); } break; - case 49: -#line 409 "perly.y" + case 51: +#line 419 "perly.y" { (yyval.opval) = block_end( (ps[-7].val.ival), @@ -465,8 +483,8 @@ case 2: break; - case 50: -#line 422 "perly.y" + case 52: +#line 432 "perly.y" { (yyval.opval) = block_end((ps[-4].val.ival), newFOROP( 0, op_lvalue(newUNOP(OP_REFGEN, 0, @@ -477,8 +495,8 @@ case 2: break; - case 51: -#line 430 "perly.y" + case 53: +#line 440 "perly.y" { (yyval.opval) = block_end((ps[-4].val.ival), newFOROP(0, NULL, (ps[-3].val.opval), (ps[-1].val.opval), (ps[0].val.opval))); @@ -487,8 +505,8 @@ case 2: break; - case 52: -#line 436 "perly.y" + case 54: +#line 446 "perly.y" { /* a block is a loop that happens once */ (yyval.opval) = newWHILEOP(0, 1, NULL, @@ -497,8 +515,8 @@ case 2: break; - case 53: -#line 442 "perly.y" + case 55: +#line 452 "perly.y" { package((ps[-2].val.opval)); if ((ps[-3].val.opval)) { @@ -508,8 +526,8 @@ case 2: break; - case 54: -#line 449 "perly.y" + case 56: +#line 459 "perly.y" { /* a block is a loop that happens once */ (yyval.opval) = newWHILEOP(0, 1, NULL, @@ -520,16 +538,16 @@ case 2: break; - case 55: -#line 457 "perly.y" + case 57: +#line 467 "perly.y" { (yyval.opval) = (ps[-1].val.opval); } break; - case 56: -#line 461 "perly.y" + case 58: +#line 471 "perly.y" { (yyval.opval) = newLISTOP(OP_DIE, 0, newOP(OP_PUSHMARK, 0), newSVOP(OP_CONST, 0, newSVpvs("Unimplemented"))); @@ -537,8 +555,8 @@ case 2: break; - case 57: -#line 466 "perly.y" + case 59: +#line 476 "perly.y" { (yyval.opval) = NULL; parser->copline = NOLINE; @@ -546,8 +564,8 @@ case 2: break; - case 58: -#line 474 "perly.y" + case 60: +#line 484 "perly.y" { OP *list; if ((ps[0].val.opval)) { OP *term = (ps[0].val.opval); @@ -565,75 +583,75 @@ case 2: break; - case 59: -#line 491 "perly.y" + case 61: +#line 501 "perly.y" { (yyval.opval) = NULL; } break; - case 60: -#line 493 "perly.y" + case 62: +#line 503 "perly.y" { (yyval.opval) = op_unscope((ps[-1].val.opval)); } break; - case 61: -#line 498 "perly.y" + case 63: +#line 508 "perly.y" { (yyval.opval) = NULL; } break; - case 62: -#line 500 "perly.y" + case 64: +#line 510 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 63: -#line 502 "perly.y" + case 65: +#line 512 "perly.y" { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[0].val.opval), (ps[-2].val.opval)); } break; - case 64: -#line 504 "perly.y" + case 66: +#line 514 "perly.y" { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[0].val.opval), (ps[-2].val.opval)); } break; - case 65: -#line 506 "perly.y" + case 67: +#line 516 "perly.y" { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, scalar((ps[0].val.opval)), (ps[-2].val.opval)); } break; - case 66: -#line 508 "perly.y" + case 68: +#line 518 "perly.y" { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, (ps[0].val.opval), (ps[-2].val.opval)); } break; - case 67: -#line 510 "perly.y" + case 69: +#line 520 "perly.y" { (yyval.opval) = newFOROP(0, NULL, (ps[0].val.opval), (ps[-2].val.opval), NULL); parser->copline = (line_t)(ps[-1].val.ival); } break; - case 68: -#line 513 "perly.y" + case 70: +#line 523 "perly.y" { (yyval.opval) = newWHENOP((ps[0].val.opval), op_scope((ps[-2].val.opval))); } break; - case 69: -#line 518 "perly.y" + case 71: +#line 528 "perly.y" { (yyval.opval) = NULL; } break; - case 70: -#line 520 "perly.y" + case 72: +#line 530 "perly.y" { ((ps[0].val.opval))->op_flags |= OPf_PARENS; (yyval.opval) = op_scope((ps[0].val.opval)); @@ -641,8 +659,8 @@ case 2: break; - case 71: -#line 525 "perly.y" + case 73: +#line 535 "perly.y" { parser->copline = (line_t)(ps[-5].val.ival); (yyval.opval) = newCONDOP(0, newSTATEOP(OPf_SPECIAL,NULL,(ps[-3].val.opval)), @@ -652,153 +670,153 @@ case 2: break; - case 72: -#line 535 "perly.y" + case 74: +#line 545 "perly.y" { (yyval.opval) = NULL; } break; - case 73: -#line 537 "perly.y" + case 75: +#line 547 "perly.y" { (yyval.opval) = op_scope((ps[0].val.opval)); } break; - case 74: -#line 542 "perly.y" + case 76: +#line 552 "perly.y" { (yyval.ival) = (PL_min_intro_pending && PL_max_intro_pending >= PL_min_intro_pending); intro_my(); } break; - case 75: -#line 548 "perly.y" + case 77: +#line 558 "perly.y" { (yyval.opval) = NULL; } break; - case 77: -#line 554 "perly.y" + case 79: +#line 564 "perly.y" { YYSTYPE tmplval; (void)scan_num("1", &tmplval); (yyval.opval) = tmplval.opval; } break; - case 79: -#line 562 "perly.y" + case 81: +#line 572 "perly.y" { (yyval.opval) = invert(scalar((ps[0].val.opval))); } break; - case 80: -#line 567 "perly.y" + case 82: +#line 577 "perly.y" { (yyval.opval) = (ps[0].val.opval); intro_my(); } break; - case 81: -#line 571 "perly.y" + case 83: +#line 581 "perly.y" { (yyval.opval) = (ps[0].val.opval); intro_my(); } break; - case 82: -#line 574 "perly.y" + case 84: +#line 584 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 83: -#line 575 "perly.y" + case 85: +#line 585 "perly.y" { (yyval.opval) = NULL; } break; - case 84: -#line 579 "perly.y" + case 86: +#line 589 "perly.y" { (yyval.ival) = start_subparse(FALSE, 0); SAVEFREESV(PL_compcv); } break; - case 85: -#line 585 "perly.y" + case 87: +#line 595 "perly.y" { (yyval.ival) = start_subparse(FALSE, CVf_ANON); SAVEFREESV(PL_compcv); } break; - case 86: -#line 590 "perly.y" + case 88: +#line 600 "perly.y" { (yyval.ival) = start_subparse(TRUE, 0); SAVEFREESV(PL_compcv); } break; - case 89: -#line 601 "perly.y" + case 91: +#line 611 "perly.y" { (yyval.opval) = NULL; } break; - case 91: -#line 607 "perly.y" + case 93: +#line 617 "perly.y" { (yyval.opval) = NULL; } break; - case 92: -#line 609 "perly.y" + case 94: +#line 619 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 93: -#line 611 "perly.y" + case 95: +#line 621 "perly.y" { (yyval.opval) = NULL; } break; - case 94: -#line 616 "perly.y" + case 96: +#line 626 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 95: -#line 618 "perly.y" + case 97: +#line 628 "perly.y" { (yyval.opval) = NULL; } break; - case 96: -#line 629 "perly.y" + case 98: +#line 639 "perly.y" { parser->in_my = 0; (yyval.opval) = NULL; } break; - case 97: -#line 631 "perly.y" + case 99: +#line 641 "perly.y" { parser->in_my = 0; (yyval.opval) = (ps[0].val.opval); } break; - case 98: -#line 636 "perly.y" + case 100: +#line 646 "perly.y" { (yyval.ival) = '@'; } break; - case 99: -#line 638 "perly.y" + case 101: +#line 648 "perly.y" { (yyval.ival) = '%'; } break; - case 100: -#line 642 "perly.y" + case 102: +#line 652 "perly.y" { I32 sigil = (ps[-2].val.ival); OP *var = (ps[-1].val.opval); @@ -817,26 +835,26 @@ case 2: break; - case 101: -#line 661 "perly.y" + case 103: +#line 671 "perly.y" { (yyval.opval) = NULL; } break; - case 102: -#line 663 "perly.y" + case 104: +#line 673 "perly.y" { (yyval.opval) = newOP(OP_NULL, 0); } break; - case 103: -#line 665 "perly.y" + case 105: +#line 675 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 104: -#line 671 "perly.y" + case 106: +#line 681 "perly.y" { OP *var = (ps[-1].val.opval); OP *defexpr = (ps[0].val.opval); @@ -900,64 +918,70 @@ case 2: break; - case 105: -#line 736 "perly.y" + case 107: +#line 746 "perly.y" { parser->in_my = KEY_sigvar; (yyval.opval) = (ps[0].val.opval); } break; - case 106: -#line 738 "perly.y" + case 108: +#line 748 "perly.y" { parser->in_my = KEY_sigvar; (yyval.opval) = (ps[0].val.opval); } break; - case 107: -#line 744 "perly.y" + case 109: +#line 754 "perly.y" { (yyval.opval) = (ps[-1].val.opval); } break; - case 108: -#line 746 "perly.y" + case 110: +#line 756 "perly.y" { (yyval.opval) = op_append_list(OP_LINESEQ, (ps[-2].val.opval), (ps[0].val.opval)); } break; - case 109: -#line 750 "perly.y" + case 111: +#line 760 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 110: -#line 755 "perly.y" + case 112: +#line 765 "perly.y" { (yyval.opval) = NULL; } break; - case 111: -#line 757 "perly.y" + case 113: +#line 767 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 112: -#line 761 "perly.y" + case 114: +#line 771 "perly.y" { (yyval.opval) = NULL; } break; - case 113: -#line 763 "perly.y" + case 115: +#line 773 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 114: -#line 767 "perly.y" + case 116: +#line 777 "perly.y" + { (yyval.opval) = (ps[-1].val.opval); } + + break; + + case 117: +#line 780 "perly.y" { ENTER; SAVEIV(parser->sig_elems); @@ -971,10 +995,10 @@ case 2: break; - case 115: -#line 779 "perly.y" + case 118: +#line 791 "perly.y" { - OP *sigops = (ps[-1].val.opval); + OP *sigops = (ps[0].val.opval); UNOP_AUX_item *aux; OP *check; @@ -1019,20 +1043,20 @@ case 2: break; - case 116: -#line 825 "perly.y" + case 119: +#line 837 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 117: -#line 826 "perly.y" + case 120: +#line 838 "perly.y" { (yyval.opval) = NULL; } break; - case 118: -#line 832 "perly.y" + case 121: +#line 844 "perly.y" { if (parser->copline > (line_t)(ps[-2].val.ival)) parser->copline = (line_t)(ps[-2].val.ival); @@ -1041,20 +1065,20 @@ case 2: break; - case 119: -#line 842 "perly.y" + case 122: +#line 854 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 120: -#line 843 "perly.y" + case 123: +#line 855 "perly.y" { (yyval.opval) = NULL; } break; - case 121: -#line 847 "perly.y" + case 124: +#line 859 "perly.y" { if (parser->copline > (line_t)(ps[-2].val.ival)) parser->copline = (line_t)(ps[-2].val.ival); @@ -1064,32 +1088,32 @@ case 2: break; - case 122: -#line 858 "perly.y" + case 125: +#line 870 "perly.y" { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[-2].val.opval), (ps[0].val.opval)); } break; - case 123: -#line 860 "perly.y" + case 126: +#line 872 "perly.y" { (yyval.opval) = newLOGOP((ps[-1].val.ival), 0, (ps[-2].val.opval), (ps[0].val.opval)); } break; - case 124: -#line 862 "perly.y" + case 127: +#line 874 "perly.y" { (yyval.opval) = newLOGOP(OP_DOR, 0, (ps[-2].val.opval), (ps[0].val.opval)); } break; - case 126: -#line 868 "perly.y" + case 129: +#line 880 "perly.y" { (yyval.opval) = (ps[-1].val.opval); } break; - case 127: -#line 870 "perly.y" + case 130: +#line 882 "perly.y" { OP* term = (ps[0].val.opval); (yyval.opval) = op_append_elem(OP_LIST, (ps[-2].val.opval), term); @@ -1097,24 +1121,24 @@ case 2: break; - case 129: -#line 879 "perly.y" + case 132: +#line 891 "perly.y" { (yyval.opval) = op_convert_list((ps[-2].val.ival), OPf_STACKED, op_prepend_elem(OP_LIST, newGVREF((ps[-2].val.ival),(ps[-1].val.opval)), (ps[0].val.opval)) ); } break; - case 130: -#line 883 "perly.y" + case 133: +#line 895 "perly.y" { (yyval.opval) = op_convert_list((ps[-4].val.ival), OPf_STACKED, op_prepend_elem(OP_LIST, newGVREF((ps[-4].val.ival),(ps[-2].val.opval)), (ps[-1].val.opval)) ); } break; - case 131: -#line 887 "perly.y" + case 134: +#line 899 "perly.y" { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED, op_append_elem(OP_LIST, op_prepend_elem(OP_LIST, scalar((ps[-5].val.opval)), (ps[-1].val.opval)), @@ -1123,8 +1147,8 @@ case 2: break; - case 132: -#line 893 "perly.y" + case 135: +#line 905 "perly.y" { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED, op_append_elem(OP_LIST, scalar((ps[-2].val.opval)), newMETHOP(OP_METHOD, 0, (ps[0].val.opval)))); @@ -1132,8 +1156,8 @@ case 2: break; - case 133: -#line 898 "perly.y" + case 136: +#line 910 "perly.y" { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED, op_append_elem(OP_LIST, op_prepend_elem(OP_LIST, (ps[-1].val.opval), (ps[0].val.opval)), @@ -1142,8 +1166,8 @@ case 2: break; - case 134: -#line 904 "perly.y" + case 137: +#line 916 "perly.y" { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED, op_append_elem(OP_LIST, op_prepend_elem(OP_LIST, (ps[-3].val.opval), (ps[-1].val.opval)), @@ -1152,33 +1176,33 @@ case 2: break; - case 135: -#line 910 "perly.y" + case 138: +#line 922 "perly.y" { (yyval.opval) = op_convert_list((ps[-1].val.ival), 0, (ps[0].val.opval)); } break; - case 136: -#line 912 "perly.y" + case 139: +#line 924 "perly.y" { (yyval.opval) = op_convert_list((ps[-3].val.ival), 0, (ps[-1].val.opval)); } break; - case 137: -#line 914 "perly.y" + case 140: +#line 926 "perly.y" { (yyval.opval) = op_convert_list((ps[-3].val.ival), 0, (ps[-1].val.opval)); } break; - case 138: -#line 916 "perly.y" + case 141: +#line 928 "perly.y" { SvREFCNT_inc_simple_void(PL_compcv); (yyval.opval) = newANONATTRSUB((ps[-1].val.ival), 0, NULL, (ps[0].val.opval)); } break; - case 139: -#line 919 "perly.y" + case 142: +#line 931 "perly.y" { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, op_append_elem(OP_LIST, op_prepend_elem(OP_LIST, (ps[-1].val.opval), (ps[0].val.opval)), (ps[-4].val.opval))); @@ -1186,21 +1210,21 @@ case 2: break; - case 142: -#line 934 "perly.y" + case 145: +#line 946 "perly.y" { (yyval.opval) = newBINOP(OP_GELEM, 0, (ps[-4].val.opval), scalar((ps[-2].val.opval))); } break; - case 143: -#line 936 "perly.y" + case 146: +#line 948 "perly.y" { (yyval.opval) = newBINOP(OP_AELEM, 0, oopsAV((ps[-3].val.opval)), scalar((ps[-1].val.opval))); } break; - case 144: -#line 939 "perly.y" + case 147: +#line 951 "perly.y" { (yyval.opval) = newBINOP(OP_AELEM, 0, ref(newAVREF((ps[-4].val.opval)),OP_RV2AV), scalar((ps[-1].val.opval))); @@ -1208,8 +1232,8 @@ case 2: break; - case 145: -#line 944 "perly.y" + case 148: +#line 956 "perly.y" { (yyval.opval) = newBINOP(OP_AELEM, 0, ref(newAVREF((ps[-3].val.opval)),OP_RV2AV), scalar((ps[-1].val.opval))); @@ -1217,31 +1241,31 @@ case 2: break; - case 146: -#line 949 "perly.y" + case 149: +#line 961 "perly.y" { (yyval.opval) = newBINOP(OP_HELEM, 0, oopsHV((ps[-4].val.opval)), jmaybe((ps[-2].val.opval))); } break; - case 147: -#line 952 "perly.y" + case 150: +#line 964 "perly.y" { (yyval.opval) = newBINOP(OP_HELEM, 0, ref(newHVREF((ps[-5].val.opval)),OP_RV2HV), jmaybe((ps[-2].val.opval))); } break; - case 148: -#line 956 "perly.y" + case 151: +#line 968 "perly.y" { (yyval.opval) = newBINOP(OP_HELEM, 0, ref(newHVREF((ps[-4].val.opval)),OP_RV2HV), jmaybe((ps[-2].val.opval))); } break; - case 149: -#line 960 "perly.y" + case 152: +#line 972 "perly.y" { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, newCVREF(0, scalar((ps[-3].val.opval)))); if (parser->expect == XBLOCK) @@ -1250,8 +1274,8 @@ case 2: break; - case 150: -#line 966 "perly.y" + case 153: +#line 978 "perly.y" { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, op_append_elem(OP_LIST, (ps[-1].val.opval), newCVREF(0, scalar((ps[-4].val.opval))))); @@ -1261,8 +1285,8 @@ case 2: break; - case 151: -#line 974 "perly.y" + case 154: +#line 986 "perly.y" { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, op_append_elem(OP_LIST, (ps[-1].val.opval), newCVREF(0, scalar((ps[-3].val.opval))))); @@ -1272,8 +1296,8 @@ case 2: break; - case 152: -#line 981 "perly.y" + case 155: +#line 993 "perly.y" { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, newCVREF(0, scalar((ps[-2].val.opval)))); if (parser->expect == XBLOCK) @@ -1282,38 +1306,38 @@ case 2: break; - case 153: -#line 987 "perly.y" + case 156: +#line 999 "perly.y" { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), (ps[-4].val.opval)); } break; - case 154: -#line 989 "perly.y" + case 157: +#line 1001 "perly.y" { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), (ps[-3].val.opval)); } break; - case 155: -#line 991 "perly.y" + case 158: +#line 1003 "perly.y" { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), NULL); } break; - case 156: -#line 996 "perly.y" + case 159: +#line 1008 "perly.y" { (yyval.opval) = newASSIGNOP(OPf_STACKED, (ps[-2].val.opval), (ps[-1].val.ival), (ps[0].val.opval)); } break; - case 157: -#line 998 "perly.y" + case 160: +#line 1010 "perly.y" { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); } break; - case 158: -#line 1000 "perly.y" + case 161: +#line 1012 "perly.y" { if ((ps[-1].val.ival) != OP_REPEAT) scalar((ps[-2].val.opval)); (yyval.opval) = newBINOP((ps[-1].val.ival), 0, (ps[-2].val.opval), scalar((ps[0].val.opval))); @@ -1321,112 +1345,112 @@ case 2: break; - case 159: -#line 1005 "perly.y" + case 162: +#line 1017 "perly.y" { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); } break; - case 160: -#line 1007 "perly.y" + case 163: +#line 1019 "perly.y" { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); } break; - case 161: -#line 1009 "perly.y" + case 164: +#line 1021 "perly.y" { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); } break; - case 162: -#line 1011 "perly.y" + case 165: +#line 1023 "perly.y" { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); } break; - case 163: -#line 1013 "perly.y" + case 166: +#line 1025 "perly.y" { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); } break; - case 164: -#line 1015 "perly.y" + case 167: +#line 1027 "perly.y" { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); } break; - case 165: -#line 1017 "perly.y" + case 168: +#line 1029 "perly.y" { (yyval.opval) = newRANGE((ps[-1].val.ival), scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); } break; - case 166: -#line 1019 "perly.y" + case 169: +#line 1031 "perly.y" { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[-2].val.opval), (ps[0].val.opval)); } break; - case 167: -#line 1021 "perly.y" + case 170: +#line 1033 "perly.y" { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[-2].val.opval), (ps[0].val.opval)); } break; - case 168: -#line 1023 "perly.y" + case 171: +#line 1035 "perly.y" { (yyval.opval) = newLOGOP(OP_DOR, 0, (ps[-2].val.opval), (ps[0].val.opval)); } break; - case 169: -#line 1025 "perly.y" + case 172: +#line 1037 "perly.y" { (yyval.opval) = bind_match((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); } break; - case 170: -#line 1030 "perly.y" + case 173: +#line 1042 "perly.y" { (yyval.opval) = newUNOP(OP_NEGATE, 0, scalar((ps[0].val.opval))); } break; - case 171: -#line 1032 "perly.y" + case 174: +#line 1044 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 172: -#line 1035 "perly.y" + case 175: +#line 1047 "perly.y" { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[0].val.opval))); } break; - case 173: -#line 1037 "perly.y" + case 176: +#line 1049 "perly.y" { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, scalar((ps[0].val.opval))); } break; - case 174: -#line 1039 "perly.y" + case 177: +#line 1051 "perly.y" { (yyval.opval) = newUNOP(OP_POSTINC, 0, op_lvalue(scalar((ps[-1].val.opval)), OP_POSTINC)); } break; - case 175: -#line 1042 "perly.y" + case 178: +#line 1054 "perly.y" { (yyval.opval) = newUNOP(OP_POSTDEC, 0, op_lvalue(scalar((ps[-1].val.opval)), OP_POSTDEC));} break; - case 176: -#line 1045 "perly.y" + case 179: +#line 1057 "perly.y" { (yyval.opval) = op_convert_list(OP_JOIN, 0, op_append_elem( OP_LIST, @@ -1440,156 +1464,156 @@ case 2: break; - case 177: -#line 1056 "perly.y" + case 180: +#line 1068 "perly.y" { (yyval.opval) = newUNOP(OP_PREINC, 0, op_lvalue(scalar((ps[0].val.opval)), OP_PREINC)); } break; - case 178: -#line 1059 "perly.y" + case 181: +#line 1071 "perly.y" { (yyval.opval) = newUNOP(OP_PREDEC, 0, op_lvalue(scalar((ps[0].val.opval)), OP_PREDEC)); } break; - case 179: -#line 1066 "perly.y" + case 182: +#line 1078 "perly.y" { (yyval.opval) = newANONLIST((ps[-1].val.opval)); } break; - case 180: -#line 1068 "perly.y" + case 183: +#line 1080 "perly.y" { (yyval.opval) = newANONLIST(NULL);} break; - case 181: -#line 1070 "perly.y" + case 184: +#line 1082 "perly.y" { (yyval.opval) = newANONHASH((ps[-2].val.opval)); } break; - case 182: -#line 1072 "perly.y" + case 185: +#line 1084 "perly.y" { (yyval.opval) = newANONHASH(NULL); } break; - case 183: -#line 1074 "perly.y" + case 186: +#line 1086 "perly.y" { SvREFCNT_inc_simple_void(PL_compcv); (yyval.opval) = newANONATTRSUB((ps[-3].val.ival), (ps[-2].val.opval), (ps[-1].val.opval), (ps[0].val.opval)); } break; - case 184: -#line 1077 "perly.y" + case 187: +#line 1089 "perly.y" { SvREFCNT_inc_simple_void(PL_compcv); (yyval.opval) = newANONATTRSUB((ps[-2].val.ival), NULL, (ps[-1].val.opval), (ps[0].val.opval)); } break; - case 185: -#line 1083 "perly.y" + case 188: +#line 1095 "perly.y" { (yyval.opval) = dofile((ps[0].val.opval), (ps[-1].val.ival));} break; - case 186: -#line 1085 "perly.y" + case 189: +#line 1097 "perly.y" { (yyval.opval) = newUNOP(OP_NULL, OPf_SPECIAL, op_scope((ps[0].val.opval)));} break; - case 191: -#line 1093 "perly.y" + case 194: +#line 1105 "perly.y" { (yyval.opval) = newCONDOP(0, (ps[-4].val.opval), (ps[-2].val.opval), (ps[0].val.opval)); } break; - case 192: -#line 1095 "perly.y" + case 195: +#line 1107 "perly.y" { (yyval.opval) = newUNOP(OP_REFGEN, 0, (ps[0].val.opval)); } break; - case 193: -#line 1097 "perly.y" + case 196: +#line 1109 "perly.y" { (yyval.opval) = newUNOP(OP_REFGEN, 0, localize((ps[0].val.opval),1)); } break; - case 194: -#line 1099 "perly.y" + case 197: +#line 1111 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 195: -#line 1101 "perly.y" + case 198: +#line 1113 "perly.y" { (yyval.opval) = localize((ps[0].val.opval),0); } break; - case 196: -#line 1103 "perly.y" + case 199: +#line 1115 "perly.y" { (yyval.opval) = sawparens((ps[-1].val.opval)); } break; - case 197: -#line 1105 "perly.y" + case 200: +#line 1117 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 198: -#line 1107 "perly.y" + case 201: +#line 1119 "perly.y" { (yyval.opval) = sawparens(newNULLLIST()); } break; - case 199: -#line 1109 "perly.y" + case 202: +#line 1121 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 200: -#line 1111 "perly.y" + case 203: +#line 1123 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 201: -#line 1113 "perly.y" + case 204: +#line 1125 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 202: -#line 1115 "perly.y" + case 205: +#line 1127 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 203: -#line 1117 "perly.y" + case 206: +#line 1129 "perly.y" { (yyval.opval) = newUNOP(OP_AV2ARYLEN, 0, ref((ps[0].val.opval), OP_AV2ARYLEN));} break; - case 204: -#line 1119 "perly.y" + case 207: +#line 1131 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 205: -#line 1121 "perly.y" + case 208: +#line 1133 "perly.y" { (yyval.opval) = op_prepend_elem(OP_ASLICE, newOP(OP_PUSHMARK, 0), newLISTOP(OP_ASLICE, 0, @@ -1602,8 +1626,8 @@ case 2: break; - case 206: -#line 1131 "perly.y" + case 209: +#line 1143 "perly.y" { (yyval.opval) = op_prepend_elem(OP_KVASLICE, newOP(OP_PUSHMARK, 0), newLISTOP(OP_KVASLICE, 0, @@ -1616,8 +1640,8 @@ case 2: break; - case 207: -#line 1141 "perly.y" + case 210: +#line 1153 "perly.y" { (yyval.opval) = op_prepend_elem(OP_HSLICE, newOP(OP_PUSHMARK, 0), newLISTOP(OP_HSLICE, 0, @@ -1630,8 +1654,8 @@ case 2: break; - case 208: -#line 1151 "perly.y" + case 211: +#line 1163 "perly.y" { (yyval.opval) = op_prepend_elem(OP_KVHSLICE, newOP(OP_PUSHMARK, 0), newLISTOP(OP_KVHSLICE, 0, @@ -1644,27 +1668,27 @@ case 2: break; - case 209: -#line 1161 "perly.y" + case 212: +#line 1173 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 210: -#line 1163 "perly.y" + case 213: +#line 1175 "perly.y" { (yyval.opval) = newUNOP(OP_ENTERSUB, 0, scalar((ps[0].val.opval))); } break; - case 211: -#line 1165 "perly.y" + case 214: +#line 1177 "perly.y" { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[-2].val.opval))); } break; - case 212: -#line 1168 "perly.y" + case 215: +#line 1180 "perly.y" { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, op_append_elem(OP_LIST, (ps[-1].val.opval), scalar((ps[-3].val.opval)))); @@ -1672,153 +1696,153 @@ case 2: break; - case 213: -#line 1173 "perly.y" + case 216: +#line 1185 "perly.y" { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, op_append_elem(OP_LIST, (ps[0].val.opval), scalar((ps[-1].val.opval)))); } break; - case 214: -#line 1177 "perly.y" + case 217: +#line 1189 "perly.y" { (yyval.opval) = newSVREF((ps[-3].val.opval)); } break; - case 215: -#line 1179 "perly.y" + case 218: +#line 1191 "perly.y" { (yyval.opval) = newAVREF((ps[-3].val.opval)); } break; - case 216: -#line 1181 "perly.y" + case 219: +#line 1193 "perly.y" { (yyval.opval) = newHVREF((ps[-3].val.opval)); } break; - case 217: -#line 1183 "perly.y" + case 220: +#line 1195 "perly.y" { (yyval.opval) = newUNOP(OP_ENTERSUB, 0, scalar(newCVREF((ps[-1].val.ival),(ps[-3].val.opval)))); } break; - case 218: -#line 1186 "perly.y" + case 221: +#line 1198 "perly.y" { (yyval.opval) = newGVREF(0,(ps[-3].val.opval)); } break; - case 219: -#line 1188 "perly.y" + case 222: +#line 1200 "perly.y" { (yyval.opval) = newOP((ps[0].val.ival), OPf_SPECIAL); PL_hints |= HINT_BLOCK_SCOPE; } break; - case 220: -#line 1191 "perly.y" + case 223: +#line 1203 "perly.y" { (yyval.opval) = newLOOPEX((ps[-1].val.ival),(ps[0].val.opval)); } break; - case 221: -#line 1193 "perly.y" + case 224: +#line 1205 "perly.y" { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[0].val.opval))); } break; - case 222: -#line 1195 "perly.y" + case 225: +#line 1207 "perly.y" { (yyval.opval) = newOP((ps[0].val.ival), 0); } break; - case 223: -#line 1197 "perly.y" + case 226: +#line 1209 "perly.y" { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, (ps[0].val.opval)); } break; - case 224: -#line 1199 "perly.y" + case 227: +#line 1211 "perly.y" { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, (ps[0].val.opval)); } break; - case 225: -#line 1201 "perly.y" + case 228: +#line 1213 "perly.y" { (yyval.opval) = newOP(OP_REQUIRE, (ps[0].val.ival) ? OPf_SPECIAL : 0); } break; - case 226: -#line 1203 "perly.y" + case 229: +#line 1215 "perly.y" { (yyval.opval) = newUNOP(OP_REQUIRE, (ps[-1].val.ival) ? OPf_SPECIAL : 0, (ps[0].val.opval)); } break; - case 227: -#line 1205 "perly.y" + case 230: +#line 1217 "perly.y" { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[0].val.opval))); } break; - case 228: -#line 1207 "perly.y" + case 231: +#line 1219 "perly.y" { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, op_append_elem(OP_LIST, (ps[0].val.opval), scalar((ps[-1].val.opval)))); } break; - case 229: -#line 1210 "perly.y" + case 232: +#line 1222 "perly.y" { (yyval.opval) = newOP((ps[0].val.ival), 0); } break; - case 230: -#line 1212 "perly.y" + case 233: +#line 1224 "perly.y" { (yyval.opval) = newOP((ps[-2].val.ival), 0);} break; - case 231: -#line 1214 "perly.y" + case 234: +#line 1226 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 232: -#line 1216 "perly.y" + case 235: +#line 1228 "perly.y" { (yyval.opval) = (ps[-2].val.opval); } break; - case 233: -#line 1218 "perly.y" + case 236: +#line 1230 "perly.y" { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[0].val.opval))); } break; - case 234: -#line 1220 "perly.y" + case 237: +#line 1232 "perly.y" { (yyval.opval) = ((ps[-2].val.ival) == OP_NOT) ? newUNOP((ps[-2].val.ival), 0, newSVOP(OP_CONST, 0, newSViv(0))) : newOP((ps[-2].val.ival), OPf_SPECIAL); } break; - case 235: -#line 1224 "perly.y" + case 238: +#line 1236 "perly.y" { (yyval.opval) = newUNOP((ps[-3].val.ival), 0, (ps[-1].val.opval)); } break; - case 236: -#line 1226 "perly.y" + case 239: +#line 1238 "perly.y" { if ( (ps[0].val.opval)->op_type != OP_TRANS && (ps[0].val.opval)->op_type != OP_TRANSR @@ -1832,186 +1856,186 @@ case 2: break; - case 237: -#line 1237 "perly.y" + case 240: +#line 1249 "perly.y" { (yyval.opval) = pmruntime((ps[-5].val.opval), (ps[-2].val.opval), (ps[-1].val.opval), 1, (ps[-4].val.ival)); } break; - case 241: -#line 1245 "perly.y" + case 244: +#line 1257 "perly.y" { (yyval.opval) = my_attrs((ps[-1].val.opval),(ps[0].val.opval)); } break; - case 242: -#line 1247 "perly.y" + case 245: +#line 1259 "perly.y" { (yyval.opval) = localize((ps[0].val.opval),1); } break; - case 243: -#line 1249 "perly.y" + case 246: +#line 1261 "perly.y" { (yyval.opval) = newUNOP(OP_REFGEN, 0, my_attrs((ps[-1].val.opval),(ps[0].val.opval))); } break; - case 244: -#line 1254 "perly.y" + case 247: +#line 1266 "perly.y" { (yyval.opval) = sawparens((ps[-1].val.opval)); } break; - case 245: -#line 1256 "perly.y" + case 248: +#line 1268 "perly.y" { (yyval.opval) = sawparens(newNULLLIST()); } break; - case 246: -#line 1259 "perly.y" + case 249: +#line 1271 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 247: -#line 1261 "perly.y" + case 250: +#line 1273 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 248: -#line 1263 "perly.y" + case 251: +#line 1275 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 249: -#line 1268 "perly.y" + case 252: +#line 1280 "perly.y" { (yyval.opval) = NULL; } break; - case 250: -#line 1270 "perly.y" + case 253: +#line 1282 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 251: -#line 1274 "perly.y" + case 254: +#line 1286 "perly.y" { (yyval.opval) = NULL; } break; - case 252: -#line 1276 "perly.y" + case 255: +#line 1288 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 253: -#line 1280 "perly.y" + case 256: +#line 1292 "perly.y" { (yyval.opval) = NULL; } break; - case 254: -#line 1282 "perly.y" + case 257: +#line 1294 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; - case 255: -#line 1288 "perly.y" + case 258: +#line 1300 "perly.y" { parser->in_my = 0; (yyval.opval) = my((ps[0].val.opval)); } break; - case 263: -#line 1305 "perly.y" + case 266: +#line 1317 "perly.y" { (yyval.opval) = newCVREF((ps[-1].val.ival),(ps[0].val.opval)); } break; - case 264: -#line 1309 "perly.y" + case 267: +#line 1321 "perly.y" { (yyval.opval) = newSVREF((ps[0].val.opval)); } break; - case 265: -#line 1313 "perly.y" + case 268: +#line 1325 "perly.y" { (yyval.opval) = newAVREF((ps[0].val.opval)); if ((yyval.opval)) (yyval.opval)->op_private |= (ps[-1].val.ival); } break; - case 266: -#line 1319 "perly.y" + case 269: +#line 1331 "perly.y" { (yyval.opval) = newHVREF((ps[0].val.opval)); if ((yyval.opval)) (yyval.opval)->op_private |= (ps[-1].val.ival); } break; - case 267: -#line 1325 "perly.y" + case 270: +#line 1337 "perly.y" { (yyval.opval) = newAVREF((ps[0].val.opval)); } break; - case 268: -#line 1327 "perly.y" + case 271: +#line 1339 "perly.y" { (yyval.opval) = newAVREF((ps[-3].val.opval)); } break; - case 269: -#line 1331 "perly.y" + case 272: +#line 1343 "perly.y" { (yyval.opval) = newGVREF(0,(ps[0].val.opval)); } break; - case 271: -#line 1336 "perly.y" + case 274: +#line 1348 "perly.y" { (yyval.opval) = newAVREF((ps[-2].val.opval)); } break; - case 273: -#line 1341 "perly.y" + case 276: +#line 1353 "perly.y" { (yyval.opval) = newHVREF((ps[-2].val.opval)); } break; - case 275: -#line 1346 "perly.y" + case 278: +#line 1358 "perly.y" { (yyval.opval) = newGVREF(0,(ps[-2].val.opval)); } break; - case 276: -#line 1351 "perly.y" + case 279: +#line 1363 "perly.y" { (yyval.opval) = scalar((ps[0].val.opval)); } break; - case 277: -#line 1353 "perly.y" + case 280: +#line 1365 "perly.y" { (yyval.opval) = scalar((ps[0].val.opval)); } break; - case 278: -#line 1355 "perly.y" + case 281: +#line 1367 "perly.y" { (yyval.opval) = op_scope((ps[0].val.opval)); } break; - case 279: -#line 1358 "perly.y" + case 282: +#line 1370 "perly.y" { (yyval.opval) = (ps[0].val.opval); } break; @@ -2023,6 +2047,6 @@ case 2: /* Generated from: - * 41d458c12a47d69d8ab1315970582b2055ecea77bfc8a582b557e9b3df1c290a perly.y + * 4d7581de6482210c9b2f3302b589173c8d8c0a88724cc58b659ca9dcd2a35761 perly.y * 0947213b55d0ed11693554bea04987e886cf285f5c14cf9075fa1e7acc3f4061 regen_perly.pl * ex: set ro: */ |