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) = NULL;
567 parser->copline = NOLINE;
573 #line 493 "perly.y" /* yacc.c:1646 */
575 if ((ps[0].val.opval)) {
576 OP *term = (ps[0].val.opval);
577 list = op_append_elem(OP_LIST, (ps[-1].val.opval), term);
580 list = (ps[-1].val.opval);
582 if (parser->copline == NOLINE)
583 parser->copline = CopLINE(PL_curcop)-1;
584 else parser->copline--;
585 (yyval.opval) = newSTATEOP(0, NULL,
586 op_convert_list(OP_FORMLINE, 0, list));
592 #line 510 "perly.y" /* yacc.c:1646 */
593 { (yyval.opval) = NULL; }
598 #line 512 "perly.y" /* yacc.c:1646 */
599 { (yyval.opval) = op_unscope((ps[-1].val.opval)); }
604 #line 517 "perly.y" /* yacc.c:1646 */
605 { (yyval.opval) = NULL; }
610 #line 519 "perly.y" /* yacc.c:1646 */
611 { (yyval.opval) = (ps[0].val.opval); }
616 #line 521 "perly.y" /* yacc.c:1646 */
617 { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[0].val.opval), (ps[-2].val.opval)); }
622 #line 523 "perly.y" /* yacc.c:1646 */
623 { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[0].val.opval), (ps[-2].val.opval)); }
628 #line 525 "perly.y" /* yacc.c:1646 */
629 { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, scalar((ps[0].val.opval)), (ps[-2].val.opval)); }
634 #line 527 "perly.y" /* yacc.c:1646 */
635 { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, (ps[0].val.opval), (ps[-2].val.opval)); }
640 #line 529 "perly.y" /* yacc.c:1646 */
641 { (yyval.opval) = newFOROP(0, NULL, (ps[0].val.opval), (ps[-2].val.opval), NULL);
642 parser->copline = (line_t)(ps[-1].val.ival); }
647 #line 532 "perly.y" /* yacc.c:1646 */
648 { (yyval.opval) = newWHENOP((ps[0].val.opval), op_scope((ps[-2].val.opval))); }
653 #line 537 "perly.y" /* yacc.c:1646 */
654 { (yyval.opval) = NULL; }
659 #line 539 "perly.y" /* yacc.c:1646 */
661 ((ps[0].val.opval))->op_flags |= OPf_PARENS;
662 (yyval.opval) = op_scope((ps[0].val.opval));
668 #line 544 "perly.y" /* yacc.c:1646 */
669 { parser->copline = (line_t)(ps[-5].val.ival);
670 (yyval.opval) = newCONDOP(0,
671 newSTATEOP(OPf_SPECIAL,NULL,(ps[-3].val.opval)),
672 op_scope((ps[-1].val.opval)), (ps[0].val.opval));
673 PL_hints |= HINT_BLOCK_SCOPE;
679 #line 554 "perly.y" /* yacc.c:1646 */
680 { (yyval.opval) = NULL; }
685 #line 556 "perly.y" /* yacc.c:1646 */
686 { (yyval.opval) = op_scope((ps[0].val.opval)); }
691 #line 561 "perly.y" /* yacc.c:1646 */
692 { (yyval.ival) = (PL_min_intro_pending &&
693 PL_max_intro_pending >= PL_min_intro_pending);
699 #line 567 "perly.y" /* yacc.c:1646 */
700 { (yyval.opval) = NULL; }
705 #line 573 "perly.y" /* yacc.c:1646 */
707 (void)scan_num("1", &tmplval);
708 (yyval.opval) = tmplval.opval; }
713 #line 581 "perly.y" /* yacc.c:1646 */
714 { (yyval.opval) = invert(scalar((ps[0].val.opval))); }
719 #line 586 "perly.y" /* yacc.c:1646 */
720 { (yyval.opval) = (ps[0].val.opval); intro_my(); }
725 #line 590 "perly.y" /* yacc.c:1646 */
726 { (yyval.opval) = (ps[0].val.opval); intro_my(); }
731 #line 593 "perly.y" /* yacc.c:1646 */
732 { (yyval.opval) = (ps[0].val.opval); }
737 #line 594 "perly.y" /* yacc.c:1646 */
738 { (yyval.opval) = NULL; }
743 #line 598 "perly.y" /* yacc.c:1646 */
744 { (yyval.ival) = start_subparse(FALSE, 0);
745 SAVEFREESV(PL_compcv); }
750 #line 604 "perly.y" /* yacc.c:1646 */
751 { (yyval.ival) = start_subparse(FALSE, CVf_ANON);
752 SAVEFREESV(PL_compcv); }
757 #line 609 "perly.y" /* yacc.c:1646 */
758 { (yyval.ival) = start_subparse(TRUE, 0);
759 SAVEFREESV(PL_compcv); }
764 #line 620 "perly.y" /* yacc.c:1646 */
765 { (yyval.opval) = NULL; }
770 #line 626 "perly.y" /* yacc.c:1646 */
771 { (yyval.opval) = NULL; }
776 #line 628 "perly.y" /* yacc.c:1646 */
777 { (yyval.opval) = (ps[0].val.opval); }
782 #line 630 "perly.y" /* yacc.c:1646 */
783 { (yyval.opval) = NULL; }
788 #line 635 "perly.y" /* yacc.c:1646 */
789 { (yyval.opval) = (ps[0].val.opval); }
794 #line 637 "perly.y" /* yacc.c:1646 */
795 { (yyval.opval) = NULL; }
800 #line 648 "perly.y" /* yacc.c:1646 */
801 { parser->in_my = 0; (yyval.opval) = NULL; }
806 #line 650 "perly.y" /* yacc.c:1646 */
807 { parser->in_my = 0; (yyval.opval) = (ps[0].val.opval); }
812 #line 655 "perly.y" /* yacc.c:1646 */
813 { (yyval.ival) = '@'; }
818 #line 657 "perly.y" /* yacc.c:1646 */
819 { (yyval.ival) = '%'; }
824 #line 661 "perly.y" /* yacc.c:1646 */
826 I32 sigil = (ps[-2].val.ival);
827 OP *var = (ps[-1].val.opval);
828 OP *defexpr = (ps[0].val.opval);
830 if (parser->sig_slurpy)
831 yyerror("Multiple slurpy parameters not allowed");
832 parser->sig_slurpy = (char)sigil;
835 yyerror("A slurpy parameter may not have "
838 (yyval.opval) = var ? newSTATEOP(0, NULL, var) : NULL;
844 #line 680 "perly.y" /* yacc.c:1646 */
845 { (yyval.opval) = NULL; }
850 #line 682 "perly.y" /* yacc.c:1646 */
851 { (yyval.opval) = newOP(OP_NULL, 0); }
856 #line 684 "perly.y" /* yacc.c:1646 */
857 { (yyval.opval) = (ps[0].val.opval); }
862 #line 690 "perly.y" /* yacc.c:1646 */
864 OP *var = (ps[-1].val.opval);
865 OP *defexpr = (ps[0].val.opval);
867 if (parser->sig_slurpy)
868 yyerror("Slurpy parameter not last");
873 parser->sig_optelems++;
875 if ( defexpr->op_type == OP_NULL
876 && !(defexpr->op_flags & OPf_KIDS))
878 /* handle '$=' special case */
880 yyerror("Optional parameter "
881 "lacks default expression");
885 /* a normal '=default' expression */
886 OP *defop = (OP*)alloc_LOGOP(OP_ARGDEFELEM,
889 /* re-purpose op_targ to hold @_ index */
891 (PADOFFSET)(parser->sig_elems - 1);
894 var->op_flags |= OPf_STACKED;
895 (void)op_sibling_splice(var,
900 var = newUNOP(OP_NULL, 0, defop);
903 /* NB: normally the first child of a
904 * logop is executed before the logop,
905 * and it pushes a boolean result
906 * ready for the logop. For ARGDEFELEM,
907 * the op itself does the boolean
908 * calculation, so set the first op to
911 var->op_next = defop;
912 defexpr->op_next = var;
916 if (parser->sig_optelems)
917 yyerror("Mandatory parameter "
918 "follows optional parameter");
921 (yyval.opval) = var ? newSTATEOP(0, NULL, var) : NULL;
927 #line 755 "perly.y" /* yacc.c:1646 */
928 { parser->in_my = KEY_sigvar; (yyval.opval) = (ps[0].val.opval); }
933 #line 757 "perly.y" /* yacc.c:1646 */
934 { parser->in_my = KEY_sigvar; (yyval.opval) = (ps[0].val.opval); }
939 #line 763 "perly.y" /* yacc.c:1646 */
940 { (yyval.opval) = (ps[-1].val.opval); }
945 #line 765 "perly.y" /* yacc.c:1646 */
947 (yyval.opval) = op_append_list(OP_LINESEQ, (ps[-2].val.opval), (ps[0].val.opval));
953 #line 769 "perly.y" /* yacc.c:1646 */
954 { (yyval.opval) = (ps[0].val.opval); }
959 #line 774 "perly.y" /* yacc.c:1646 */
960 { (yyval.opval) = NULL; }
965 #line 776 "perly.y" /* yacc.c:1646 */
966 { (yyval.opval) = (ps[0].val.opval); }
971 #line 780 "perly.y" /* yacc.c:1646 */
974 SAVEIV(parser->sig_elems);
975 SAVEIV(parser->sig_optelems);
976 SAVEI8(parser->sig_slurpy);
977 parser->sig_elems = 0;
978 parser->sig_optelems = 0;
979 parser->sig_slurpy = 0;
980 parser->in_my = KEY_sigvar;
986 #line 792 "perly.y" /* yacc.c:1646 */
988 OP *sigops = (ps[-1].val.opval);
992 if (!parser->error_count) {
993 assert(FEATURE_SIGNATURES_IS_ENABLED);
996 /* We shouldn't get here otherwise */
997 Perl_ck_warner_d(aTHX_
998 packWARN(WARN_EXPERIMENTAL__SIGNATURES),
999 "The signatures feature is experimental");
1001 aux = (UNOP_AUX_item*)PerlMemShared_malloc(
1002 sizeof(UNOP_AUX_item) * 3);
1003 aux[0].iv = parser->sig_elems;
1004 aux[1].iv = parser->sig_optelems;
1005 aux[2].iv = parser->sig_slurpy;
1006 check = newUNOP_AUX(OP_ARGCHECK, 0, NULL, aux);
1007 sigops = op_prepend_elem(OP_LINESEQ, check, sigops);
1008 sigops = op_prepend_elem(OP_LINESEQ,
1009 newSTATEOP(0, NULL, NULL),
1011 /* a nextstate at the end handles context
1012 * correctly for an empty sub body */
1013 (yyval.opval) = op_append_elem(OP_LINESEQ,
1015 newSTATEOP(0, NULL, NULL));
1018 parser->expect = XATTRBLOCK;
1025 #line 832 "perly.y" /* yacc.c:1646 */
1026 { (yyval.opval) = NULL; }
1031 #line 837 "perly.y" /* yacc.c:1646 */
1032 { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
1037 #line 839 "perly.y" /* yacc.c:1646 */
1038 { (yyval.opval) = newLOGOP((ps[-1].val.ival), 0, (ps[-2].val.opval), (ps[0].val.opval)); }
1043 #line 841 "perly.y" /* yacc.c:1646 */
1044 { (yyval.opval) = newLOGOP(OP_DOR, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
1049 #line 847 "perly.y" /* yacc.c:1646 */
1050 { (yyval.opval) = (ps[-1].val.opval); }
1055 #line 849 "perly.y" /* yacc.c:1646 */
1057 OP* term = (ps[0].val.opval);
1058 (yyval.opval) = op_append_elem(OP_LIST, (ps[-2].val.opval), term);
1064 #line 858 "perly.y" /* yacc.c:1646 */
1065 { (yyval.opval) = op_convert_list((ps[-2].val.ival), OPf_STACKED,
1066 op_prepend_elem(OP_LIST, newGVREF((ps[-2].val.ival),(ps[-1].val.opval)), (ps[0].val.opval)) );
1072 #line 862 "perly.y" /* yacc.c:1646 */
1073 { (yyval.opval) = op_convert_list((ps[-4].val.ival), OPf_STACKED,
1074 op_prepend_elem(OP_LIST, newGVREF((ps[-4].val.ival),(ps[-2].val.opval)), (ps[-1].val.opval)) );
1080 #line 866 "perly.y" /* yacc.c:1646 */
1081 { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
1082 op_append_elem(OP_LIST,
1083 op_prepend_elem(OP_LIST, scalar((ps[-5].val.opval)), (ps[-1].val.opval)),
1084 newMETHOP(OP_METHOD, 0, (ps[-3].val.opval))));
1090 #line 872 "perly.y" /* yacc.c:1646 */
1091 { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
1092 op_append_elem(OP_LIST, scalar((ps[-2].val.opval)),
1093 newMETHOP(OP_METHOD, 0, (ps[0].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,
1102 op_prepend_elem(OP_LIST, (ps[-1].val.opval), (ps[0].val.opval)),
1103 newMETHOP(OP_METHOD, 0, (ps[-2].val.opval))));
1109 #line 883 "perly.y" /* yacc.c:1646 */
1110 { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
1111 op_append_elem(OP_LIST,
1112 op_prepend_elem(OP_LIST, (ps[-3].val.opval), (ps[-1].val.opval)),
1113 newMETHOP(OP_METHOD, 0, (ps[-4].val.opval))));
1119 #line 889 "perly.y" /* yacc.c:1646 */
1120 { (yyval.opval) = op_convert_list((ps[-1].val.ival), 0, (ps[0].val.opval)); }
1125 #line 891 "perly.y" /* yacc.c:1646 */
1126 { (yyval.opval) = op_convert_list((ps[-3].val.ival), 0, (ps[-1].val.opval)); }
1131 #line 893 "perly.y" /* yacc.c:1646 */
1132 { SvREFCNT_inc_simple_void(PL_compcv);
1133 (yyval.opval) = newANONATTRSUB((ps[-1].val.ival), 0, NULL, (ps[0].val.opval)); }
1138 #line 896 "perly.y" /* yacc.c:1646 */
1139 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1140 op_append_elem(OP_LIST,
1141 op_prepend_elem(OP_LIST, (ps[-1].val.opval), (ps[0].val.opval)), (ps[-4].val.opval)));
1147 #line 911 "perly.y" /* yacc.c:1646 */
1148 { (yyval.opval) = newBINOP(OP_GELEM, 0, (ps[-4].val.opval), scalar((ps[-2].val.opval))); }
1153 #line 913 "perly.y" /* yacc.c:1646 */
1154 { (yyval.opval) = newBINOP(OP_AELEM, 0, oopsAV((ps[-3].val.opval)), scalar((ps[-1].val.opval)));
1160 #line 916 "perly.y" /* yacc.c:1646 */
1161 { (yyval.opval) = newBINOP(OP_AELEM, 0,
1162 ref(newAVREF((ps[-4].val.opval)),OP_RV2AV),
1163 scalar((ps[-1].val.opval)));
1169 #line 921 "perly.y" /* yacc.c:1646 */
1170 { (yyval.opval) = newBINOP(OP_AELEM, 0,
1171 ref(newAVREF((ps[-3].val.opval)),OP_RV2AV),
1172 scalar((ps[-1].val.opval)));
1178 #line 926 "perly.y" /* yacc.c:1646 */
1179 { (yyval.opval) = newBINOP(OP_HELEM, 0, oopsHV((ps[-4].val.opval)), jmaybe((ps[-2].val.opval)));
1185 #line 929 "perly.y" /* yacc.c:1646 */
1186 { (yyval.opval) = newBINOP(OP_HELEM, 0,
1187 ref(newHVREF((ps[-5].val.opval)),OP_RV2HV),
1188 jmaybe((ps[-2].val.opval))); }
1193 #line 933 "perly.y" /* yacc.c:1646 */
1194 { (yyval.opval) = newBINOP(OP_HELEM, 0,
1195 ref(newHVREF((ps[-4].val.opval)),OP_RV2HV),
1196 jmaybe((ps[-2].val.opval))); }
1201 #line 937 "perly.y" /* yacc.c:1646 */
1202 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1203 newCVREF(0, scalar((ps[-3].val.opval)))); }
1208 #line 940 "perly.y" /* yacc.c:1646 */
1209 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1210 op_append_elem(OP_LIST, (ps[-1].val.opval),
1211 newCVREF(0, scalar((ps[-4].val.opval))))); }
1216 #line 945 "perly.y" /* yacc.c:1646 */
1217 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1218 op_append_elem(OP_LIST, (ps[-1].val.opval),
1219 newCVREF(0, scalar((ps[-3].val.opval))))); }
1224 #line 949 "perly.y" /* yacc.c:1646 */
1225 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1226 newCVREF(0, scalar((ps[-2].val.opval)))); }
1231 #line 952 "perly.y" /* yacc.c:1646 */
1232 { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), (ps[-4].val.opval)); }
1237 #line 954 "perly.y" /* yacc.c:1646 */
1238 { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), (ps[-3].val.opval)); }
1243 #line 956 "perly.y" /* yacc.c:1646 */
1244 { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), NULL); }
1249 #line 961 "perly.y" /* yacc.c:1646 */
1250 { (yyval.opval) = newASSIGNOP(OPf_STACKED, (ps[-2].val.opval), (ps[-1].val.ival), (ps[0].val.opval)); }
1255 #line 963 "perly.y" /* yacc.c:1646 */
1256 { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
1261 #line 965 "perly.y" /* yacc.c:1646 */
1262 { if ((ps[-1].val.ival) != OP_REPEAT)
1263 scalar((ps[-2].val.opval));
1264 (yyval.opval) = newBINOP((ps[-1].val.ival), 0, (ps[-2].val.opval), scalar((ps[0].val.opval)));
1270 #line 970 "perly.y" /* yacc.c:1646 */
1271 { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
1276 #line 972 "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 974 "perly.y" /* yacc.c:1646 */
1283 { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
1288 #line 976 "perly.y" /* yacc.c:1646 */
1289 { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
1294 #line 978 "perly.y" /* yacc.c:1646 */
1295 { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
1300 #line 980 "perly.y" /* yacc.c:1646 */
1301 { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
1306 #line 982 "perly.y" /* yacc.c:1646 */
1307 { (yyval.opval) = newRANGE((ps[-1].val.ival), scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
1312 #line 984 "perly.y" /* yacc.c:1646 */
1313 { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
1318 #line 986 "perly.y" /* yacc.c:1646 */
1319 { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
1324 #line 988 "perly.y" /* yacc.c:1646 */
1325 { (yyval.opval) = newLOGOP(OP_DOR, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
1330 #line 990 "perly.y" /* yacc.c:1646 */
1331 { (yyval.opval) = bind_match((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
1336 #line 995 "perly.y" /* yacc.c:1646 */
1337 { (yyval.opval) = newUNOP(OP_NEGATE, 0, scalar((ps[0].val.opval))); }
1342 #line 997 "perly.y" /* yacc.c:1646 */
1343 { (yyval.opval) = (ps[0].val.opval); }
1348 #line 1000 "perly.y" /* yacc.c:1646 */
1349 { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[0].val.opval))); }
1354 #line 1002 "perly.y" /* yacc.c:1646 */
1355 { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, scalar((ps[0].val.opval))); }
1360 #line 1004 "perly.y" /* yacc.c:1646 */
1361 { (yyval.opval) = newUNOP(OP_POSTINC, 0,
1362 op_lvalue(scalar((ps[-1].val.opval)), OP_POSTINC)); }
1367 #line 1007 "perly.y" /* yacc.c:1646 */
1368 { (yyval.opval) = newUNOP(OP_POSTDEC, 0,
1369 op_lvalue(scalar((ps[-1].val.opval)), OP_POSTDEC));}
1374 #line 1010 "perly.y" /* yacc.c:1646 */
1375 { (yyval.opval) = op_convert_list(OP_JOIN, 0,
1389 #line 1021 "perly.y" /* yacc.c:1646 */
1390 { (yyval.opval) = newUNOP(OP_PREINC, 0,
1391 op_lvalue(scalar((ps[0].val.opval)), OP_PREINC)); }
1396 #line 1024 "perly.y" /* yacc.c:1646 */
1397 { (yyval.opval) = newUNOP(OP_PREDEC, 0,
1398 op_lvalue(scalar((ps[0].val.opval)), OP_PREDEC)); }
1403 #line 1031 "perly.y" /* yacc.c:1646 */
1404 { (yyval.opval) = newANONLIST((ps[-1].val.opval)); }
1409 #line 1033 "perly.y" /* yacc.c:1646 */
1410 { (yyval.opval) = newANONLIST(NULL);}
1415 #line 1035 "perly.y" /* yacc.c:1646 */
1416 { (yyval.opval) = newANONHASH((ps[-2].val.opval)); }
1421 #line 1037 "perly.y" /* yacc.c:1646 */
1422 { (yyval.opval) = newANONHASH(NULL); }
1427 #line 1039 "perly.y" /* yacc.c:1646 */
1428 { SvREFCNT_inc_simple_void(PL_compcv);
1429 (yyval.opval) = newANONATTRSUB((ps[-3].val.ival), (ps[-2].val.opval), (ps[-1].val.opval), (ps[0].val.opval)); }
1434 #line 1042 "perly.y" /* yacc.c:1646 */
1437 if (parser->copline > (line_t)(ps[-2].val.ival))
1438 parser->copline = (line_t)(ps[-2].val.ival);
1439 body = block_end((ps[-5].val.ival),
1440 op_append_list(OP_LINESEQ, (ps[-4].val.opval), (ps[-1].val.opval)));
1441 SvREFCNT_inc_simple_void(PL_compcv);
1442 (yyval.opval) = newANONATTRSUB((ps[-6].val.ival), NULL, (ps[-3].val.opval), body);
1448 #line 1056 "perly.y" /* yacc.c:1646 */
1449 { (yyval.opval) = dofile((ps[0].val.opval), (ps[-1].val.ival));}
1454 #line 1058 "perly.y" /* yacc.c:1646 */
1455 { (yyval.opval) = newUNOP(OP_NULL, OPf_SPECIAL, op_scope((ps[0].val.opval)));}
1460 #line 1066 "perly.y" /* yacc.c:1646 */
1461 { (yyval.opval) = newCONDOP(0, (ps[-4].val.opval), (ps[-2].val.opval), (ps[0].val.opval)); }
1466 #line 1068 "perly.y" /* yacc.c:1646 */
1467 { (yyval.opval) = newUNOP(OP_REFGEN, 0, (ps[0].val.opval)); }
1472 #line 1070 "perly.y" /* yacc.c:1646 */
1473 { (yyval.opval) = newUNOP(OP_REFGEN, 0, localize((ps[0].val.opval),1)); }
1478 #line 1072 "perly.y" /* yacc.c:1646 */
1479 { (yyval.opval) = (ps[0].val.opval); }
1484 #line 1074 "perly.y" /* yacc.c:1646 */
1485 { (yyval.opval) = localize((ps[0].val.opval),0); }
1490 #line 1076 "perly.y" /* yacc.c:1646 */
1491 { (yyval.opval) = sawparens((ps[-1].val.opval)); }
1496 #line 1078 "perly.y" /* yacc.c:1646 */
1497 { (yyval.opval) = (ps[0].val.opval); }
1502 #line 1080 "perly.y" /* yacc.c:1646 */
1503 { (yyval.opval) = sawparens(newNULLLIST()); }
1508 #line 1082 "perly.y" /* yacc.c:1646 */
1509 { (yyval.opval) = (ps[0].val.opval); }
1514 #line 1084 "perly.y" /* yacc.c:1646 */
1515 { (yyval.opval) = (ps[0].val.opval); }
1520 #line 1086 "perly.y" /* yacc.c:1646 */
1521 { (yyval.opval) = (ps[0].val.opval); }
1526 #line 1088 "perly.y" /* yacc.c:1646 */
1527 { (yyval.opval) = (ps[0].val.opval); }
1532 #line 1090 "perly.y" /* yacc.c:1646 */
1533 { (yyval.opval) = newUNOP(OP_AV2ARYLEN, 0, ref((ps[0].val.opval), OP_AV2ARYLEN));}
1538 #line 1092 "perly.y" /* yacc.c:1646 */
1539 { (yyval.opval) = (ps[0].val.opval); }
1544 #line 1094 "perly.y" /* yacc.c:1646 */
1545 { (yyval.opval) = op_prepend_elem(OP_ASLICE,
1546 newOP(OP_PUSHMARK, 0),
1547 newLISTOP(OP_ASLICE, 0,
1548 list((ps[-1].val.opval)),
1549 ref((ps[-3].val.opval), OP_ASLICE)));
1550 if ((yyval.opval) && (ps[-3].val.opval))
1551 (yyval.opval)->op_private |=
1552 (ps[-3].val.opval)->op_private & OPpSLICEWARNING;
1558 #line 1104 "perly.y" /* yacc.c:1646 */
1559 { (yyval.opval) = op_prepend_elem(OP_KVASLICE,
1560 newOP(OP_PUSHMARK, 0),
1561 newLISTOP(OP_KVASLICE, 0,
1562 list((ps[-1].val.opval)),
1563 ref(oopsAV((ps[-3].val.opval)), OP_KVASLICE)));
1564 if ((yyval.opval) && (ps[-3].val.opval))
1565 (yyval.opval)->op_private |=
1566 (ps[-3].val.opval)->op_private & OPpSLICEWARNING;
1572 #line 1114 "perly.y" /* yacc.c:1646 */
1573 { (yyval.opval) = op_prepend_elem(OP_HSLICE,
1574 newOP(OP_PUSHMARK, 0),
1575 newLISTOP(OP_HSLICE, 0,
1576 list((ps[-2].val.opval)),
1577 ref(oopsHV((ps[-4].val.opval)), OP_HSLICE)));
1578 if ((yyval.opval) && (ps[-4].val.opval))
1579 (yyval.opval)->op_private |=
1580 (ps[-4].val.opval)->op_private & OPpSLICEWARNING;
1586 #line 1124 "perly.y" /* yacc.c:1646 */
1587 { (yyval.opval) = op_prepend_elem(OP_KVHSLICE,
1588 newOP(OP_PUSHMARK, 0),
1589 newLISTOP(OP_KVHSLICE, 0,
1590 list((ps[-2].val.opval)),
1591 ref((ps[-4].val.opval), OP_KVHSLICE)));
1592 if ((yyval.opval) && (ps[-4].val.opval))
1593 (yyval.opval)->op_private |=
1594 (ps[-4].val.opval)->op_private & OPpSLICEWARNING;
1600 #line 1134 "perly.y" /* yacc.c:1646 */
1601 { (yyval.opval) = (ps[0].val.opval); }
1606 #line 1136 "perly.y" /* yacc.c:1646 */
1607 { (yyval.opval) = newUNOP(OP_ENTERSUB, 0, scalar((ps[0].val.opval))); }
1612 #line 1138 "perly.y" /* yacc.c:1646 */
1613 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[-2].val.opval)));
1619 #line 1141 "perly.y" /* yacc.c:1646 */
1621 (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1622 op_append_elem(OP_LIST, (ps[-1].val.opval), scalar((ps[-3].val.opval))));
1628 #line 1146 "perly.y" /* yacc.c:1646 */
1629 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1630 op_append_elem(OP_LIST, (ps[0].val.opval), scalar((ps[-1].val.opval))));
1636 #line 1150 "perly.y" /* yacc.c:1646 */
1637 { (yyval.opval) = newSVREF((ps[-3].val.opval)); }
1642 #line 1152 "perly.y" /* yacc.c:1646 */
1643 { (yyval.opval) = newAVREF((ps[-3].val.opval)); }
1648 #line 1154 "perly.y" /* yacc.c:1646 */
1649 { (yyval.opval) = newHVREF((ps[-3].val.opval)); }
1654 #line 1156 "perly.y" /* yacc.c:1646 */
1655 { (yyval.opval) = newUNOP(OP_ENTERSUB, 0,
1656 scalar(newCVREF((ps[-1].val.ival),(ps[-3].val.opval)))); }
1661 #line 1159 "perly.y" /* yacc.c:1646 */
1662 { (yyval.opval) = newGVREF(0,(ps[-3].val.opval)); }
1667 #line 1161 "perly.y" /* yacc.c:1646 */
1668 { (yyval.opval) = newOP((ps[0].val.ival), OPf_SPECIAL);
1669 PL_hints |= HINT_BLOCK_SCOPE; }
1674 #line 1164 "perly.y" /* yacc.c:1646 */
1675 { (yyval.opval) = newLOOPEX((ps[-1].val.ival),(ps[0].val.opval)); }
1680 #line 1166 "perly.y" /* yacc.c:1646 */
1681 { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[0].val.opval))); }
1686 #line 1168 "perly.y" /* yacc.c:1646 */
1687 { (yyval.opval) = newOP((ps[0].val.ival), 0); }
1692 #line 1170 "perly.y" /* yacc.c:1646 */
1693 { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, (ps[0].val.opval)); }
1698 #line 1172 "perly.y" /* yacc.c:1646 */
1699 { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, (ps[0].val.opval)); }
1704 #line 1174 "perly.y" /* yacc.c:1646 */
1705 { (yyval.opval) = newOP(OP_REQUIRE, (ps[0].val.ival) ? OPf_SPECIAL : 0); }
1710 #line 1176 "perly.y" /* yacc.c:1646 */
1711 { (yyval.opval) = newUNOP(OP_REQUIRE, (ps[-1].val.ival) ? OPf_SPECIAL : 0, (ps[0].val.opval)); }
1716 #line 1178 "perly.y" /* yacc.c:1646 */
1717 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[0].val.opval))); }
1722 #line 1180 "perly.y" /* yacc.c:1646 */
1723 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1724 op_append_elem(OP_LIST, (ps[0].val.opval), scalar((ps[-1].val.opval)))); }
1729 #line 1183 "perly.y" /* yacc.c:1646 */
1730 { (yyval.opval) = newOP((ps[0].val.ival), 0); }
1735 #line 1185 "perly.y" /* yacc.c:1646 */
1736 { (yyval.opval) = newOP((ps[-2].val.ival), 0);}
1741 #line 1187 "perly.y" /* yacc.c:1646 */
1742 { (yyval.opval) = (ps[0].val.opval); }
1747 #line 1189 "perly.y" /* yacc.c:1646 */
1748 { (yyval.opval) = (ps[-2].val.opval); }
1753 #line 1191 "perly.y" /* yacc.c:1646 */
1754 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[0].val.opval))); }
1759 #line 1193 "perly.y" /* yacc.c:1646 */
1760 { (yyval.opval) = ((ps[-2].val.ival) == OP_NOT)
1761 ? newUNOP((ps[-2].val.ival), 0, newSVOP(OP_CONST, 0, newSViv(0)))
1762 : newOP((ps[-2].val.ival), OPf_SPECIAL); }
1767 #line 1197 "perly.y" /* yacc.c:1646 */
1768 { (yyval.opval) = newUNOP((ps[-3].val.ival), 0, (ps[-1].val.opval)); }
1773 #line 1199 "perly.y" /* yacc.c:1646 */
1775 if ( (ps[0].val.opval)->op_type != OP_TRANS
1776 && (ps[0].val.opval)->op_type != OP_TRANSR
1777 && (((PMOP*)(ps[0].val.opval))->op_pmflags & PMf_HAS_CV))
1779 (yyval.ival) = start_subparse(FALSE, CVf_ANON);
1780 SAVEFREESV(PL_compcv);
1788 #line 1210 "perly.y" /* yacc.c:1646 */
1789 { (yyval.opval) = pmruntime((ps[-5].val.opval), (ps[-2].val.opval), (ps[-1].val.opval), 1, (ps[-4].val.ival)); }
1794 #line 1214 "perly.y" /* yacc.c:1646 */
1796 (yyval.opval) = newLISTOP(OP_DIE, 0, newOP(OP_PUSHMARK, 0),
1797 newSVOP(OP_CONST, 0, newSVpvs("Unimplemented")));
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 * 68a62998f7c607d7a1fa0fdf2d16ec19074c256dde18dfc475daff70d378e025 perly.y
1987 * 153cba5d215c1a083a0459c43f4d55c45fd0a7093c197d7247a456dcde21ea53 regen_perly.pl