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