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