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