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