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

... / ...

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