1 /* -*- buffer-read-only: t -*-
2 !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
3 This file is built by regen_perly.pl from perly.y.
4 Any changes made here will be lost!
8 #line 118 "perly.y" /* yacc.c:1646 */
10 parser->expect = XSTATE;
17 #line 123 "perly.y" /* yacc.c:1646 */
19 newPROG(block_end((ps[-1].val.ival),(ps[0].val.opval)));
20 PL_compiling.cop_seq = 0;
27 #line 129 "perly.y" /* yacc.c:1646 */
29 parser->expect = XTERM;
36 #line 134 "perly.y" /* yacc.c:1646 */
38 PL_eval_root = (ps[0].val.opval);
45 #line 139 "perly.y" /* yacc.c:1646 */
47 parser->expect = XBLOCK;
54 #line 144 "perly.y" /* yacc.c:1646 */
56 PL_pad_reset_pending = TRUE;
57 PL_eval_root = (ps[0].val.opval);
60 parser->yychar = yytoken = YYEOF;
66 #line 152 "perly.y" /* yacc.c:1646 */
68 parser->expect = XSTATE;
75 #line 157 "perly.y" /* yacc.c:1646 */
77 PL_pad_reset_pending = TRUE;
78 PL_eval_root = (ps[0].val.opval);
81 parser->yychar = yytoken = YYEOF;
87 #line 165 "perly.y" /* yacc.c:1646 */
89 parser->expect = XSTATE;
96 #line 170 "perly.y" /* yacc.c:1646 */
98 PL_pad_reset_pending = TRUE;
99 PL_eval_root = (ps[0].val.opval);
102 parser->yychar = yytoken = YYEOF;
108 #line 178 "perly.y" /* yacc.c:1646 */
110 parser->expect = XSTATE;
117 #line 183 "perly.y" /* yacc.c:1646 */
119 PL_eval_root = (ps[0].val.opval);
126 #line 191 "perly.y" /* yacc.c:1646 */
127 { if (parser->copline > (line_t)(ps[-3].val.ival))
128 parser->copline = (line_t)(ps[-3].val.ival);
129 (yyval.opval) = block_end((ps[-2].val.ival), (ps[-1].val.opval));
135 #line 199 "perly.y" /* yacc.c:1646 */
136 { if (parser->copline > (line_t)(ps[-6].val.ival))
137 parser->copline = (line_t)(ps[-6].val.ival);
138 (yyval.opval) = block_end((ps[-5].val.ival), (ps[-2].val.opval));
144 #line 206 "perly.y" /* yacc.c:1646 */
145 { (yyval.ival) = block_start(TRUE);
146 parser->parsed_sub = 0; }
151 #line 211 "perly.y" /* yacc.c:1646 */
152 { if (parser->copline > (line_t)(ps[-3].val.ival))
153 parser->copline = (line_t)(ps[-3].val.ival);
154 (yyval.opval) = block_end((ps[-2].val.ival), (ps[-1].val.opval));
160 #line 218 "perly.y" /* yacc.c:1646 */
161 { (yyval.ival) = block_start(FALSE);
162 parser->parsed_sub = 0; }
167 #line 224 "perly.y" /* yacc.c:1646 */
168 { (yyval.opval) = NULL; }
173 #line 226 "perly.y" /* yacc.c:1646 */
174 { (yyval.opval) = op_append_list(OP_LINESEQ, (ps[-1].val.opval), (ps[0].val.opval));
175 PL_pad_reset_pending = TRUE;
176 if ((ps[-1].val.opval) && (ps[0].val.opval))
177 PL_hints |= HINT_BLOCK_SCOPE;
183 #line 235 "perly.y" /* yacc.c:1646 */
184 { (yyval.opval) = NULL; }
189 #line 237 "perly.y" /* yacc.c:1646 */
190 { (yyval.opval) = op_append_list(OP_LINESEQ, (ps[-1].val.opval), (ps[0].val.opval));
191 PL_pad_reset_pending = TRUE;
192 if ((ps[-1].val.opval) && (ps[0].val.opval))
193 PL_hints |= HINT_BLOCK_SCOPE;
199 #line 246 "perly.y" /* yacc.c:1646 */
201 (yyval.opval) = (ps[0].val.opval) ? newSTATEOP(0, NULL, (ps[0].val.opval)) : NULL;
207 #line 250 "perly.y" /* yacc.c:1646 */
208 { (yyval.opval) = (ps[0].val.opval); }
213 #line 254 "perly.y" /* yacc.c:1646 */
215 (yyval.opval) = newSTATEOP(SVf_UTF8 * (ps[-1].val.pval)[strlen((ps[-1].val.pval))+1], (ps[-1].val.pval), (ps[0].val.opval));
221 #line 258 "perly.y" /* yacc.c:1646 */
223 (yyval.opval) = newSTATEOP(SVf_UTF8 * (ps[-1].val.pval)[strlen((ps[-1].val.pval))+1], (ps[-1].val.pval), (ps[0].val.opval));
229 #line 265 "perly.y" /* yacc.c:1646 */
230 { (yyval.opval) = (ps[0].val.opval); }
235 #line 267 "perly.y" /* yacc.c:1646 */
237 CV *fmtcv = PL_compcv;
238 newFORM((ps[-2].val.ival), (ps[-1].val.opval), (ps[0].val.opval));
239 (yyval.opval) = NULL;
240 if (CvOUTSIDE(fmtcv) && !CvEVAL(CvOUTSIDE(fmtcv))) {
241 pad_add_weakref(fmtcv);
243 parser->parsed_sub = 1;
249 #line 277 "perly.y" /* yacc.c:1646 */
251 if ((ps[-1].val.opval)->op_type == OP_CONST) {
252 const char *const name =
253 SvPV_nolen_const(((SVOP*)(ps[-1].val.opval))->op_sv);
254 if (strEQ(name, "BEGIN") || strEQ(name, "END")
255 || strEQ(name, "INIT") || strEQ(name, "CHECK")
256 || strEQ(name, "UNITCHECK"))
257 CvSPECIAL_on(PL_compcv);
260 /* State subs inside anonymous subs need to be
261 clonable themselves. */
262 if (CvANON(CvOUTSIDE(PL_compcv))
263 || CvCLONE(CvOUTSIDE(PL_compcv))
264 || !PadnameIsSTATE(PadlistNAMESARRAY(CvPADLIST(
266 ))[(ps[-1].val.opval)->op_targ]))
267 CvCLONE_on(PL_compcv);
269 parser->in_my_stash = NULL;
275 #line 299 "perly.y" /* yacc.c:1646 */
277 SvREFCNT_inc_simple_void(PL_compcv);
278 (ps[-5].val.opval)->op_type == OP_CONST
279 ? newATTRSUB((ps[-4].val.ival), (ps[-5].val.opval), (ps[-2].val.opval), (ps[-1].val.opval), (ps[0].val.opval))
280 : newMYSUB((ps[-4].val.ival), (ps[-5].val.opval), (ps[-2].val.opval), (ps[-1].val.opval), (ps[0].val.opval))
282 (yyval.opval) = NULL;
284 parser->parsed_sub = 1;
290 #line 310 "perly.y" /* yacc.c:1646 */
292 if ((ps[-1].val.opval)->op_type == OP_CONST) {
293 const char *const name =
294 SvPV_nolen_const(((SVOP*)(ps[-1].val.opval))->op_sv);
295 if (strEQ(name, "BEGIN") || strEQ(name, "END")
296 || strEQ(name, "INIT") || strEQ(name, "CHECK")
297 || strEQ(name, "UNITCHECK"))
298 CvSPECIAL_on(PL_compcv);
301 /* State subs inside anonymous subs need to be
302 clonable themselves. */
303 if (CvANON(CvOUTSIDE(PL_compcv))
304 || CvCLONE(CvOUTSIDE(PL_compcv))
305 || !PadnameIsSTATE(PadlistNAMESARRAY(CvPADLIST(
307 ))[(ps[-1].val.opval)->op_targ]))
308 CvCLONE_on(PL_compcv);
310 parser->in_my_stash = NULL;
316 #line 332 "perly.y" /* yacc.c:1646 */
319 if (parser->copline > (line_t)(ps[-2].val.ival))
320 parser->copline = (line_t)(ps[-2].val.ival);
321 body = block_end((ps[-5].val.ival),
322 op_append_list(OP_LINESEQ, (ps[-4].val.opval), (ps[-1].val.opval)));
324 SvREFCNT_inc_simple_void(PL_compcv);
325 (ps[-8].val.opval)->op_type == OP_CONST
326 ? newATTRSUB((ps[-7].val.ival), (ps[-8].val.opval), NULL, (ps[-3].val.opval), body)
327 : newMYSUB((ps[-7].val.ival), (ps[-8].val.opval), NULL, (ps[-3].val.opval), body)
329 (yyval.opval) = NULL;
331 parser->parsed_sub = 1;
337 #line 349 "perly.y" /* yacc.c:1646 */
339 package((ps[-1].val.opval));
340 if ((ps[-2].val.opval))
341 package_version((ps[-2].val.opval));
342 (yyval.opval) = NULL;
348 #line 356 "perly.y" /* yacc.c:1646 */
349 { CvSPECIAL_on(PL_compcv); /* It's a BEGIN {} */ }
354 #line 358 "perly.y" /* yacc.c:1646 */
356 SvREFCNT_inc_simple_void(PL_compcv);
357 utilize((ps[-6].val.ival), (ps[-5].val.ival), (ps[-3].val.opval), (ps[-2].val.opval), (ps[-1].val.opval));
358 parser->parsed_sub = 1;
359 (yyval.opval) = NULL;
365 #line 365 "perly.y" /* yacc.c:1646 */
367 (yyval.opval) = block_end((ps[-4].val.ival),
368 newCONDOP(0, (ps[-3].val.opval), op_scope((ps[-1].val.opval)), (ps[0].val.opval)));
369 parser->copline = (line_t)(ps[-6].val.ival);
375 #line 371 "perly.y" /* yacc.c:1646 */
377 (yyval.opval) = block_end((ps[-4].val.ival),
378 newCONDOP(0, (ps[-3].val.opval), (ps[0].val.opval), op_scope((ps[-1].val.opval))));
379 parser->copline = (line_t)(ps[-6].val.ival);
385 #line 377 "perly.y" /* yacc.c:1646 */
387 (yyval.opval) = block_end((ps[-3].val.ival), newGIVENOP((ps[-2].val.opval), op_scope((ps[0].val.opval)), 0));
388 parser->copline = (line_t)(ps[-5].val.ival);
394 #line 382 "perly.y" /* yacc.c:1646 */
395 { (yyval.opval) = block_end((ps[-3].val.ival), newWHENOP((ps[-2].val.opval), op_scope((ps[0].val.opval)))); }
400 #line 384 "perly.y" /* yacc.c:1646 */
401 { (yyval.opval) = newWHENOP(0, op_scope((ps[0].val.opval))); }
406 #line 386 "perly.y" /* yacc.c:1646 */
408 (yyval.opval) = block_end((ps[-5].val.ival),
409 newWHILEOP(0, 1, NULL,
410 (ps[-4].val.opval), (ps[-1].val.opval), (ps[0].val.opval), (ps[-2].val.ival)));
411 parser->copline = (line_t)(ps[-7].val.ival);
417 #line 393 "perly.y" /* yacc.c:1646 */
419 (yyval.opval) = block_end((ps[-5].val.ival),
420 newWHILEOP(0, 1, NULL,
421 (ps[-4].val.opval), (ps[-1].val.opval), (ps[0].val.opval), (ps[-2].val.ival)));
422 parser->copline = (line_t)(ps[-7].val.ival);
428 #line 400 "perly.y" /* yacc.c:1646 */
429 { parser->expect = XTERM; }
434 #line 402 "perly.y" /* yacc.c:1646 */
435 { parser->expect = XTERM; }
440 #line 405 "perly.y" /* yacc.c:1646 */
442 OP *initop = (ps[-9].val.opval);
443 OP *forop = newWHILEOP(0, 1, NULL,
444 scalar((ps[-6].val.opval)), (ps[0].val.opval), (ps[-2].val.opval), (ps[-3].val.ival));
446 forop = op_prepend_elem(OP_LINESEQ, initop,
447 op_append_elem(OP_LINESEQ,
448 newOP(OP_UNSTACK, OPf_SPECIAL),
451 PL_hints |= HINT_BLOCK_SCOPE;
452 (yyval.opval) = block_end((ps[-10].val.ival), forop);
453 parser->copline = (line_t)(ps[-12].val.ival);
459 #line 420 "perly.y" /* yacc.c:1646 */
461 (yyval.opval) = block_end((ps[-6].val.ival), newFOROP(0, (ps[-5].val.opval), (ps[-3].val.opval), (ps[-1].val.opval), (ps[0].val.opval)));
462 parser->copline = (line_t)(ps[-8].val.ival);
468 #line 425 "perly.y" /* yacc.c:1646 */
470 (yyval.opval) = block_end((ps[-4].val.ival), newFOROP(0,
471 op_lvalue((ps[-6].val.opval), OP_ENTERLOOP), (ps[-3].val.opval), (ps[-1].val.opval), (ps[0].val.opval)));
472 parser->copline = (line_t)(ps[-7].val.ival);
478 #line 431 "perly.y" /* yacc.c:1646 */
479 { parser->in_my = 0; (yyval.opval) = my((ps[0].val.opval)); }
484 #line 433 "perly.y" /* yacc.c:1646 */
486 (yyval.opval) = block_end(
490 newUNOP(OP_REFGEN, 0,
493 (ps[-3].val.opval), (ps[-1].val.opval), (ps[0].val.opval))
495 parser->copline = (line_t)(ps[-9].val.ival);
501 #line 446 "perly.y" /* yacc.c:1646 */
503 (yyval.opval) = block_end((ps[-4].val.ival), newFOROP(
504 0, op_lvalue(newUNOP(OP_REFGEN, 0,
506 OP_ENTERLOOP), (ps[-3].val.opval), (ps[-1].val.opval), (ps[0].val.opval)));
507 parser->copline = (line_t)(ps[-8].val.ival);
513 #line 454 "perly.y" /* yacc.c:1646 */
515 (yyval.opval) = block_end((ps[-4].val.ival),
516 newFOROP(0, NULL, (ps[-3].val.opval), (ps[-1].val.opval), (ps[0].val.opval)));
517 parser->copline = (line_t)(ps[-6].val.ival);
523 #line 460 "perly.y" /* yacc.c:1646 */
525 /* a block is a loop that happens once */
526 (yyval.opval) = newWHILEOP(0, 1, NULL,
527 NULL, (ps[-1].val.opval), (ps[0].val.opval), 0);
533 #line 466 "perly.y" /* yacc.c:1646 */
535 package((ps[-2].val.opval));
536 if ((ps[-3].val.opval)) {
537 package_version((ps[-3].val.opval));
544 #line 473 "perly.y" /* yacc.c:1646 */
546 /* a block is a loop that happens once */
547 (yyval.opval) = newWHILEOP(0, 1, NULL,
548 NULL, block_end((ps[-3].val.ival), (ps[-1].val.opval)), NULL, 0);
549 if (parser->copline > (line_t)(ps[-4].val.ival))
550 parser->copline = (line_t)(ps[-4].val.ival);
556 #line 481 "perly.y" /* yacc.c:1646 */
558 (yyval.opval) = (ps[-1].val.opval);
564 #line 485 "perly.y" /* yacc.c:1646 */
566 (yyval.opval) = newLISTOP(OP_DIE, 0, newOP(OP_PUSHMARK, 0),
567 newSVOP(OP_CONST, 0, newSVpvs("Unimplemented")));
573 #line 490 "perly.y" /* yacc.c:1646 */
575 (yyval.opval) = NULL;
576 parser->copline = NOLINE;
582 #line 498 "perly.y" /* yacc.c:1646 */
584 if ((ps[0].val.opval)) {
585 OP *term = (ps[0].val.opval);
586 list = op_append_elem(OP_LIST, (ps[-1].val.opval), term);
589 list = (ps[-1].val.opval);
591 if (parser->copline == NOLINE)
592 parser->copline = CopLINE(PL_curcop)-1;
593 else parser->copline--;
594 (yyval.opval) = newSTATEOP(0, NULL,
595 op_convert_list(OP_FORMLINE, 0, list));
601 #line 515 "perly.y" /* yacc.c:1646 */
602 { (yyval.opval) = NULL; }
607 #line 517 "perly.y" /* yacc.c:1646 */
608 { (yyval.opval) = op_unscope((ps[-1].val.opval)); }
613 #line 522 "perly.y" /* yacc.c:1646 */
614 { (yyval.opval) = NULL; }
619 #line 524 "perly.y" /* yacc.c:1646 */
620 { (yyval.opval) = (ps[0].val.opval); }
625 #line 526 "perly.y" /* yacc.c:1646 */
626 { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[0].val.opval), (ps[-2].val.opval)); }
631 #line 528 "perly.y" /* yacc.c:1646 */
632 { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[0].val.opval), (ps[-2].val.opval)); }
637 #line 530 "perly.y" /* yacc.c:1646 */
638 { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, scalar((ps[0].val.opval)), (ps[-2].val.opval)); }
643 #line 532 "perly.y" /* yacc.c:1646 */
644 { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, (ps[0].val.opval), (ps[-2].val.opval)); }
649 #line 534 "perly.y" /* yacc.c:1646 */
650 { (yyval.opval) = newFOROP(0, NULL, (ps[0].val.opval), (ps[-2].val.opval), NULL);
651 parser->copline = (line_t)(ps[-1].val.ival); }
656 #line 537 "perly.y" /* yacc.c:1646 */
657 { (yyval.opval) = newWHENOP((ps[0].val.opval), op_scope((ps[-2].val.opval))); }
662 #line 542 "perly.y" /* yacc.c:1646 */
663 { (yyval.opval) = NULL; }
668 #line 544 "perly.y" /* yacc.c:1646 */
670 ((ps[0].val.opval))->op_flags |= OPf_PARENS;
671 (yyval.opval) = op_scope((ps[0].val.opval));
677 #line 549 "perly.y" /* yacc.c:1646 */
678 { parser->copline = (line_t)(ps[-5].val.ival);
679 (yyval.opval) = newCONDOP(0,
680 newSTATEOP(OPf_SPECIAL,NULL,(ps[-3].val.opval)),
681 op_scope((ps[-1].val.opval)), (ps[0].val.opval));
682 PL_hints |= HINT_BLOCK_SCOPE;
688 #line 559 "perly.y" /* yacc.c:1646 */
689 { (yyval.opval) = NULL; }
694 #line 561 "perly.y" /* yacc.c:1646 */
695 { (yyval.opval) = op_scope((ps[0].val.opval)); }
700 #line 566 "perly.y" /* yacc.c:1646 */
701 { (yyval.ival) = (PL_min_intro_pending &&
702 PL_max_intro_pending >= PL_min_intro_pending);
708 #line 572 "perly.y" /* yacc.c:1646 */
709 { (yyval.opval) = NULL; }
714 #line 578 "perly.y" /* yacc.c:1646 */
716 (void)scan_num("1", &tmplval);
717 (yyval.opval) = tmplval.opval; }
722 #line 586 "perly.y" /* yacc.c:1646 */
723 { (yyval.opval) = invert(scalar((ps[0].val.opval))); }
728 #line 591 "perly.y" /* yacc.c:1646 */
729 { (yyval.opval) = (ps[0].val.opval); intro_my(); }
734 #line 595 "perly.y" /* yacc.c:1646 */
735 { (yyval.opval) = (ps[0].val.opval); intro_my(); }
740 #line 598 "perly.y" /* yacc.c:1646 */
741 { (yyval.opval) = (ps[0].val.opval); }
746 #line 599 "perly.y" /* yacc.c:1646 */
747 { (yyval.opval) = NULL; }
752 #line 603 "perly.y" /* yacc.c:1646 */
753 { (yyval.ival) = start_subparse(FALSE, 0);
754 SAVEFREESV(PL_compcv); }
759 #line 609 "perly.y" /* yacc.c:1646 */
760 { (yyval.ival) = start_subparse(FALSE, CVf_ANON);
761 SAVEFREESV(PL_compcv); }
766 #line 614 "perly.y" /* yacc.c:1646 */
767 { (yyval.ival) = start_subparse(TRUE, 0);
768 SAVEFREESV(PL_compcv); }
773 #line 625 "perly.y" /* yacc.c:1646 */
774 { (yyval.opval) = NULL; }
779 #line 631 "perly.y" /* yacc.c:1646 */
780 { (yyval.opval) = NULL; }
785 #line 633 "perly.y" /* yacc.c:1646 */
786 { (yyval.opval) = (ps[0].val.opval); }
791 #line 635 "perly.y" /* yacc.c:1646 */
792 { (yyval.opval) = NULL; }
797 #line 640 "perly.y" /* yacc.c:1646 */
798 { (yyval.opval) = (ps[0].val.opval); }
803 #line 642 "perly.y" /* yacc.c:1646 */
804 { (yyval.opval) = NULL; }
809 #line 653 "perly.y" /* yacc.c:1646 */
810 { parser->in_my = 0; (yyval.opval) = NULL; }
815 #line 655 "perly.y" /* yacc.c:1646 */
816 { parser->in_my = 0; (yyval.opval) = (ps[0].val.opval); }
821 #line 660 "perly.y" /* yacc.c:1646 */
822 { (yyval.ival) = '@'; }
827 #line 662 "perly.y" /* yacc.c:1646 */
828 { (yyval.ival) = '%'; }
833 #line 666 "perly.y" /* yacc.c:1646 */
835 I32 sigil = (ps[-2].val.ival);
836 OP *var = (ps[-1].val.opval);
837 OP *defexpr = (ps[0].val.opval);
839 if (parser->sig_slurpy)
840 yyerror("Multiple slurpy parameters not allowed");
841 parser->sig_slurpy = (char)sigil;
844 yyerror("A slurpy parameter may not have "
847 (yyval.opval) = var ? newSTATEOP(0, NULL, var) : NULL;
853 #line 685 "perly.y" /* yacc.c:1646 */
854 { (yyval.opval) = NULL; }
859 #line 687 "perly.y" /* yacc.c:1646 */
860 { (yyval.opval) = newOP(OP_NULL, 0); }
865 #line 689 "perly.y" /* yacc.c:1646 */
866 { (yyval.opval) = (ps[0].val.opval); }
871 #line 695 "perly.y" /* yacc.c:1646 */
873 OP *var = (ps[-1].val.opval);
874 OP *defexpr = (ps[0].val.opval);
876 if (parser->sig_slurpy)
877 yyerror("Slurpy parameter not last");
882 parser->sig_optelems++;
884 if ( defexpr->op_type == OP_NULL
885 && !(defexpr->op_flags & OPf_KIDS))
887 /* handle '$=' special case */
889 yyerror("Optional parameter "
890 "lacks default expression");
894 /* a normal '=default' expression */
895 OP *defop = (OP*)alloc_LOGOP(OP_ARGDEFELEM,
898 /* re-purpose op_targ to hold @_ index */
900 (PADOFFSET)(parser->sig_elems - 1);
903 var->op_flags |= OPf_STACKED;
904 (void)op_sibling_splice(var,
909 var = newUNOP(OP_NULL, 0, defop);
912 /* NB: normally the first child of a
913 * logop is executed before the logop,
914 * and it pushes a boolean result
915 * ready for the logop. For ARGDEFELEM,
916 * the op itself does the boolean
917 * calculation, so set the first op to
920 var->op_next = defop;
921 defexpr->op_next = var;
925 if (parser->sig_optelems)
926 yyerror("Mandatory parameter "
927 "follows optional parameter");
930 (yyval.opval) = var ? newSTATEOP(0, NULL, var) : NULL;
936 #line 760 "perly.y" /* yacc.c:1646 */
937 { parser->in_my = KEY_sigvar; (yyval.opval) = (ps[0].val.opval); }
942 #line 762 "perly.y" /* yacc.c:1646 */
943 { parser->in_my = KEY_sigvar; (yyval.opval) = (ps[0].val.opval); }
948 #line 768 "perly.y" /* yacc.c:1646 */
949 { (yyval.opval) = (ps[-1].val.opval); }
954 #line 770 "perly.y" /* yacc.c:1646 */
956 (yyval.opval) = op_append_list(OP_LINESEQ, (ps[-2].val.opval), (ps[0].val.opval));
962 #line 774 "perly.y" /* yacc.c:1646 */
963 { (yyval.opval) = (ps[0].val.opval); }
968 #line 779 "perly.y" /* yacc.c:1646 */
969 { (yyval.opval) = NULL; }
974 #line 781 "perly.y" /* yacc.c:1646 */
975 { (yyval.opval) = (ps[0].val.opval); }
980 #line 785 "perly.y" /* yacc.c:1646 */
983 SAVEIV(parser->sig_elems);
984 SAVEIV(parser->sig_optelems);
985 SAVEI8(parser->sig_slurpy);
986 parser->sig_elems = 0;
987 parser->sig_optelems = 0;
988 parser->sig_slurpy = 0;
989 parser->in_my = KEY_sigvar;
995 #line 797 "perly.y" /* yacc.c:1646 */
997 OP *sigops = (ps[-1].val.opval);
1001 if (!parser->error_count) {
1002 assert(FEATURE_SIGNATURES_IS_ENABLED);
1005 /* We shouldn't get here otherwise */
1006 Perl_ck_warner_d(aTHX_
1007 packWARN(WARN_EXPERIMENTAL__SIGNATURES),
1008 "The signatures feature is experimental");
1010 aux = (UNOP_AUX_item*)PerlMemShared_malloc(
1011 sizeof(UNOP_AUX_item) * 3);
1012 aux[0].iv = parser->sig_elems;
1013 aux[1].iv = parser->sig_optelems;
1014 aux[2].iv = parser->sig_slurpy;
1015 check = newUNOP_AUX(OP_ARGCHECK, 0, NULL, aux);
1016 sigops = op_prepend_elem(OP_LINESEQ, check, sigops);
1017 sigops = op_prepend_elem(OP_LINESEQ,
1018 newSTATEOP(0, NULL, NULL),
1020 /* a nextstate at the end handles context
1021 * correctly for an empty sub body */
1022 (yyval.opval) = op_append_elem(OP_LINESEQ,
1024 newSTATEOP(0, NULL, NULL));
1027 parser->expect = XATTRBLOCK;
1034 #line 837 "perly.y" /* yacc.c:1646 */
1035 { (yyval.opval) = NULL; }
1040 #line 842 "perly.y" /* yacc.c:1646 */
1041 { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
1046 #line 844 "perly.y" /* yacc.c:1646 */
1047 { (yyval.opval) = newLOGOP((ps[-1].val.ival), 0, (ps[-2].val.opval), (ps[0].val.opval)); }
1052 #line 846 "perly.y" /* yacc.c:1646 */
1053 { (yyval.opval) = newLOGOP(OP_DOR, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
1058 #line 852 "perly.y" /* yacc.c:1646 */
1059 { (yyval.opval) = (ps[-1].val.opval); }
1064 #line 854 "perly.y" /* yacc.c:1646 */
1066 OP* term = (ps[0].val.opval);
1067 (yyval.opval) = op_append_elem(OP_LIST, (ps[-2].val.opval), term);
1073 #line 863 "perly.y" /* yacc.c:1646 */
1074 { (yyval.opval) = op_convert_list((ps[-2].val.ival), OPf_STACKED,
1075 op_prepend_elem(OP_LIST, newGVREF((ps[-2].val.ival),(ps[-1].val.opval)), (ps[0].val.opval)) );
1081 #line 867 "perly.y" /* yacc.c:1646 */
1082 { (yyval.opval) = op_convert_list((ps[-4].val.ival), OPf_STACKED,
1083 op_prepend_elem(OP_LIST, newGVREF((ps[-4].val.ival),(ps[-2].val.opval)), (ps[-1].val.opval)) );
1089 #line 871 "perly.y" /* yacc.c:1646 */
1090 { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
1091 op_append_elem(OP_LIST,
1092 op_prepend_elem(OP_LIST, scalar((ps[-5].val.opval)), (ps[-1].val.opval)),
1093 newMETHOP(OP_METHOD, 0, (ps[-3].val.opval))));
1099 #line 877 "perly.y" /* yacc.c:1646 */
1100 { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
1101 op_append_elem(OP_LIST, scalar((ps[-2].val.opval)),
1102 newMETHOP(OP_METHOD, 0, (ps[0].val.opval))));
1108 #line 882 "perly.y" /* yacc.c:1646 */
1109 { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
1110 op_append_elem(OP_LIST,
1111 op_prepend_elem(OP_LIST, (ps[-1].val.opval), (ps[0].val.opval)),
1112 newMETHOP(OP_METHOD, 0, (ps[-2].val.opval))));
1118 #line 888 "perly.y" /* yacc.c:1646 */
1119 { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
1120 op_append_elem(OP_LIST,
1121 op_prepend_elem(OP_LIST, (ps[-3].val.opval), (ps[-1].val.opval)),
1122 newMETHOP(OP_METHOD, 0, (ps[-4].val.opval))));
1128 #line 894 "perly.y" /* yacc.c:1646 */
1129 { (yyval.opval) = op_convert_list((ps[-1].val.ival), 0, (ps[0].val.opval)); }
1134 #line 896 "perly.y" /* yacc.c:1646 */
1135 { (yyval.opval) = op_convert_list((ps[-3].val.ival), 0, (ps[-1].val.opval)); }
1140 #line 898 "perly.y" /* yacc.c:1646 */
1141 { SvREFCNT_inc_simple_void(PL_compcv);
1142 (yyval.opval) = newANONATTRSUB((ps[-1].val.ival), 0, NULL, (ps[0].val.opval)); }
1147 #line 901 "perly.y" /* yacc.c:1646 */
1148 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1149 op_append_elem(OP_LIST,
1150 op_prepend_elem(OP_LIST, (ps[-1].val.opval), (ps[0].val.opval)), (ps[-4].val.opval)));
1156 #line 916 "perly.y" /* yacc.c:1646 */
1157 { (yyval.opval) = newBINOP(OP_GELEM, 0, (ps[-4].val.opval), scalar((ps[-2].val.opval))); }
1162 #line 918 "perly.y" /* yacc.c:1646 */
1163 { (yyval.opval) = newBINOP(OP_AELEM, 0, oopsAV((ps[-3].val.opval)), scalar((ps[-1].val.opval)));
1169 #line 921 "perly.y" /* yacc.c:1646 */
1170 { (yyval.opval) = newBINOP(OP_AELEM, 0,
1171 ref(newAVREF((ps[-4].val.opval)),OP_RV2AV),
1172 scalar((ps[-1].val.opval)));
1178 #line 926 "perly.y" /* yacc.c:1646 */
1179 { (yyval.opval) = newBINOP(OP_AELEM, 0,
1180 ref(newAVREF((ps[-3].val.opval)),OP_RV2AV),
1181 scalar((ps[-1].val.opval)));
1187 #line 931 "perly.y" /* yacc.c:1646 */
1188 { (yyval.opval) = newBINOP(OP_HELEM, 0, oopsHV((ps[-4].val.opval)), jmaybe((ps[-2].val.opval)));
1194 #line 934 "perly.y" /* yacc.c:1646 */
1195 { (yyval.opval) = newBINOP(OP_HELEM, 0,
1196 ref(newHVREF((ps[-5].val.opval)),OP_RV2HV),
1197 jmaybe((ps[-2].val.opval))); }
1202 #line 938 "perly.y" /* yacc.c:1646 */
1203 { (yyval.opval) = newBINOP(OP_HELEM, 0,
1204 ref(newHVREF((ps[-4].val.opval)),OP_RV2HV),
1205 jmaybe((ps[-2].val.opval))); }
1210 #line 942 "perly.y" /* yacc.c:1646 */
1211 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1212 newCVREF(0, scalar((ps[-3].val.opval)))); }
1217 #line 945 "perly.y" /* yacc.c:1646 */
1218 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1219 op_append_elem(OP_LIST, (ps[-1].val.opval),
1220 newCVREF(0, scalar((ps[-4].val.opval))))); }
1225 #line 950 "perly.y" /* yacc.c:1646 */
1226 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1227 op_append_elem(OP_LIST, (ps[-1].val.opval),
1228 newCVREF(0, scalar((ps[-3].val.opval))))); }
1233 #line 954 "perly.y" /* yacc.c:1646 */
1234 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1235 newCVREF(0, scalar((ps[-2].val.opval)))); }
1240 #line 957 "perly.y" /* yacc.c:1646 */
1241 { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), (ps[-4].val.opval)); }
1246 #line 959 "perly.y" /* yacc.c:1646 */
1247 { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), (ps[-3].val.opval)); }
1252 #line 961 "perly.y" /* yacc.c:1646 */
1253 { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), NULL); }
1258 #line 966 "perly.y" /* yacc.c:1646 */
1259 { (yyval.opval) = newASSIGNOP(OPf_STACKED, (ps[-2].val.opval), (ps[-1].val.ival), (ps[0].val.opval)); }
1264 #line 968 "perly.y" /* yacc.c:1646 */
1265 { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
1270 #line 970 "perly.y" /* yacc.c:1646 */
1271 { if ((ps[-1].val.ival) != OP_REPEAT)
1272 scalar((ps[-2].val.opval));
1273 (yyval.opval) = newBINOP((ps[-1].val.ival), 0, (ps[-2].val.opval), scalar((ps[0].val.opval)));
1279 #line 975 "perly.y" /* yacc.c:1646 */
1280 { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
1285 #line 977 "perly.y" /* yacc.c:1646 */
1286 { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
1291 #line 979 "perly.y" /* yacc.c:1646 */
1292 { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
1297 #line 981 "perly.y" /* yacc.c:1646 */
1298 { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
1303 #line 983 "perly.y" /* yacc.c:1646 */
1304 { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
1309 #line 985 "perly.y" /* yacc.c:1646 */
1310 { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
1315 #line 987 "perly.y" /* yacc.c:1646 */
1316 { (yyval.opval) = newRANGE((ps[-1].val.ival), scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
1321 #line 989 "perly.y" /* yacc.c:1646 */
1322 { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
1327 #line 991 "perly.y" /* yacc.c:1646 */
1328 { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
1333 #line 993 "perly.y" /* yacc.c:1646 */
1334 { (yyval.opval) = newLOGOP(OP_DOR, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
1339 #line 995 "perly.y" /* yacc.c:1646 */
1340 { (yyval.opval) = bind_match((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
1345 #line 1000 "perly.y" /* yacc.c:1646 */
1346 { (yyval.opval) = newUNOP(OP_NEGATE, 0, scalar((ps[0].val.opval))); }
1351 #line 1002 "perly.y" /* yacc.c:1646 */
1352 { (yyval.opval) = (ps[0].val.opval); }
1357 #line 1005 "perly.y" /* yacc.c:1646 */
1358 { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[0].val.opval))); }
1363 #line 1007 "perly.y" /* yacc.c:1646 */
1364 { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, scalar((ps[0].val.opval))); }
1369 #line 1009 "perly.y" /* yacc.c:1646 */
1370 { (yyval.opval) = newUNOP(OP_POSTINC, 0,
1371 op_lvalue(scalar((ps[-1].val.opval)), OP_POSTINC)); }
1376 #line 1012 "perly.y" /* yacc.c:1646 */
1377 { (yyval.opval) = newUNOP(OP_POSTDEC, 0,
1378 op_lvalue(scalar((ps[-1].val.opval)), OP_POSTDEC));}
1383 #line 1015 "perly.y" /* yacc.c:1646 */
1384 { (yyval.opval) = op_convert_list(OP_JOIN, 0,
1398 #line 1026 "perly.y" /* yacc.c:1646 */
1399 { (yyval.opval) = newUNOP(OP_PREINC, 0,
1400 op_lvalue(scalar((ps[0].val.opval)), OP_PREINC)); }
1405 #line 1029 "perly.y" /* yacc.c:1646 */
1406 { (yyval.opval) = newUNOP(OP_PREDEC, 0,
1407 op_lvalue(scalar((ps[0].val.opval)), OP_PREDEC)); }
1412 #line 1036 "perly.y" /* yacc.c:1646 */
1413 { (yyval.opval) = newANONLIST((ps[-1].val.opval)); }
1418 #line 1038 "perly.y" /* yacc.c:1646 */
1419 { (yyval.opval) = newANONLIST(NULL);}
1424 #line 1040 "perly.y" /* yacc.c:1646 */
1425 { (yyval.opval) = newANONHASH((ps[-2].val.opval)); }
1430 #line 1042 "perly.y" /* yacc.c:1646 */
1431 { (yyval.opval) = newANONHASH(NULL); }
1436 #line 1044 "perly.y" /* yacc.c:1646 */
1437 { SvREFCNT_inc_simple_void(PL_compcv);
1438 (yyval.opval) = newANONATTRSUB((ps[-3].val.ival), (ps[-2].val.opval), (ps[-1].val.opval), (ps[0].val.opval)); }
1443 #line 1047 "perly.y" /* yacc.c:1646 */
1446 if (parser->copline > (line_t)(ps[-2].val.ival))
1447 parser->copline = (line_t)(ps[-2].val.ival);
1448 body = block_end((ps[-5].val.ival),
1449 op_append_list(OP_LINESEQ, (ps[-4].val.opval), (ps[-1].val.opval)));
1450 SvREFCNT_inc_simple_void(PL_compcv);
1451 (yyval.opval) = newANONATTRSUB((ps[-6].val.ival), NULL, (ps[-3].val.opval), body);
1457 #line 1061 "perly.y" /* yacc.c:1646 */
1458 { (yyval.opval) = dofile((ps[0].val.opval), (ps[-1].val.ival));}
1463 #line 1063 "perly.y" /* yacc.c:1646 */
1464 { (yyval.opval) = newUNOP(OP_NULL, OPf_SPECIAL, op_scope((ps[0].val.opval)));}
1469 #line 1071 "perly.y" /* yacc.c:1646 */
1470 { (yyval.opval) = newCONDOP(0, (ps[-4].val.opval), (ps[-2].val.opval), (ps[0].val.opval)); }
1475 #line 1073 "perly.y" /* yacc.c:1646 */
1476 { (yyval.opval) = newUNOP(OP_REFGEN, 0, (ps[0].val.opval)); }
1481 #line 1075 "perly.y" /* yacc.c:1646 */
1482 { (yyval.opval) = newUNOP(OP_REFGEN, 0, localize((ps[0].val.opval),1)); }
1487 #line 1077 "perly.y" /* yacc.c:1646 */
1488 { (yyval.opval) = (ps[0].val.opval); }
1493 #line 1079 "perly.y" /* yacc.c:1646 */
1494 { (yyval.opval) = localize((ps[0].val.opval),0); }
1499 #line 1081 "perly.y" /* yacc.c:1646 */
1500 { (yyval.opval) = sawparens((ps[-1].val.opval)); }
1505 #line 1083 "perly.y" /* yacc.c:1646 */
1506 { (yyval.opval) = (ps[0].val.opval); }
1511 #line 1085 "perly.y" /* yacc.c:1646 */
1512 { (yyval.opval) = sawparens(newNULLLIST()); }
1517 #line 1087 "perly.y" /* yacc.c:1646 */
1518 { (yyval.opval) = (ps[0].val.opval); }
1523 #line 1089 "perly.y" /* yacc.c:1646 */
1524 { (yyval.opval) = (ps[0].val.opval); }
1529 #line 1091 "perly.y" /* yacc.c:1646 */
1530 { (yyval.opval) = (ps[0].val.opval); }
1535 #line 1093 "perly.y" /* yacc.c:1646 */
1536 { (yyval.opval) = (ps[0].val.opval); }
1541 #line 1095 "perly.y" /* yacc.c:1646 */
1542 { (yyval.opval) = newUNOP(OP_AV2ARYLEN, 0, ref((ps[0].val.opval), OP_AV2ARYLEN));}
1547 #line 1097 "perly.y" /* yacc.c:1646 */
1548 { (yyval.opval) = (ps[0].val.opval); }
1553 #line 1099 "perly.y" /* yacc.c:1646 */
1554 { (yyval.opval) = op_prepend_elem(OP_ASLICE,
1555 newOP(OP_PUSHMARK, 0),
1556 newLISTOP(OP_ASLICE, 0,
1557 list((ps[-1].val.opval)),
1558 ref((ps[-3].val.opval), OP_ASLICE)));
1559 if ((yyval.opval) && (ps[-3].val.opval))
1560 (yyval.opval)->op_private |=
1561 (ps[-3].val.opval)->op_private & OPpSLICEWARNING;
1567 #line 1109 "perly.y" /* yacc.c:1646 */
1568 { (yyval.opval) = op_prepend_elem(OP_KVASLICE,
1569 newOP(OP_PUSHMARK, 0),
1570 newLISTOP(OP_KVASLICE, 0,
1571 list((ps[-1].val.opval)),
1572 ref(oopsAV((ps[-3].val.opval)), OP_KVASLICE)));
1573 if ((yyval.opval) && (ps[-3].val.opval))
1574 (yyval.opval)->op_private |=
1575 (ps[-3].val.opval)->op_private & OPpSLICEWARNING;
1581 #line 1119 "perly.y" /* yacc.c:1646 */
1582 { (yyval.opval) = op_prepend_elem(OP_HSLICE,
1583 newOP(OP_PUSHMARK, 0),
1584 newLISTOP(OP_HSLICE, 0,
1585 list((ps[-2].val.opval)),
1586 ref(oopsHV((ps[-4].val.opval)), OP_HSLICE)));
1587 if ((yyval.opval) && (ps[-4].val.opval))
1588 (yyval.opval)->op_private |=
1589 (ps[-4].val.opval)->op_private & OPpSLICEWARNING;
1595 #line 1129 "perly.y" /* yacc.c:1646 */
1596 { (yyval.opval) = op_prepend_elem(OP_KVHSLICE,
1597 newOP(OP_PUSHMARK, 0),
1598 newLISTOP(OP_KVHSLICE, 0,
1599 list((ps[-2].val.opval)),
1600 ref((ps[-4].val.opval), OP_KVHSLICE)));
1601 if ((yyval.opval) && (ps[-4].val.opval))
1602 (yyval.opval)->op_private |=
1603 (ps[-4].val.opval)->op_private & OPpSLICEWARNING;
1609 #line 1139 "perly.y" /* yacc.c:1646 */
1610 { (yyval.opval) = (ps[0].val.opval); }
1615 #line 1141 "perly.y" /* yacc.c:1646 */
1616 { (yyval.opval) = newUNOP(OP_ENTERSUB, 0, scalar((ps[0].val.opval))); }
1621 #line 1143 "perly.y" /* yacc.c:1646 */
1622 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[-2].val.opval)));
1628 #line 1146 "perly.y" /* yacc.c:1646 */
1630 (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1631 op_append_elem(OP_LIST, (ps[-1].val.opval), scalar((ps[-3].val.opval))));
1637 #line 1151 "perly.y" /* yacc.c:1646 */
1638 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1639 op_append_elem(OP_LIST, (ps[0].val.opval), scalar((ps[-1].val.opval))));
1645 #line 1155 "perly.y" /* yacc.c:1646 */
1646 { (yyval.opval) = newSVREF((ps[-3].val.opval)); }
1651 #line 1157 "perly.y" /* yacc.c:1646 */
1652 { (yyval.opval) = newAVREF((ps[-3].val.opval)); }
1657 #line 1159 "perly.y" /* yacc.c:1646 */
1658 { (yyval.opval) = newHVREF((ps[-3].val.opval)); }
1663 #line 1161 "perly.y" /* yacc.c:1646 */
1664 { (yyval.opval) = newUNOP(OP_ENTERSUB, 0,
1665 scalar(newCVREF((ps[-1].val.ival),(ps[-3].val.opval)))); }
1670 #line 1164 "perly.y" /* yacc.c:1646 */
1671 { (yyval.opval) = newGVREF(0,(ps[-3].val.opval)); }
1676 #line 1166 "perly.y" /* yacc.c:1646 */
1677 { (yyval.opval) = newOP((ps[0].val.ival), OPf_SPECIAL);
1678 PL_hints |= HINT_BLOCK_SCOPE; }
1683 #line 1169 "perly.y" /* yacc.c:1646 */
1684 { (yyval.opval) = newLOOPEX((ps[-1].val.ival),(ps[0].val.opval)); }
1689 #line 1171 "perly.y" /* yacc.c:1646 */
1690 { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[0].val.opval))); }
1695 #line 1173 "perly.y" /* yacc.c:1646 */
1696 { (yyval.opval) = newOP((ps[0].val.ival), 0); }
1701 #line 1175 "perly.y" /* yacc.c:1646 */
1702 { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, (ps[0].val.opval)); }
1707 #line 1177 "perly.y" /* yacc.c:1646 */
1708 { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, (ps[0].val.opval)); }
1713 #line 1179 "perly.y" /* yacc.c:1646 */
1714 { (yyval.opval) = newOP(OP_REQUIRE, (ps[0].val.ival) ? OPf_SPECIAL : 0); }
1719 #line 1181 "perly.y" /* yacc.c:1646 */
1720 { (yyval.opval) = newUNOP(OP_REQUIRE, (ps[-1].val.ival) ? OPf_SPECIAL : 0, (ps[0].val.opval)); }
1725 #line 1183 "perly.y" /* yacc.c:1646 */
1726 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[0].val.opval))); }
1731 #line 1185 "perly.y" /* yacc.c:1646 */
1732 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1733 op_append_elem(OP_LIST, (ps[0].val.opval), scalar((ps[-1].val.opval)))); }
1738 #line 1188 "perly.y" /* yacc.c:1646 */
1739 { (yyval.opval) = newOP((ps[0].val.ival), 0); }
1744 #line 1190 "perly.y" /* yacc.c:1646 */
1745 { (yyval.opval) = newOP((ps[-2].val.ival), 0);}
1750 #line 1192 "perly.y" /* yacc.c:1646 */
1751 { (yyval.opval) = (ps[0].val.opval); }
1756 #line 1194 "perly.y" /* yacc.c:1646 */
1757 { (yyval.opval) = (ps[-2].val.opval); }
1762 #line 1196 "perly.y" /* yacc.c:1646 */
1763 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[0].val.opval))); }
1768 #line 1198 "perly.y" /* yacc.c:1646 */
1769 { (yyval.opval) = ((ps[-2].val.ival) == OP_NOT)
1770 ? newUNOP((ps[-2].val.ival), 0, newSVOP(OP_CONST, 0, newSViv(0)))
1771 : newOP((ps[-2].val.ival), OPf_SPECIAL); }
1776 #line 1202 "perly.y" /* yacc.c:1646 */
1777 { (yyval.opval) = newUNOP((ps[-3].val.ival), 0, (ps[-1].val.opval)); }
1782 #line 1204 "perly.y" /* yacc.c:1646 */
1784 if ( (ps[0].val.opval)->op_type != OP_TRANS
1785 && (ps[0].val.opval)->op_type != OP_TRANSR
1786 && (((PMOP*)(ps[0].val.opval))->op_pmflags & PMf_HAS_CV))
1788 (yyval.ival) = start_subparse(FALSE, CVf_ANON);
1789 SAVEFREESV(PL_compcv);
1797 #line 1215 "perly.y" /* yacc.c:1646 */
1798 { (yyval.opval) = pmruntime((ps[-5].val.opval), (ps[-2].val.opval), (ps[-1].val.opval), 1, (ps[-4].val.ival)); }
1803 #line 1223 "perly.y" /* yacc.c:1646 */
1804 { (yyval.opval) = my_attrs((ps[-1].val.opval),(ps[0].val.opval)); }
1809 #line 1225 "perly.y" /* yacc.c:1646 */
1810 { (yyval.opval) = localize((ps[0].val.opval),1); }
1815 #line 1227 "perly.y" /* yacc.c:1646 */
1816 { (yyval.opval) = newUNOP(OP_REFGEN, 0, my_attrs((ps[-1].val.opval),(ps[0].val.opval))); }
1821 #line 1232 "perly.y" /* yacc.c:1646 */
1822 { (yyval.opval) = sawparens((ps[-1].val.opval)); }
1827 #line 1234 "perly.y" /* yacc.c:1646 */
1828 { (yyval.opval) = sawparens(newNULLLIST()); }
1833 #line 1237 "perly.y" /* yacc.c:1646 */
1834 { (yyval.opval) = (ps[0].val.opval); }
1839 #line 1239 "perly.y" /* yacc.c:1646 */
1840 { (yyval.opval) = (ps[0].val.opval); }
1845 #line 1241 "perly.y" /* yacc.c:1646 */
1846 { (yyval.opval) = (ps[0].val.opval); }
1851 #line 1246 "perly.y" /* yacc.c:1646 */
1852 { (yyval.opval) = NULL; }
1857 #line 1248 "perly.y" /* yacc.c:1646 */
1858 { (yyval.opval) = (ps[0].val.opval); }
1863 #line 1252 "perly.y" /* yacc.c:1646 */
1864 { (yyval.opval) = NULL; }
1869 #line 1254 "perly.y" /* yacc.c:1646 */
1870 { (yyval.opval) = (ps[0].val.opval); }
1875 #line 1258 "perly.y" /* yacc.c:1646 */
1876 { (yyval.opval) = NULL; }
1881 #line 1260 "perly.y" /* yacc.c:1646 */
1882 { (yyval.opval) = (ps[0].val.opval); }
1887 #line 1266 "perly.y" /* yacc.c:1646 */
1888 { parser->in_my = 0; (yyval.opval) = my((ps[0].val.opval)); }
1893 #line 1283 "perly.y" /* yacc.c:1646 */
1894 { (yyval.opval) = newCVREF((ps[-1].val.ival),(ps[0].val.opval)); }
1899 #line 1287 "perly.y" /* yacc.c:1646 */
1900 { (yyval.opval) = newSVREF((ps[0].val.opval)); }
1905 #line 1291 "perly.y" /* yacc.c:1646 */
1906 { (yyval.opval) = newAVREF((ps[0].val.opval));
1907 if ((yyval.opval)) (yyval.opval)->op_private |= (ps[-1].val.ival);
1913 #line 1297 "perly.y" /* yacc.c:1646 */
1914 { (yyval.opval) = newHVREF((ps[0].val.opval));
1915 if ((yyval.opval)) (yyval.opval)->op_private |= (ps[-1].val.ival);
1921 #line 1303 "perly.y" /* yacc.c:1646 */
1922 { (yyval.opval) = newAVREF((ps[0].val.opval)); }
1927 #line 1305 "perly.y" /* yacc.c:1646 */
1928 { (yyval.opval) = newAVREF((ps[-3].val.opval)); }
1933 #line 1309 "perly.y" /* yacc.c:1646 */
1934 { (yyval.opval) = newGVREF(0,(ps[0].val.opval)); }
1939 #line 1314 "perly.y" /* yacc.c:1646 */
1940 { (yyval.opval) = newAVREF((ps[-2].val.opval)); }
1945 #line 1319 "perly.y" /* yacc.c:1646 */
1946 { (yyval.opval) = newHVREF((ps[-2].val.opval)); }
1951 #line 1324 "perly.y" /* yacc.c:1646 */
1952 { (yyval.opval) = newGVREF(0,(ps[-2].val.opval)); }
1957 #line 1329 "perly.y" /* yacc.c:1646 */
1958 { (yyval.opval) = scalar((ps[0].val.opval)); }
1963 #line 1331 "perly.y" /* yacc.c:1646 */
1964 { (yyval.opval) = scalar((ps[0].val.opval)); }
1969 #line 1333 "perly.y" /* yacc.c:1646 */
1970 { (yyval.opval) = op_scope((ps[0].val.opval)); }
1975 #line 1336 "perly.y" /* yacc.c:1646 */
1976 { (yyval.opval) = (ps[0].val.opval); }
1986 * 78f9e1daf948a161b43e7457943b7d91cada7c92c8b941a1c1dbbc23c2c10aa8 perly.y
1987 * b6fae5748f9bef6db4740aa5e122b84ac5181852d42474d0ecad621fa4253306 regen_perly.pl