perl5.git.perl.org Git - perl5.git/blame_incremental

... / ...

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