perly.act

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