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))));
1213 if (parser->expect == XBLOCK)
1214 parser->expect = XOPERATOR;
1220 #line 948 "perly.y" /* yacc.c:1646 */
1221 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1222 op_append_elem(OP_LIST, (ps[-1].val.opval),
1223 newCVREF(0, scalar((ps[-4].val.opval)))));
1224 if (parser->expect == XBLOCK)
1225 parser->expect = XOPERATOR;
1231 #line 956 "perly.y" /* yacc.c:1646 */
1232 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1233 op_append_elem(OP_LIST, (ps[-1].val.opval),
1234 newCVREF(0, scalar((ps[-3].val.opval)))));
1235 if (parser->expect == XBLOCK)
1236 parser->expect = XOPERATOR;
1242 #line 963 "perly.y" /* yacc.c:1646 */
1243 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1244 newCVREF(0, scalar((ps[-2].val.opval))));
1245 if (parser->expect == XBLOCK)
1246 parser->expect = XOPERATOR;
1252 #line 969 "perly.y" /* yacc.c:1646 */
1253 { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), (ps[-4].val.opval)); }
1258 #line 971 "perly.y" /* yacc.c:1646 */
1259 { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), (ps[-3].val.opval)); }
1264 #line 973 "perly.y" /* yacc.c:1646 */
1265 { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), NULL); }
1270 #line 978 "perly.y" /* yacc.c:1646 */
1271 { (yyval.opval) = newASSIGNOP(OPf_STACKED, (ps[-2].val.opval), (ps[-1].val.ival), (ps[0].val.opval)); }
1276 #line 980 "perly.y" /* yacc.c:1646 */
1277 { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
1282 #line 982 "perly.y" /* yacc.c:1646 */
1283 { if ((ps[-1].val.ival) != OP_REPEAT)
1284 scalar((ps[-2].val.opval));
1285 (yyval.opval) = newBINOP((ps[-1].val.ival), 0, (ps[-2].val.opval), scalar((ps[0].val.opval)));
1291 #line 987 "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 989 "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 991 "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 993 "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 995 "perly.y" /* yacc.c:1646 */
1316 { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
1321 #line 997 "perly.y" /* yacc.c:1646 */
1322 { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
1327 #line 999 "perly.y" /* yacc.c:1646 */
1328 { (yyval.opval) = newRANGE((ps[-1].val.ival), scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
1333 #line 1001 "perly.y" /* yacc.c:1646 */
1334 { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
1339 #line 1003 "perly.y" /* yacc.c:1646 */
1340 { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
1345 #line 1005 "perly.y" /* yacc.c:1646 */
1346 { (yyval.opval) = newLOGOP(OP_DOR, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
1351 #line 1007 "perly.y" /* yacc.c:1646 */
1352 { (yyval.opval) = bind_match((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
1357 #line 1012 "perly.y" /* yacc.c:1646 */
1358 { (yyval.opval) = newUNOP(OP_NEGATE, 0, scalar((ps[0].val.opval))); }
1363 #line 1014 "perly.y" /* yacc.c:1646 */
1364 { (yyval.opval) = (ps[0].val.opval); }
1369 #line 1017 "perly.y" /* yacc.c:1646 */
1370 { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[0].val.opval))); }
1375 #line 1019 "perly.y" /* yacc.c:1646 */
1376 { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, scalar((ps[0].val.opval))); }
1381 #line 1021 "perly.y" /* yacc.c:1646 */
1382 { (yyval.opval) = newUNOP(OP_POSTINC, 0,
1383 op_lvalue(scalar((ps[-1].val.opval)), OP_POSTINC)); }
1388 #line 1024 "perly.y" /* yacc.c:1646 */
1389 { (yyval.opval) = newUNOP(OP_POSTDEC, 0,
1390 op_lvalue(scalar((ps[-1].val.opval)), OP_POSTDEC));}
1395 #line 1027 "perly.y" /* yacc.c:1646 */
1396 { (yyval.opval) = op_convert_list(OP_JOIN, 0,
1410 #line 1038 "perly.y" /* yacc.c:1646 */
1411 { (yyval.opval) = newUNOP(OP_PREINC, 0,
1412 op_lvalue(scalar((ps[0].val.opval)), OP_PREINC)); }
1417 #line 1041 "perly.y" /* yacc.c:1646 */
1418 { (yyval.opval) = newUNOP(OP_PREDEC, 0,
1419 op_lvalue(scalar((ps[0].val.opval)), OP_PREDEC)); }
1424 #line 1048 "perly.y" /* yacc.c:1646 */
1425 { (yyval.opval) = newANONLIST((ps[-1].val.opval)); }
1430 #line 1050 "perly.y" /* yacc.c:1646 */
1431 { (yyval.opval) = newANONLIST(NULL);}
1436 #line 1052 "perly.y" /* yacc.c:1646 */
1437 { (yyval.opval) = newANONHASH((ps[-2].val.opval)); }
1442 #line 1054 "perly.y" /* yacc.c:1646 */
1443 { (yyval.opval) = newANONHASH(NULL); }
1448 #line 1056 "perly.y" /* yacc.c:1646 */
1449 { SvREFCNT_inc_simple_void(PL_compcv);
1450 (yyval.opval) = newANONATTRSUB((ps[-3].val.ival), (ps[-2].val.opval), (ps[-1].val.opval), (ps[0].val.opval)); }
1455 #line 1059 "perly.y" /* yacc.c:1646 */
1458 if (parser->copline > (line_t)(ps[-2].val.ival))
1459 parser->copline = (line_t)(ps[-2].val.ival);
1460 body = block_end((ps[-5].val.ival),
1461 op_append_list(OP_LINESEQ, (ps[-4].val.opval), (ps[-1].val.opval)));
1462 SvREFCNT_inc_simple_void(PL_compcv);
1463 (yyval.opval) = newANONATTRSUB((ps[-6].val.ival), NULL, (ps[-3].val.opval), body);
1469 #line 1073 "perly.y" /* yacc.c:1646 */
1470 { (yyval.opval) = dofile((ps[0].val.opval), (ps[-1].val.ival));}
1475 #line 1075 "perly.y" /* yacc.c:1646 */
1476 { (yyval.opval) = newUNOP(OP_NULL, OPf_SPECIAL, op_scope((ps[0].val.opval)));}
1481 #line 1083 "perly.y" /* yacc.c:1646 */
1482 { (yyval.opval) = newCONDOP(0, (ps[-4].val.opval), (ps[-2].val.opval), (ps[0].val.opval)); }
1487 #line 1085 "perly.y" /* yacc.c:1646 */
1488 { (yyval.opval) = newUNOP(OP_REFGEN, 0, (ps[0].val.opval)); }
1493 #line 1087 "perly.y" /* yacc.c:1646 */
1494 { (yyval.opval) = newUNOP(OP_REFGEN, 0, localize((ps[0].val.opval),1)); }
1499 #line 1089 "perly.y" /* yacc.c:1646 */
1500 { (yyval.opval) = (ps[0].val.opval); }
1505 #line 1091 "perly.y" /* yacc.c:1646 */
1506 { (yyval.opval) = localize((ps[0].val.opval),0); }
1511 #line 1093 "perly.y" /* yacc.c:1646 */
1512 { (yyval.opval) = sawparens((ps[-1].val.opval)); }
1517 #line 1095 "perly.y" /* yacc.c:1646 */
1518 { (yyval.opval) = (ps[0].val.opval); }
1523 #line 1097 "perly.y" /* yacc.c:1646 */
1524 { (yyval.opval) = sawparens(newNULLLIST()); }
1529 #line 1099 "perly.y" /* yacc.c:1646 */
1530 { (yyval.opval) = (ps[0].val.opval); }
1535 #line 1101 "perly.y" /* yacc.c:1646 */
1536 { (yyval.opval) = (ps[0].val.opval); }
1541 #line 1103 "perly.y" /* yacc.c:1646 */
1542 { (yyval.opval) = (ps[0].val.opval); }
1547 #line 1105 "perly.y" /* yacc.c:1646 */
1548 { (yyval.opval) = (ps[0].val.opval); }
1553 #line 1107 "perly.y" /* yacc.c:1646 */
1554 { (yyval.opval) = newUNOP(OP_AV2ARYLEN, 0, ref((ps[0].val.opval), OP_AV2ARYLEN));}
1559 #line 1109 "perly.y" /* yacc.c:1646 */
1560 { (yyval.opval) = (ps[0].val.opval); }
1565 #line 1111 "perly.y" /* yacc.c:1646 */
1566 { (yyval.opval) = op_prepend_elem(OP_ASLICE,
1567 newOP(OP_PUSHMARK, 0),
1568 newLISTOP(OP_ASLICE, 0,
1569 list((ps[-1].val.opval)),
1570 ref((ps[-3].val.opval), OP_ASLICE)));
1571 if ((yyval.opval) && (ps[-3].val.opval))
1572 (yyval.opval)->op_private |=
1573 (ps[-3].val.opval)->op_private & OPpSLICEWARNING;
1579 #line 1121 "perly.y" /* yacc.c:1646 */
1580 { (yyval.opval) = op_prepend_elem(OP_KVASLICE,
1581 newOP(OP_PUSHMARK, 0),
1582 newLISTOP(OP_KVASLICE, 0,
1583 list((ps[-1].val.opval)),
1584 ref(oopsAV((ps[-3].val.opval)), OP_KVASLICE)));
1585 if ((yyval.opval) && (ps[-3].val.opval))
1586 (yyval.opval)->op_private |=
1587 (ps[-3].val.opval)->op_private & OPpSLICEWARNING;
1593 #line 1131 "perly.y" /* yacc.c:1646 */
1594 { (yyval.opval) = op_prepend_elem(OP_HSLICE,
1595 newOP(OP_PUSHMARK, 0),
1596 newLISTOP(OP_HSLICE, 0,
1597 list((ps[-2].val.opval)),
1598 ref(oopsHV((ps[-4].val.opval)), OP_HSLICE)));
1599 if ((yyval.opval) && (ps[-4].val.opval))
1600 (yyval.opval)->op_private |=
1601 (ps[-4].val.opval)->op_private & OPpSLICEWARNING;
1607 #line 1141 "perly.y" /* yacc.c:1646 */
1608 { (yyval.opval) = op_prepend_elem(OP_KVHSLICE,
1609 newOP(OP_PUSHMARK, 0),
1610 newLISTOP(OP_KVHSLICE, 0,
1611 list((ps[-2].val.opval)),
1612 ref((ps[-4].val.opval), OP_KVHSLICE)));
1613 if ((yyval.opval) && (ps[-4].val.opval))
1614 (yyval.opval)->op_private |=
1615 (ps[-4].val.opval)->op_private & OPpSLICEWARNING;
1621 #line 1151 "perly.y" /* yacc.c:1646 */
1622 { (yyval.opval) = (ps[0].val.opval); }
1627 #line 1153 "perly.y" /* yacc.c:1646 */
1628 { (yyval.opval) = newUNOP(OP_ENTERSUB, 0, scalar((ps[0].val.opval))); }
1633 #line 1155 "perly.y" /* yacc.c:1646 */
1634 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[-2].val.opval)));
1640 #line 1158 "perly.y" /* yacc.c:1646 */
1642 (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1643 op_append_elem(OP_LIST, (ps[-1].val.opval), scalar((ps[-3].val.opval))));
1649 #line 1163 "perly.y" /* yacc.c:1646 */
1650 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1651 op_append_elem(OP_LIST, (ps[0].val.opval), scalar((ps[-1].val.opval))));
1657 #line 1167 "perly.y" /* yacc.c:1646 */
1658 { (yyval.opval) = newSVREF((ps[-3].val.opval)); }
1663 #line 1169 "perly.y" /* yacc.c:1646 */
1664 { (yyval.opval) = newAVREF((ps[-3].val.opval)); }
1669 #line 1171 "perly.y" /* yacc.c:1646 */
1670 { (yyval.opval) = newHVREF((ps[-3].val.opval)); }
1675 #line 1173 "perly.y" /* yacc.c:1646 */
1676 { (yyval.opval) = newUNOP(OP_ENTERSUB, 0,
1677 scalar(newCVREF((ps[-1].val.ival),(ps[-3].val.opval)))); }
1682 #line 1176 "perly.y" /* yacc.c:1646 */
1683 { (yyval.opval) = newGVREF(0,(ps[-3].val.opval)); }
1688 #line 1178 "perly.y" /* yacc.c:1646 */
1689 { (yyval.opval) = newOP((ps[0].val.ival), OPf_SPECIAL);
1690 PL_hints |= HINT_BLOCK_SCOPE; }
1695 #line 1181 "perly.y" /* yacc.c:1646 */
1696 { (yyval.opval) = newLOOPEX((ps[-1].val.ival),(ps[0].val.opval)); }
1701 #line 1183 "perly.y" /* yacc.c:1646 */
1702 { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[0].val.opval))); }
1707 #line 1185 "perly.y" /* yacc.c:1646 */
1708 { (yyval.opval) = newOP((ps[0].val.ival), 0); }
1713 #line 1187 "perly.y" /* yacc.c:1646 */
1714 { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, (ps[0].val.opval)); }
1719 #line 1189 "perly.y" /* yacc.c:1646 */
1720 { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, (ps[0].val.opval)); }
1725 #line 1191 "perly.y" /* yacc.c:1646 */
1726 { (yyval.opval) = newOP(OP_REQUIRE, (ps[0].val.ival) ? OPf_SPECIAL : 0); }
1731 #line 1193 "perly.y" /* yacc.c:1646 */
1732 { (yyval.opval) = newUNOP(OP_REQUIRE, (ps[-1].val.ival) ? OPf_SPECIAL : 0, (ps[0].val.opval)); }
1737 #line 1195 "perly.y" /* yacc.c:1646 */
1738 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[0].val.opval))); }
1743 #line 1197 "perly.y" /* yacc.c:1646 */
1744 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1745 op_append_elem(OP_LIST, (ps[0].val.opval), scalar((ps[-1].val.opval)))); }
1750 #line 1200 "perly.y" /* yacc.c:1646 */
1751 { (yyval.opval) = newOP((ps[0].val.ival), 0); }
1756 #line 1202 "perly.y" /* yacc.c:1646 */
1757 { (yyval.opval) = newOP((ps[-2].val.ival), 0);}
1762 #line 1204 "perly.y" /* yacc.c:1646 */
1763 { (yyval.opval) = (ps[0].val.opval); }
1768 #line 1206 "perly.y" /* yacc.c:1646 */
1769 { (yyval.opval) = (ps[-2].val.opval); }
1774 #line 1208 "perly.y" /* yacc.c:1646 */
1775 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[0].val.opval))); }
1780 #line 1210 "perly.y" /* yacc.c:1646 */
1781 { (yyval.opval) = ((ps[-2].val.ival) == OP_NOT)
1782 ? newUNOP((ps[-2].val.ival), 0, newSVOP(OP_CONST, 0, newSViv(0)))
1783 : newOP((ps[-2].val.ival), OPf_SPECIAL); }
1788 #line 1214 "perly.y" /* yacc.c:1646 */
1789 { (yyval.opval) = newUNOP((ps[-3].val.ival), 0, (ps[-1].val.opval)); }
1794 #line 1216 "perly.y" /* yacc.c:1646 */
1796 if ( (ps[0].val.opval)->op_type != OP_TRANS
1797 && (ps[0].val.opval)->op_type != OP_TRANSR
1798 && (((PMOP*)(ps[0].val.opval))->op_pmflags & PMf_HAS_CV))
1800 (yyval.ival) = start_subparse(FALSE, CVf_ANON);
1801 SAVEFREESV(PL_compcv);
1809 #line 1227 "perly.y" /* yacc.c:1646 */
1810 { (yyval.opval) = pmruntime((ps[-5].val.opval), (ps[-2].val.opval), (ps[-1].val.opval), 1, (ps[-4].val.ival)); }
1815 #line 1235 "perly.y" /* yacc.c:1646 */
1816 { (yyval.opval) = my_attrs((ps[-1].val.opval),(ps[0].val.opval)); }
1821 #line 1237 "perly.y" /* yacc.c:1646 */
1822 { (yyval.opval) = localize((ps[0].val.opval),1); }
1827 #line 1239 "perly.y" /* yacc.c:1646 */
1828 { (yyval.opval) = newUNOP(OP_REFGEN, 0, my_attrs((ps[-1].val.opval),(ps[0].val.opval))); }
1833 #line 1244 "perly.y" /* yacc.c:1646 */
1834 { (yyval.opval) = sawparens((ps[-1].val.opval)); }
1839 #line 1246 "perly.y" /* yacc.c:1646 */
1840 { (yyval.opval) = sawparens(newNULLLIST()); }
1845 #line 1249 "perly.y" /* yacc.c:1646 */
1846 { (yyval.opval) = (ps[0].val.opval); }
1851 #line 1251 "perly.y" /* yacc.c:1646 */
1852 { (yyval.opval) = (ps[0].val.opval); }
1857 #line 1253 "perly.y" /* yacc.c:1646 */
1858 { (yyval.opval) = (ps[0].val.opval); }
1863 #line 1258 "perly.y" /* yacc.c:1646 */
1864 { (yyval.opval) = NULL; }
1869 #line 1260 "perly.y" /* yacc.c:1646 */
1870 { (yyval.opval) = (ps[0].val.opval); }
1875 #line 1264 "perly.y" /* yacc.c:1646 */
1876 { (yyval.opval) = NULL; }
1881 #line 1266 "perly.y" /* yacc.c:1646 */
1882 { (yyval.opval) = (ps[0].val.opval); }
1887 #line 1270 "perly.y" /* yacc.c:1646 */
1888 { (yyval.opval) = NULL; }
1893 #line 1272 "perly.y" /* yacc.c:1646 */
1894 { (yyval.opval) = (ps[0].val.opval); }
1899 #line 1278 "perly.y" /* yacc.c:1646 */
1900 { parser->in_my = 0; (yyval.opval) = my((ps[0].val.opval)); }
1905 #line 1295 "perly.y" /* yacc.c:1646 */
1906 { (yyval.opval) = newCVREF((ps[-1].val.ival),(ps[0].val.opval)); }
1911 #line 1299 "perly.y" /* yacc.c:1646 */
1912 { (yyval.opval) = newSVREF((ps[0].val.opval)); }
1917 #line 1303 "perly.y" /* yacc.c:1646 */
1918 { (yyval.opval) = newAVREF((ps[0].val.opval));
1919 if ((yyval.opval)) (yyval.opval)->op_private |= (ps[-1].val.ival);
1925 #line 1309 "perly.y" /* yacc.c:1646 */
1926 { (yyval.opval) = newHVREF((ps[0].val.opval));
1927 if ((yyval.opval)) (yyval.opval)->op_private |= (ps[-1].val.ival);
1933 #line 1315 "perly.y" /* yacc.c:1646 */
1934 { (yyval.opval) = newAVREF((ps[0].val.opval)); }
1939 #line 1317 "perly.y" /* yacc.c:1646 */
1940 { (yyval.opval) = newAVREF((ps[-3].val.opval)); }
1945 #line 1321 "perly.y" /* yacc.c:1646 */
1946 { (yyval.opval) = newGVREF(0,(ps[0].val.opval)); }
1951 #line 1326 "perly.y" /* yacc.c:1646 */
1952 { (yyval.opval) = newAVREF((ps[-2].val.opval)); }
1957 #line 1331 "perly.y" /* yacc.c:1646 */
1958 { (yyval.opval) = newHVREF((ps[-2].val.opval)); }
1963 #line 1336 "perly.y" /* yacc.c:1646 */
1964 { (yyval.opval) = newGVREF(0,(ps[-2].val.opval)); }
1969 #line 1341 "perly.y" /* yacc.c:1646 */
1970 { (yyval.opval) = scalar((ps[0].val.opval)); }
1975 #line 1343 "perly.y" /* yacc.c:1646 */
1976 { (yyval.opval) = scalar((ps[0].val.opval)); }
1981 #line 1345 "perly.y" /* yacc.c:1646 */
1982 { (yyval.opval) = op_scope((ps[0].val.opval)); }
1987 #line 1348 "perly.y" /* yacc.c:1646 */
1988 { (yyval.opval) = (ps[0].val.opval); }
1998 * fca93dc4b6a371876339e9ad458685bd6fe71cfe326ff40ea9c78a9acf02da64 perly.y
1999 * b6fae5748f9bef6db4740aa5e122b84ac5181852d42474d0ecad621fa4253306 regen_perly.pl