perly.act

   1 case 2:
   2 #line 88 "perly.y"
   3     { yyval.ival = yyvsp[-1].ival; newPROG(block_end(yyvsp[-1].ival,yyvsp[0].opval)); ;}
   4     break;
   5
   6   case 3:
   7 #line 93 "perly.y"
   8     { if (PL_copline > (line_t)yyvsp[-3].ival)
   9                               PL_copline = (line_t)yyvsp[-3].ival;
  10                           yyval.opval = block_end(yyvsp[-2].ival, yyvsp[-1].opval); ;}
  11     break;
  12
  13   case 4:
  14 #line 99 "perly.y"
  15     { yyval.ival = block_start(TRUE); ;}
  16     break;
  17
  18   case 5:
  19 #line 103 "perly.y"
  20     {
  21                     PL_expect = XSTATE; yyval.ival = block_start(TRUE);
  22                 ;}
  23     break;
  24
  25   case 6:
  26 #line 110 "perly.y"
  27     { if (PL_copline > (line_t)yyvsp[-3].ival)
  28                               PL_copline = (line_t)yyvsp[-3].ival;
  29                           yyval.opval = block_end(yyvsp[-2].ival, yyvsp[-1].opval); ;}
  30     break;
  31
  32   case 7:
  33 #line 116 "perly.y"
  34     { yyval.ival = block_start(FALSE); ;}
  35     break;
  36
  37   case 8:
  38 #line 120 "perly.y"
  39     { yyval.ival = PL_savestack_ix; ;}
  40     break;
  41
  42   case 9:
  43 #line 124 "perly.y"
  44     { yyval.opval = Nullop; ;}
  45     break;
  46
  47   case 10:
  48 #line 126 "perly.y"
  49     { yyval.opval = yyvsp[-1].opval; ;}
  50     break;
  51
  52   case 11:
  53 #line 128 "perly.y"
  54     {   LEAVE_SCOPE(yyvsp[-1].ival);
  55                             yyval.opval = append_list(OP_LINESEQ,
  56                                 (LISTOP*)yyvsp[-2].opval, (LISTOP*)yyvsp[0].opval);
  57                             PL_pad_reset_pending = TRUE;
  58                             if (yyvsp[-2].opval && yyvsp[0].opval) PL_hints |= HINT_BLOCK_SCOPE; ;}
  59     break;
  60
  61   case 12:
  62 #line 137 "perly.y"
  63     { yyval.opval = newSTATEOP(0, yyvsp[-1].pval, yyvsp[0].opval); ;}
  64     break;
  65
  66   case 14:
  67 #line 140 "perly.y"
  68     { if (yyvsp[-1].pval != Nullch) {
  69                               yyval.opval = newSTATEOP(0, yyvsp[-1].pval, newOP(OP_NULL, 0));
  70                             }
  71                             else {
  72                               yyval.opval = Nullop;
  73                               PL_copline = NOLINE;
  74                             }
  75                             PL_expect = XSTATE; ;}
  76     break;
  77
  78   case 15:
  79 #line 149 "perly.y"
  80     { yyval.opval = newSTATEOP(0, yyvsp[-2].pval, yyvsp[-1].opval);
  81                           PL_expect = XSTATE; ;}
  82     break;
  83
  84   case 16:
  85 #line 155 "perly.y"
  86     { yyval.opval = Nullop; ;}
  87     break;
  88
  89   case 17:
  90 #line 157 "perly.y"
  91     { yyval.opval = yyvsp[0].opval; ;}
  92     break;
  93
  94   case 18:
  95 #line 159 "perly.y"
  96     { yyval.opval = newLOGOP(OP_AND, 0, yyvsp[0].opval, yyvsp[-2].opval); ;}
  97     break;
  98
  99   case 19:
 100 #line 161 "perly.y"
 101     { yyval.opval = newLOGOP(OP_OR, 0, yyvsp[0].opval, yyvsp[-2].opval); ;}
 102     break;
 103
 104   case 20:
 105 #line 163 "perly.y"
 106     { yyval.opval = newLOOPOP(OPf_PARENS, 1, scalar(yyvsp[0].opval), yyvsp[-2].opval); ;}
 107     break;
 108
 109   case 21:
 110 #line 165 "perly.y"
 111     { yyval.opval = newLOOPOP(OPf_PARENS, 1, yyvsp[0].opval, yyvsp[-2].opval);;}
 112     break;
 113
 114   case 22:
 115 #line 167 "perly.y"
 116     { yyval.opval = newFOROP(0, Nullch, (line_t)yyvsp[-1].ival,
 117                                         Nullop, yyvsp[0].opval, yyvsp[-2].opval, Nullop); ;}
 118     break;
 119
 120   case 23:
 121 #line 173 "perly.y"
 122     { yyval.opval = Nullop; ;}
 123     break;
 124
 125   case 24:
 126 #line 175 "perly.y"
 127     { (yyvsp[0].opval)->op_flags |= OPf_PARENS; yyval.opval = scope(yyvsp[0].opval); ;}
 128     break;
 129
 130   case 25:
 131 #line 177 "perly.y"
 132     { PL_copline = (line_t)yyvsp[-5].ival;
 133                             yyval.opval = newCONDOP(0, yyvsp[-3].opval, scope(yyvsp[-1].opval), yyvsp[0].opval);
 134                             PL_hints |= HINT_BLOCK_SCOPE; ;}
 135     break;
 136
 137   case 26:
 138 #line 184 "perly.y"
 139     { PL_copline = (line_t)yyvsp[-6].ival;
 140                             yyval.opval = block_end(yyvsp[-4].ival,
 141                                    newCONDOP(0, yyvsp[-3].opval, scope(yyvsp[-1].opval), yyvsp[0].opval)); ;}
 142     break;
 143
 144   case 27:
 145 #line 188 "perly.y"
 146     { PL_copline = (line_t)yyvsp[-6].ival;
 147                             yyval.opval = block_end(yyvsp[-4].ival,
 148                                    newCONDOP(0, yyvsp[-3].opval, scope(yyvsp[-1].opval), yyvsp[0].opval)); ;}
 149     break;
 150
 151   case 28:
 152 #line 195 "perly.y"
 153     { yyval.opval = Nullop; ;}
 154     break;
 155
 156   case 29:
 157 #line 197 "perly.y"
 158     { yyval.opval = scope(yyvsp[0].opval); ;}
 159     break;
 160
 161   case 30:
 162 #line 202 "perly.y"
 163     { PL_copline = (line_t)yyvsp[-6].ival;
 164                             yyval.opval = block_end(yyvsp[-4].ival,
 165                                    newSTATEOP(0, yyvsp[-7].pval,
 166                                      newWHILEOP(0, 1, (LOOP*)Nullop,
 167                                                 yyvsp[-6].ival, yyvsp[-3].opval, yyvsp[-1].opval, yyvsp[0].opval))); ;}
 168     break;
 169
 170   case 31:
 171 #line 208 "perly.y"
 172     { PL_copline = (line_t)yyvsp[-6].ival;
 173                             yyval.opval = block_end(yyvsp[-4].ival,
 174                                    newSTATEOP(0, yyvsp[-7].pval,
 175                                      newWHILEOP(0, 1, (LOOP*)Nullop,
 176                                                 yyvsp[-6].ival, yyvsp[-3].opval, yyvsp[-1].opval, yyvsp[0].opval))); ;}
 177     break;
 178
 179   case 32:
 180 #line 214 "perly.y"
 181     { yyval.opval = block_end(yyvsp[-6].ival,
 182                                  newFOROP(0, yyvsp[-9].pval, (line_t)yyvsp[-8].ival, yyvsp[-5].opval, yyvsp[-3].opval, yyvsp[-1].opval, yyvsp[0].opval)); ;}
 183     break;
 184
 185   case 33:
 186 #line 217 "perly.y"
 187     { yyval.opval = block_end(yyvsp[-4].ival,
 188                                  newFOROP(0, yyvsp[-8].pval, (line_t)yyvsp[-7].ival, mod(yyvsp[-6].opval, OP_ENTERLOOP),
 189                                           yyvsp[-3].opval, yyvsp[-1].opval, yyvsp[0].opval)); ;}
 190     break;
 191
 192   case 34:
 193 #line 221 "perly.y"
 194     { yyval.opval = block_end(yyvsp[-4].ival,
 195                                  newFOROP(0, yyvsp[-7].pval, (line_t)yyvsp[-6].ival, Nullop, yyvsp[-3].opval, yyvsp[-1].opval, yyvsp[0].opval)); ;}
 196     break;
 197
 198   case 35:
 199 #line 225 "perly.y"
 200     { OP *forop;
 201                           PL_copline = (line_t)yyvsp[-9].ival;
 202                           forop = newSTATEOP(0, yyvsp[-10].pval,
 203                                             newWHILEOP(0, 1, (LOOP*)Nullop,
 204                                                 yyvsp[-9].ival, scalar(yyvsp[-4].opval),
 205                                                 yyvsp[0].opval, yyvsp[-2].opval));
 206                           if (yyvsp[-6].opval) {
 207                                 forop = append_elem(OP_LINESEQ,
 208                                         newSTATEOP(0, (yyvsp[-10].pval?savepv(yyvsp[-10].pval):Nullch),
 209                                                    yyvsp[-6].opval),
 210                                         forop);
 211                           }
 212
 213                           yyval.opval = block_end(yyvsp[-7].ival, forop); ;}
 214     break;
 215
 216   case 36:
 217 #line 240 "perly.y"
 218     { yyval.opval = newSTATEOP(0, yyvsp[-2].pval,
 219                                  newWHILEOP(0, 1, (LOOP*)Nullop,
 220                                             NOLINE, Nullop, yyvsp[-1].opval, yyvsp[0].opval)); ;}
 221     break;
 222
 223   case 37:
 224 #line 247 "perly.y"
 225     { yyval.opval = Nullop; ;}
 226     break;
 227
 228   case 39:
 229 #line 253 "perly.y"
 230     { (void)scan_num("1", &yylval); yyval.opval = yylval.opval; ;}
 231     break;
 232
 233   case 41:
 234 #line 259 "perly.y"
 235     { yyval.opval = invert(scalar(yyvsp[0].opval)); ;}
 236     break;
 237
 238   case 42:
 239 #line 264 "perly.y"
 240     { yyval.opval = yyvsp[0].opval; intro_my(); ;}
 241     break;
 242
 243   case 43:
 244 #line 268 "perly.y"
 245     { yyval.opval = yyvsp[0].opval; intro_my(); ;}
 246     break;
 247
 248   case 44:
 249 #line 272 "perly.y"
 250     { yyval.opval = yyvsp[0].opval; intro_my(); ;}
 251     break;
 252
 253   case 45:
 254 #line 276 "perly.y"
 255     { yyval.opval = yyvsp[0].opval; intro_my(); ;}
 256     break;
 257
 258   case 46:
 259 #line 281 "perly.y"
 260     { yyval.pval = Nullch; ;}
 261     break;
 262
 263   case 48:
 264 #line 287 "perly.y"
 265     { yyval.ival = 0; ;}
 266     break;
 267
 268   case 49:
 269 #line 289 "perly.y"
 270     { yyval.ival = 0; ;}
 271     break;
 272
 273   case 50:
 274 #line 291 "perly.y"
 275     { yyval.ival = 0; ;}
 276     break;
 277
 278   case 51:
 279 #line 293 "perly.y"
 280     { yyval.ival = 0; ;}
 281     break;
 282
 283   case 52:
 284 #line 295 "perly.y"
 285     { yyval.ival = 0; ;}
 286     break;
 287
 288   case 53:
 289 #line 299 "perly.y"
 290     { newFORM(yyvsp[-2].ival, yyvsp[-1].opval, yyvsp[0].opval); ;}
 291     break;
 292
 293   case 54:
 294 #line 302 "perly.y"
 295     { yyval.opval = yyvsp[0].opval; ;}
 296     break;
 297
 298   case 55:
 299 #line 303 "perly.y"
 300     { yyval.opval = Nullop; ;}
 301     break;
 302
 303   case 56:
 304 #line 308 "perly.y"
 305     { newMYSUB(yyvsp[-4].ival, yyvsp[-3].opval, yyvsp[-2].opval, yyvsp[-1].opval, yyvsp[0].opval); ;}
 306     break;
 307
 308   case 57:
 309 #line 313 "perly.y"
 310     { newATTRSUB(yyvsp[-4].ival, yyvsp[-3].opval, yyvsp[-2].opval, yyvsp[-1].opval, yyvsp[0].opval); ;}
 311     break;
 312
 313   case 58:
 314 #line 317 "perly.y"
 315     { yyval.ival = start_subparse(FALSE, 0); ;}
 316     break;
 317
 318   case 59:
 319 #line 321 "perly.y"
 320     { yyval.ival = start_subparse(FALSE, CVf_ANON); ;}
 321     break;
 322
 323   case 60:
 324 #line 325 "perly.y"
 325     { yyval.ival = start_subparse(TRUE, 0); ;}
 326     break;
 327
 328   case 61:
 329 #line 329 "perly.y"
 330     { STRLEN n_a; char *name = SvPV(((SVOP*)yyvsp[0].opval)->op_sv,n_a);
 331                           if (strEQ(name, "BEGIN") || strEQ(name, "END")
 332                               || strEQ(name, "INIT") || strEQ(name, "CHECK"))
 333                               CvSPECIAL_on(PL_compcv);
 334                           yyval.opval = yyvsp[0].opval; ;}
 335     break;
 336
 337   case 62:
 338 #line 338 "perly.y"
 339     { yyval.opval = Nullop; ;}
 340     break;
 341
 342   case 64:
 343 #line 344 "perly.y"
 344     { yyval.opval = Nullop; ;}
 345     break;
 346
 347   case 65:
 348 #line 346 "perly.y"
 349     { yyval.opval = yyvsp[0].opval; ;}
 350     break;
 351
 352   case 66:
 353 #line 348 "perly.y"
 354     { yyval.opval = Nullop; ;}
 355     break;
 356
 357   case 67:
 358 #line 353 "perly.y"
 359     { yyval.opval = yyvsp[0].opval; ;}
 360     break;
 361
 362   case 68:
 363 #line 355 "perly.y"
 364     { yyval.opval = Nullop; ;}
 365     break;
 366
 367   case 69:
 368 #line 359 "perly.y"
 369     { yyval.opval = yyvsp[0].opval; ;}
 370     break;
 371
 372   case 70:
 373 #line 360 "perly.y"
 374     { yyval.opval = Nullop; PL_expect = XSTATE; ;}
 375     break;
 376
 377   case 71:
 378 #line 364 "perly.y"
 379     { package(yyvsp[-1].opval); ;}
 380     break;
 381
 382   case 72:
 383 #line 368 "perly.y"
 384     { CvSPECIAL_on(PL_compcv); /* It's a BEGIN {} */ ;}
 385     break;
 386
 387   case 73:
 388 #line 370 "perly.y"
 389     { utilize(yyvsp[-6].ival, yyvsp[-5].ival, yyvsp[-3].opval, yyvsp[-2].opval, yyvsp[-1].opval); ;}
 390     break;
 391
 392   case 74:
 393 #line 375 "perly.y"
 394     { yyval.opval = newLOGOP(OP_AND, 0, yyvsp[-2].opval, yyvsp[0].opval); ;}
 395     break;
 396
 397   case 75:
 398 #line 377 "perly.y"
 399     { yyval.opval = newLOGOP(yyvsp[-1].ival, 0, yyvsp[-2].opval, yyvsp[0].opval); ;}
 400     break;
 401
 402   case 76:
 403 #line 379 "perly.y"
 404     { yyval.opval = newLOGOP(OP_DOR, 0, yyvsp[-2].opval, yyvsp[0].opval); ;}
 405     break;
 406
 407   case 78:
 408 #line 385 "perly.y"
 409     { yyval.opval = yyvsp[-1].opval; ;}
 410     break;
 411
 412   case 79:
 413 #line 387 "perly.y"
 414     { yyval.opval = append_elem(OP_LIST, yyvsp[-2].opval, yyvsp[0].opval); ;}
 415     break;
 416
 417   case 81:
 418 #line 393 "perly.y"
 419     { yyval.opval = convert(yyvsp[-2].ival, OPf_STACKED,
 420                                 prepend_elem(OP_LIST, newGVREF(yyvsp[-2].ival,yyvsp[-1].opval), yyvsp[0].opval) ); ;}
 421     break;
 422
 423   case 82:
 424 #line 396 "perly.y"
 425     { yyval.opval = convert(yyvsp[-4].ival, OPf_STACKED,
 426                                 prepend_elem(OP_LIST, newGVREF(yyvsp[-4].ival,yyvsp[-2].opval), yyvsp[-1].opval) ); ;}
 427     break;
 428
 429   case 83:
 430 #line 399 "perly.y"
 431     { yyval.opval = convert(OP_ENTERSUB, OPf_STACKED,
 432                                 append_elem(OP_LIST,
 433                                     prepend_elem(OP_LIST, scalar(yyvsp[-5].opval), yyvsp[-1].opval),
 434                                     newUNOP(OP_METHOD, 0, yyvsp[-3].opval))); ;}
 435     break;
 436
 437   case 84:
 438 #line 404 "perly.y"
 439     { yyval.opval = convert(OP_ENTERSUB, OPf_STACKED,
 440                                 append_elem(OP_LIST, scalar(yyvsp[-2].opval),
 441                                     newUNOP(OP_METHOD, 0, yyvsp[0].opval))); ;}
 442     break;
 443
 444   case 85:
 445 #line 408 "perly.y"
 446     { yyval.opval = convert(OP_ENTERSUB, OPf_STACKED,
 447                                 append_elem(OP_LIST,
 448                                     prepend_elem(OP_LIST, yyvsp[-1].opval, yyvsp[0].opval),
 449                                     newUNOP(OP_METHOD, 0, yyvsp[-2].opval))); ;}
 450     break;
 451
 452   case 86:
 453 #line 413 "perly.y"
 454     { yyval.opval = convert(OP_ENTERSUB, OPf_STACKED,
 455                                 append_elem(OP_LIST,
 456                                     prepend_elem(OP_LIST, yyvsp[-3].opval, yyvsp[-1].opval),
 457                                     newUNOP(OP_METHOD, 0, yyvsp[-4].opval))); ;}
 458     break;
 459
 460   case 87:
 461 #line 418 "perly.y"
 462     { yyval.opval = convert(yyvsp[-1].ival, 0, yyvsp[0].opval); ;}
 463     break;
 464
 465   case 88:
 466 #line 420 "perly.y"
 467     { yyval.opval = convert(yyvsp[-3].ival, 0, yyvsp[-1].opval); ;}
 468     break;
 469
 470   case 89:
 471 #line 422 "perly.y"
 472     { yyvsp[0].opval = newANONATTRSUB(yyvsp[-1].ival, 0, Nullop, yyvsp[0].opval); ;}
 473     break;
 474
 475   case 90:
 476 #line 424 "perly.y"
 477     { yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED,
 478                                  append_elem(OP_LIST,
 479                                    prepend_elem(OP_LIST, yyvsp[-2].opval, yyvsp[0].opval), yyvsp[-4].opval)); ;}
 480     break;
 481
 482   case 93:
 483 #line 438 "perly.y"
 484     { yyval.opval = newBINOP(OP_GELEM, 0, yyvsp[-4].opval, scalar(yyvsp[-2].opval));
 485                             PL_expect = XOPERATOR; ;}
 486     break;
 487
 488   case 94:
 489 #line 441 "perly.y"
 490     { yyval.opval = newBINOP(OP_AELEM, 0, oopsAV(yyvsp[-3].opval), scalar(yyvsp[-1].opval)); ;}
 491     break;
 492
 493   case 95:
 494 #line 443 "perly.y"
 495     { yyval.opval = newBINOP(OP_AELEM, 0,
 496                                         ref(newAVREF(yyvsp[-4].opval),OP_RV2AV),
 497                                         scalar(yyvsp[-1].opval));;}
 498     break;
 499
 500   case 96:
 501 #line 447 "perly.y"
 502     { yyval.opval = newBINOP(OP_AELEM, 0,
 503                                         ref(newAVREF(yyvsp[-3].opval),OP_RV2AV),
 504                                         scalar(yyvsp[-1].opval));;}
 505     break;
 506
 507   case 97:
 508 #line 451 "perly.y"
 509     { yyval.opval = newBINOP(OP_HELEM, 0, oopsHV(yyvsp[-4].opval), jmaybe(yyvsp[-2].opval));
 510                             PL_expect = XOPERATOR; ;}
 511     break;
 512
 513   case 98:
 514 #line 454 "perly.y"
 515     { yyval.opval = newBINOP(OP_HELEM, 0,
 516                                         ref(newHVREF(yyvsp[-5].opval),OP_RV2HV),
 517                                         jmaybe(yyvsp[-2].opval));
 518                             PL_expect = XOPERATOR; ;}
 519     break;
 520
 521   case 99:
 522 #line 459 "perly.y"
 523     { yyval.opval = newBINOP(OP_HELEM, 0,
 524                                         ref(newHVREF(yyvsp[-4].opval),OP_RV2HV),
 525                                         jmaybe(yyvsp[-2].opval));
 526                             PL_expect = XOPERATOR; ;}
 527     break;
 528
 529   case 100:
 530 #line 464 "perly.y"
 531     { yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED,
 532                                    newCVREF(0, scalar(yyvsp[-3].opval))); ;}
 533     break;
 534
 535   case 101:
 536 #line 467 "perly.y"
 537     { yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED,
 538                                    append_elem(OP_LIST, yyvsp[-1].opval,
 539                                        newCVREF(0, scalar(yyvsp[-4].opval)))); ;}
 540     break;
 541
 542   case 102:
 543 #line 472 "perly.y"
 544     { yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED,
 545                                    append_elem(OP_LIST, yyvsp[-1].opval,
 546                                                newCVREF(0, scalar(yyvsp[-3].opval)))); ;}
 547     break;
 548
 549   case 103:
 550 #line 476 "perly.y"
 551     { yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED,
 552                                    newCVREF(0, scalar(yyvsp[-2].opval))); ;}
 553     break;
 554
 555   case 104:
 556 #line 482 "perly.y"
 557     { yyval.opval = newASSIGNOP(OPf_STACKED, yyvsp[-2].opval, yyvsp[-1].ival, yyvsp[0].opval); ;}
 558     break;
 559
 560   case 105:
 561 #line 484 "perly.y"
 562     { yyval.opval = newBINOP(yyvsp[-1].ival, 0, scalar(yyvsp[-2].opval), scalar(yyvsp[0].opval)); ;}
 563     break;
 564
 565   case 106:
 566 #line 486 "perly.y"
 567     {   if (yyvsp[-1].ival != OP_REPEAT)
 568                                 scalar(yyvsp[-2].opval);
 569                             yyval.opval = newBINOP(yyvsp[-1].ival, 0, yyvsp[-2].opval, scalar(yyvsp[0].opval)); ;}
 570     break;
 571
 572   case 107:
 573 #line 490 "perly.y"
 574     { yyval.opval = newBINOP(yyvsp[-1].ival, 0, scalar(yyvsp[-2].opval), scalar(yyvsp[0].opval)); ;}
 575     break;
 576
 577   case 108:
 578 #line 492 "perly.y"
 579     { yyval.opval = newBINOP(yyvsp[-1].ival, 0, scalar(yyvsp[-2].opval), scalar(yyvsp[0].opval)); ;}
 580     break;
 581
 582   case 109:
 583 #line 494 "perly.y"
 584     { yyval.opval = newBINOP(yyvsp[-1].ival, 0, scalar(yyvsp[-2].opval), scalar(yyvsp[0].opval)); ;}
 585     break;
 586
 587   case 110:
 588 #line 496 "perly.y"
 589     { yyval.opval = newBINOP(yyvsp[-1].ival, 0, scalar(yyvsp[-2].opval), scalar(yyvsp[0].opval)); ;}
 590     break;
 591
 592   case 111:
 593 #line 498 "perly.y"
 594     { yyval.opval = newBINOP(yyvsp[-1].ival, 0, scalar(yyvsp[-2].opval), scalar(yyvsp[0].opval)); ;}
 595     break;
 596
 597   case 112:
 598 #line 500 "perly.y"
 599     { yyval.opval = newBINOP(yyvsp[-1].ival, 0, scalar(yyvsp[-2].opval), scalar(yyvsp[0].opval)); ;}
 600     break;
 601
 602   case 113:
 603 #line 502 "perly.y"
 604     { yyval.opval = newRANGE(yyvsp[-1].ival, scalar(yyvsp[-2].opval), scalar(yyvsp[0].opval));;}
 605     break;
 606
 607   case 114:
 608 #line 504 "perly.y"
 609     { yyval.opval = newLOGOP(OP_AND, 0, yyvsp[-2].opval, yyvsp[0].opval); ;}
 610     break;
 611
 612   case 115:
 613 #line 506 "perly.y"
 614     { yyval.opval = newLOGOP(OP_OR, 0, yyvsp[-2].opval, yyvsp[0].opval); ;}
 615     break;
 616
 617   case 116:
 618 #line 508 "perly.y"
 619     { yyval.opval = newLOGOP(OP_DOR, 0, yyvsp[-2].opval, yyvsp[0].opval); ;}
 620     break;
 621
 622   case 117:
 623 #line 510 "perly.y"
 624     { yyval.opval = bind_match(yyvsp[-1].ival, yyvsp[-2].opval, yyvsp[0].opval); ;}
 625     break;
 626
 627   case 118:
 628 #line 515 "perly.y"
 629     { yyval.opval = newUNOP(OP_NEGATE, 0, scalar(yyvsp[0].opval)); ;}
 630     break;
 631
 632   case 119:
 633 #line 517 "perly.y"
 634     { yyval.opval = yyvsp[0].opval; ;}
 635     break;
 636
 637   case 120:
 638 #line 519 "perly.y"
 639     { yyval.opval = newUNOP(OP_NOT, 0, scalar(yyvsp[0].opval)); ;}
 640     break;
 641
 642   case 121:
 643 #line 521 "perly.y"
 644     { yyval.opval = newUNOP(OP_COMPLEMENT, 0, scalar(yyvsp[0].opval));;}
 645     break;
 646
 647   case 122:
 648 #line 523 "perly.y"
 649     { yyval.opval = newUNOP(OP_POSTINC, 0,
 650                                         mod(scalar(yyvsp[-1].opval), OP_POSTINC)); ;}
 651     break;
 652
 653   case 123:
 654 #line 526 "perly.y"
 655     { yyval.opval = newUNOP(OP_POSTDEC, 0,
 656                                         mod(scalar(yyvsp[-1].opval), OP_POSTDEC)); ;}
 657     break;
 658
 659   case 124:
 660 #line 529 "perly.y"
 661     { yyval.opval = newUNOP(OP_PREINC, 0,
 662                                         mod(scalar(yyvsp[0].opval), OP_PREINC)); ;}
 663     break;
 664
 665   case 125:
 666 #line 532 "perly.y"
 667     { yyval.opval = newUNOP(OP_PREDEC, 0,
 668                                         mod(scalar(yyvsp[0].opval), OP_PREDEC)); ;}
 669     break;
 670
 671   case 126:
 672 #line 539 "perly.y"
 673     { yyval.opval = newANONLIST(yyvsp[-1].opval); ;}
 674     break;
 675
 676   case 127:
 677 #line 541 "perly.y"
 678     { yyval.opval = newANONLIST(Nullop); ;}
 679     break;
 680
 681   case 128:
 682 #line 543 "perly.y"
 683     { yyval.opval = newANONHASH(yyvsp[-2].opval); ;}
 684     break;
 685
 686   case 129:
 687 #line 545 "perly.y"
 688     { yyval.opval = newANONHASH(Nullop); ;}
 689     break;
 690
 691   case 130:
 692 #line 547 "perly.y"
 693     { yyval.opval = newANONATTRSUB(yyvsp[-3].ival, yyvsp[-2].opval, yyvsp[-1].opval, yyvsp[0].opval); ;}
 694     break;
 695
 696   case 131:
 697 #line 553 "perly.y"
 698     { yyval.opval = dofile(yyvsp[0].opval); ;}
 699     break;
 700
 701   case 132:
 702 #line 555 "perly.y"
 703     { yyval.opval = newUNOP(OP_NULL, OPf_SPECIAL, scope(yyvsp[0].opval)); ;}
 704     break;
 705
 706   case 133:
 707 #line 557 "perly.y"
 708     { yyval.opval = newUNOP(OP_ENTERSUB,
 709                             OPf_SPECIAL|OPf_STACKED,
 710                             prepend_elem(OP_LIST,
 711                                 scalar(newCVREF(
 712                                     (OPpENTERSUB_AMPER<<8),
 713                                     scalar(yyvsp[-2].opval)
 714                                 )),Nullop)); dep();;}
 715     break;
 716
 717   case 134:
 718 #line 565 "perly.y"
 719     { yyval.opval = newUNOP(OP_ENTERSUB,
 720                             OPf_SPECIAL|OPf_STACKED,
 721                             append_elem(OP_LIST,
 722                                 yyvsp[-1].opval,
 723                                 scalar(newCVREF(
 724                                     (OPpENTERSUB_AMPER<<8),
 725                                     scalar(yyvsp[-3].opval)
 726                                 )))); dep();;}
 727     break;
 728
 729   case 135:
 730 #line 574 "perly.y"
 731     { yyval.opval = newUNOP(OP_ENTERSUB, OPf_SPECIAL|OPf_STACKED,
 732                             prepend_elem(OP_LIST,
 733                                 scalar(newCVREF(0,scalar(yyvsp[-2].opval))), Nullop)); dep();;}
 734     break;
 735
 736   case 136:
 737 #line 578 "perly.y"
 738     { yyval.opval = newUNOP(OP_ENTERSUB, OPf_SPECIAL|OPf_STACKED,
 739                             prepend_elem(OP_LIST,
 740                                 yyvsp[-1].opval,
 741                                 scalar(newCVREF(0,scalar(yyvsp[-3].opval))))); dep();;}
 742     break;
 743
 744   case 141:
 745 #line 590 "perly.y"
 746     { yyval.opval = newCONDOP(0, yyvsp[-4].opval, yyvsp[-2].opval, yyvsp[0].opval); ;}
 747     break;
 748
 749   case 142:
 750 #line 592 "perly.y"
 751     { yyval.opval = newUNOP(OP_REFGEN, 0, mod(yyvsp[0].opval,OP_REFGEN)); ;}
 752     break;
 753
 754   case 143:
 755 #line 594 "perly.y"
 756     { yyval.opval = yyvsp[0].opval; ;}
 757     break;
 758
 759   case 144:
 760 #line 596 "perly.y"
 761     { yyval.opval = localize(yyvsp[0].opval,yyvsp[-1].ival); ;}
 762     break;
 763
 764   case 145:
 765 #line 598 "perly.y"
 766     { yyval.opval = sawparens(yyvsp[-1].opval); ;}
 767     break;
 768
 769   case 146:
 770 #line 600 "perly.y"
 771     { yyval.opval = sawparens(newNULLLIST()); ;}
 772     break;
 773
 774   case 147:
 775 #line 602 "perly.y"
 776     { yyval.opval = yyvsp[0].opval; ;}
 777     break;
 778
 779   case 148:
 780 #line 604 "perly.y"
 781     { yyval.opval = yyvsp[0].opval; ;}
 782     break;
 783
 784   case 149:
 785 #line 606 "perly.y"
 786     { yyval.opval = yyvsp[0].opval; ;}
 787     break;
 788
 789   case 150:
 790 #line 608 "perly.y"
 791     { yyval.opval = yyvsp[0].opval; ;}
 792     break;
 793
 794   case 151:
 795 #line 610 "perly.y"
 796     { yyval.opval = newUNOP(OP_AV2ARYLEN, 0, ref(yyvsp[0].opval, OP_AV2ARYLEN));;}
 797     break;
 798
 799   case 152:
 800 #line 612 "perly.y"
 801     { yyval.opval = yyvsp[0].opval; ;}
 802     break;
 803
 804   case 153:
 805 #line 614 "perly.y"
 806     { yyval.opval = newSLICEOP(0, yyvsp[-1].opval, yyvsp[-4].opval); ;}
 807     break;
 808
 809   case 154:
 810 #line 616 "perly.y"
 811     { yyval.opval = newSLICEOP(0, yyvsp[-1].opval, Nullop); ;}
 812     break;
 813
 814   case 155:
 815 #line 618 "perly.y"
 816     { yyval.opval = prepend_elem(OP_ASLICE,
 817                                 newOP(OP_PUSHMARK, 0),
 818                                     newLISTOP(OP_ASLICE, 0,
 819                                         list(yyvsp[-1].opval),
 820                                         ref(yyvsp[-3].opval, OP_ASLICE))); ;}
 821     break;
 822
 823   case 156:
 824 #line 624 "perly.y"
 825     { yyval.opval = prepend_elem(OP_HSLICE,
 826                                 newOP(OP_PUSHMARK, 0),
 827                                     newLISTOP(OP_HSLICE, 0,
 828                                         list(yyvsp[-2].opval),
 829                                         ref(oopsHV(yyvsp[-4].opval), OP_HSLICE)));
 830                             PL_expect = XOPERATOR; ;}
 831     break;
 832
 833   case 157:
 834 #line 631 "perly.y"
 835     { yyval.opval = yyvsp[0].opval; ;}
 836     break;
 837
 838   case 158:
 839 #line 633 "perly.y"
 840     { yyval.opval = newUNOP(OP_ENTERSUB, 0, scalar(yyvsp[0].opval)); ;}
 841     break;
 842
 843   case 159:
 844 #line 635 "perly.y"
 845     { yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar(yyvsp[-2].opval)); ;}
 846     break;
 847
 848   case 160:
 849 #line 637 "perly.y"
 850     { yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED,
 851                             append_elem(OP_LIST, yyvsp[-1].opval, scalar(yyvsp[-3].opval))); ;}
 852     break;
 853
 854   case 161:
 855 #line 640 "perly.y"
 856     { yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED,
 857                             append_elem(OP_LIST, yyvsp[0].opval, scalar(yyvsp[-1].opval))); ;}
 858     break;
 859
 860   case 162:
 861 #line 643 "perly.y"
 862     { yyval.opval = newOP(yyvsp[0].ival, OPf_SPECIAL);
 863                             PL_hints |= HINT_BLOCK_SCOPE; ;}
 864     break;
 865
 866   case 163:
 867 #line 646 "perly.y"
 868     { yyval.opval = newLOOPEX(yyvsp[-1].ival,yyvsp[0].opval); ;}
 869     break;
 870
 871   case 164:
 872 #line 648 "perly.y"
 873     { yyval.opval = newUNOP(OP_NOT, 0, scalar(yyvsp[0].opval)); ;}
 874     break;
 875
 876   case 165:
 877 #line 650 "perly.y"
 878     { yyval.opval = newOP(yyvsp[0].ival, 0); ;}
 879     break;
 880
 881   case 166:
 882 #line 652 "perly.y"
 883     { yyval.opval = newUNOP(yyvsp[-1].ival, 0, yyvsp[0].opval); ;}
 884     break;
 885
 886   case 167:
 887 #line 654 "perly.y"
 888     { yyval.opval = newUNOP(yyvsp[-1].ival, 0, yyvsp[0].opval); ;}
 889     break;
 890
 891   case 168:
 892 #line 656 "perly.y"
 893     { yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED,
 894                             append_elem(OP_LIST, yyvsp[0].opval, scalar(yyvsp[-1].opval))); ;}
 895     break;
 896
 897   case 169:
 898 #line 659 "perly.y"
 899     { yyval.opval = newOP(yyvsp[0].ival, 0); ;}
 900     break;
 901
 902   case 170:
 903 #line 661 "perly.y"
 904     { yyval.opval = newOP(yyvsp[-2].ival, 0); ;}
 905     break;
 906
 907   case 171:
 908 #line 663 "perly.y"
 909     { yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED,
 910                                 scalar(yyvsp[0].opval)); ;}
 911     break;
 912
 913   case 172:
 914 #line 666 "perly.y"
 915     { yyval.opval = newOP(yyvsp[-2].ival, OPf_SPECIAL); ;}
 916     break;
 917
 918   case 173:
 919 #line 668 "perly.y"
 920     { yyval.opval = newUNOP(yyvsp[-3].ival, 0, yyvsp[-1].opval); ;}
 921     break;
 922
 923   case 174:
 924 #line 670 "perly.y"
 925     { yyval.opval = pmruntime(yyvsp[-3].opval, yyvsp[-1].opval, Nullop); ;}
 926     break;
 927
 928   case 175:
 929 #line 672 "perly.y"
 930     { yyval.opval = pmruntime(yyvsp[-5].opval, yyvsp[-3].opval, yyvsp[-1].opval); ;}
 931     break;
 932
 933   case 178:
 934 #line 679 "perly.y"
 935     { yyval.opval = my_attrs(yyvsp[-1].opval,yyvsp[0].opval); ;}
 936     break;
 937
 938   case 179:
 939 #line 681 "perly.y"
 940     { yyval.opval = localize(yyvsp[0].opval,yyvsp[-1].ival); ;}
 941     break;
 942
 943   case 180:
 944 #line 686 "perly.y"
 945     { yyval.opval = sawparens(yyvsp[-1].opval); ;}
 946     break;
 947
 948   case 181:
 949 #line 688 "perly.y"
 950     { yyval.opval = sawparens(newNULLLIST()); ;}
 951     break;
 952
 953   case 182:
 954 #line 690 "perly.y"
 955     { yyval.opval = yyvsp[0].opval; ;}
 956     break;
 957
 958   case 183:
 959 #line 692 "perly.y"
 960     { yyval.opval = yyvsp[0].opval; ;}
 961     break;
 962
 963   case 184:
 964 #line 694 "perly.y"
 965     { yyval.opval = yyvsp[0].opval; ;}
 966     break;
 967
 968   case 185:
 969 #line 699 "perly.y"
 970     { yyval.opval = Nullop; ;}
 971     break;
 972
 973   case 186:
 974 #line 701 "perly.y"
 975     { yyval.opval = yyvsp[0].opval; ;}
 976     break;
 977
 978   case 187:
 979 #line 705 "perly.y"
 980     { yyval.opval = Nullop; ;}
 981     break;
 982
 983   case 188:
 984 #line 707 "perly.y"
 985     { yyval.opval = yyvsp[0].opval; ;}
 986     break;
 987
 988   case 189:
 989 #line 709 "perly.y"
 990     { yyval.opval = yyvsp[-1].opval; ;}
 991     break;
 992
 993   case 190:
 994 #line 715 "perly.y"
 995     { PL_in_my = 0; yyval.opval = my(yyvsp[0].opval); ;}
 996     break;
 997
 998   case 191:
 999 #line 719 "perly.y"
1000     { yyval.opval = newCVREF(yyvsp[-1].ival,yyvsp[0].opval); ;}
1001     break;
1002
1003   case 192:
1004 #line 723 "perly.y"
1005     { yyval.opval = newSVREF(yyvsp[0].opval); ;}
1006     break;
1007
1008   case 193:
1009 #line 727 "perly.y"
1010     { yyval.opval = newAVREF(yyvsp[0].opval); ;}
1011     break;
1012
1013   case 194:
1014 #line 731 "perly.y"
1015     { yyval.opval = newHVREF(yyvsp[0].opval); ;}
1016     break;
1017
1018   case 195:
1019 #line 735 "perly.y"
1020     { yyval.opval = newAVREF(yyvsp[0].opval); ;}
1021     break;
1022
1023   case 196:
1024 #line 739 "perly.y"
1025     { yyval.opval = newGVREF(0,yyvsp[0].opval); ;}
1026     break;
1027
1028   case 197:
1029 #line 744 "perly.y"
1030     { yyval.opval = scalar(yyvsp[0].opval); ;}
1031     break;
1032
1033   case 198:
1034 #line 746 "perly.y"
1035     { yyval.opval = scalar(yyvsp[0].opval);  ;}
1036     break;
1037
1038   case 199:
1039 #line 748 "perly.y"
1040     { yyval.opval = scope(yyvsp[0].opval); ;}
1041     break;
1042
1043   case 200:
1044 #line 751 "perly.y"
1045     { yyval.opval = yyvsp[0].opval; ;}
1046     break;
1047
1048
1049