Branch Coverage

op.c

Criterion	Covered	Total	%
branch	3866	4844	79.8

line	true	false	branch
174	456646253	5839	if (!PL_compcv || CvROOT(PL_compcv)
	456645915	338	if (!PL_compcv || CvROOT(PL_compcv)
175	447994036	8651879	|| (CvSTART(PL_compcv) && !CvSLABBED(PL_compcv)))
	0	447994036	|| (CvSTART(PL_compcv) && !CvSLABBED(PL_compcv)))
184	8651879	447994036	if (!CvSTART(PL_compcv)) {
198	108216474	348429441	if (slab->opslab_freed) {
202	135090034	38609811	while (o && DIFF(OpSLOT(o), OpSLOT(o)->opslot_next) < sz) {
	65483371	69606663	while (o && DIFF(OpSLOT(o), OpSLOT(o)->opslot_next) < sz) {
207	69606663	38609811	if (o) {
209	0	69606663	Zero(o, opsz, I32 *);
223	327681913	59357339	slab2 = slab->opslab_next ? slab->opslab_next : slab;
224	12361095	374678157	if ((space = DIFF(&slab2->opslab_slots, slab2->opslab_first)) < sz) {
229	2144408	10216687	if (space >= SIZE_TO_PSIZE(sizeof(OP)) + OPSLOT_HEADER_P) {
239	268926157	12361095	while (slot->opslot_next) slot = slot->opslot_next;
252	10324294	376714958	if (DIFF(&slab2->opslab_slots, slot)
320	214	137233454	if (!o->op_slabbed) {
321	214	0	if (!o->op_static)
333	1994821	135238633	OpslabREFCNT_dec_padok(slab);
342	0	0	if (havepad) {
347	0	0	if (havepad) LEAVE;
358	4281686	2106172	for (; slab; slab = slab2) {
387	348993	111260	for (slot = slab2->opslab_first;
390	1559	347434	if (slot->opslot_op.op_type != OP_FREED
391	1559	0	&& !(slot->opslot_op.op_savefree
399	751	808	if (slab->opslab_refcnt == 1) goto free;
402	717	110543	} while ((slab2 = slab2->opslab_next));
404	0	110543	if (slab->opslab_refcnt > 1) { /* still referenced by the savestack */
487	0	1	yyerror(Perl_form(aTHX_ "Missing comma after first argument to %s function",
	0	0	yyerror(Perl_form(aTHX_ "Missing comma after first argument to %s function",
533	0	6	yyerror_pv(Perl_form(aTHX_ "Type of arg %d to %s must be %s (not %s)",
	0	0	yyerror_pv(Perl_form(aTHX_ "Type of arg %d to %s must be %s (not %s)",
543	0	9	yyerror_pv(Perl_form(aTHX_ "Type of arg %d to %"SVf" must be %s (not %s)",
	0	0	yyerror_pv(Perl_form(aTHX_ "Type of arg %d to %"SVf" must be %s (not %s)",
571	0	10625678	if (flags & ~SVf_UTF8)
580	10625678	0	if (len &&
	10123020	502658	if (len &&
	16	48421	if (len &&
	9	48412	if (len &&
581	53025	10069995	!(is_our ||
	4585	5	!(is_our ||
582	48437	4588	isALPHA(name[1]) ||
583	2	14	((flags & SVf_UTF8) && isIDFIRST_utf8((U8 *)name+1)) ||
	9	0	((flags & SVf_UTF8) && isIDFIRST_utf8((U8 *)name+1)) ||
	9	0	((flags & SVf_UTF8) && isIDFIRST_utf8((U8 *)name+1)) ||
	0	9	((flags & SVf_UTF8) && isIDFIRST_utf8((U8 *)name+1)) ||
	0	48412	((flags & SVf_UTF8) && isIDFIRST_utf8((U8 *)name+1)) ||
584	0	4585	(name[1] == '_' && (*name == '$' || len > 2))))
587	2	3	if (!(flags & SVf_UTF8 && UTF8_IS_START(name[1]))
	2	0	if (!(flags & SVf_UTF8 && UTF8_IS_START(name[1]))
588	3	2	&& (!isPRINT(name[1]) || strchr("\t\n\r\f", name[1]))) {
	0	3	&& (!isPRINT(name[1]) || strchr("\t\n\r\f", name[1]))) {
589	2	0	yyerror(Perl_form(aTHX_ "Can't use global %c^%c%.*s in \"%s\"",
	0	2	yyerror(Perl_form(aTHX_ "Can't use global %c^%c%.*s in \"%s\"",
593	3	0	yyerror_pv(Perl_form(aTHX_ "Can't use global %.*s in \"%s\"", (int) len, name,
597	995884	9629789	else if (len == 2 && name[1] == '_' && !is_our)
	76	995808	else if (len == 2 && name[1] == '_' && !is_our)
	56	20	else if (len == 2 && name[1] == '_' && !is_our)
599	53	3	Perl_ck_warner_d(aTHX_ packWARN(WARN_EXPERIMENTAL__LEXICAL_TOPIC),
607	502658	10123020	off = pad_add_name_pvn(name, len,
	502658	0	off = pad_add_name_pvn(name, len,
	306287	196371	off = pad_add_name_pvn(name, len,
	1802	304485	off = pad_add_name_pvn(name, len,
	502638	20	off = pad_add_name_pvn(name, len,
	10123020	502658	off = pad_add_name_pvn(name, len,
	10122914	106	off = pad_add_name_pvn(name, len,
621	106	10625568	if (PL_parser->in_my == KEY_state && CvANON(PL_compcv))
	8	98	if (PL_parser->in_my == KEY_state && CvANON(PL_compcv))
686	117434096	459766	if (!o || o->op_type == OP_FREED)
	117434069	27	if (!o || o->op_type == OP_FREED)
690	14925697	102508372	if (o->op_private & OPpREFCOUNTED) {
691	4652265	10273432	switch (type) {
703	1455659	3196606	if (refcnt) {
719	62320954	53657456	CALL_OPFREEHOOK(o);
721	42518240	73460170	if (o->op_flags & OPf_KIDS) {
723	85704636	42518240	for (kid = cUNOPo->op_first; kid; kid = nextkid) {
728	10186161	105792249	if (type == OP_NULL)
736	7953054	108025356	if (type == OP_NEXTSTATE || type == OP_DBSTATE) {
774	7527613	88244018	if (!(o->op_flags & OPf_REF)
775	140	7527473	|| (PL_check[o->op_type] != Perl_ck_ftst))
786	9450093	43856	? cGVOPo_gv : NULL;
801	9450053	43896	bool still_valid = gv && SvREFCNT(gv);
	0	9450053	bool still_valid = gv && SvREFCNT(gv);
803	9450053	43896	if (still_valid)
804	9450053	0	SvREFCNT_inc_simple_void(gv);
816	9450053	43896	if (still_valid) {
819	3917820	5532233	if (try_downgrade)
847	1060	18291	if (o->op_flags & (OPf_SPECIAL|OPf_STACKED|OPf_KIDS))
852	60	12151	if (o->op_private & (OPpTRANS_FROM_UTF|OPpTRANS_TO_UTF)) {
886	456126	14	if (!(cPMOPo->op_pmflags & PMf_CODELIST_PRIVATE))
913	12834484	146458854	if (o->op_targ > 0) {
925	834246	8072027	if (! specialWARN(cop->cop_warnings))
	831449	2797	if (! specialWARN(cop->cop_warnings))
928	953235	7953038	if (PL_curcop == cop)
936	13	487464	HV * const pmstash = PmopSTASH(o);
940	13	487464	if (pmstash && !SvIS_FREED(pmstash) && SvMAGICAL(pmstash)) {
	13	0	if (pmstash && !SvIS_FREED(pmstash) && SvMAGICAL(pmstash)) {
	13	0	if (pmstash && !SvIS_FREED(pmstash) && SvMAGICAL(pmstash)) {
942	13	0	if (mg) {
947	16	0	while (i--) {
948	13	3	if (array[i] == o) {
955	10	3	if(!count) {
964	89	487388	if (PL_curpm == o)
973	8573312	8418490	if (o->op_flags & OPf_KIDS) {
975	15536143	8573312	while (kid) {
976	31337	15504806	switch (kid->op_type) {
996	43314928	0	if (o->op_type == OP_NULL)
1066	0	160630299	if (o->op_next)
1071	160109432	520867	if (first) {
1073	115847770	44261662	o->op_next = LINKLIST(first);
1076	190807173	160109432	if (kid->op_sibling) {
1077	127740183	63066990	kid->op_next = LINKLIST(kid->op_sibling);
1094	56183	0	if (o && o->op_flags & OPf_KIDS) {
	56183	0	if (o && o->op_flags & OPf_KIDS) {
1096	65990	56183	for (kid = cLISTOPo->op_first; kid; kid = kid->op_sibling)
1109	125281	13549017	if (o->op_type == OP_SASSIGN && cBINOPo->op_first->op_type == OP_CONST
	7	125274	if (o->op_type == OP_SASSIGN && cBINOPo->op_first->op_type == OP_CONST
1110	5	2	&& !(cBINOPo->op_first->op_flags & OPf_SPECIAL)) {
1111	2	3	if (ckWARN(WARN_SYNTAX)) {
1114	2	0	if (PL_parser && PL_parser->copline != NOLINE) {
	2	0	if (PL_parser && PL_parser->copline != NOLINE) {
1133	554101374	447674	if (!o || (PL_parser && PL_parser->error_count)
	554098211	3163	if (!o || (PL_parser && PL_parser->error_count)
	554094327	3884	if (!o || (PL_parser && PL_parser->error_count)
1134	274998185	279099305	|| (o->op_flags & OPf_WANT)
1135	274979794	18391	|| o->op_type == OP_RETURN)
1149	4382415	3570866	for (kid = cUNOPo->op_first->op_sibling; kid; kid = kid->op_sibling)
1159	89252842	176872078	if (o->op_flags & OPf_KIDS) {
1160	151026111	89252842	for (kid = cUNOPo->op_first; kid; kid = kid->op_sibling)
1170	18476549	5205868	while (kid) {
1172	13270681	5205868	if (sib && kid->op_type != OP_LEAVEWHEN)
	13270659	22	if (sib && kid->op_type != OP_LEAVEWHEN)
1219	81078055	72450012	if (o->op_type == OP_NEXTSTATE
1221	17219581	63858474	|| (o->op_type == OP_NULL && (o->op_targ == OP_NEXTSTATE
	3029412	14190169	|| (o->op_type == OP_NULL && (o->op_targ == OP_NEXTSTATE
1227	96649267	56878800	if ((want && want != OPf_WANT_SCALAR)
1228	96649265	2	|| (PL_parser && PL_parser->error_count)
	96647780	1485	|| (PL_parser && PL_parser->error_count)
1229	95225541	1422241	|| o->op_type == OP_RETURN || o->op_type == OP_REQUIRE || o->op_type == OP_LEAVEWHEN)
	91876604	3348937	|| o->op_type == OP_RETURN || o->op_type == OP_REQUIRE || o->op_type == OP_LEAVEWHEN)
	91876224	380	|| o->op_type == OP_RETURN || o->op_type == OP_REQUIRE || o->op_type == OP_LEAVEWHEN)
1234	533924	91342300	if ((o->op_private & OPpTARGET_MY)
1235	377022	156902	&& (PL_opargs[o->op_type] & OA_TARGLEX))/* OPp share the meaning */
1244	748376	7228860	if (!(PL_opargs[o->op_type] & OA_FOLDCONST))
1248	159	748223	if (o->op_flags & OPf_STACKED)
1252	3	21103	if (o->op_private == 4)
1327	573	1491583	if (!(o->op_private & (OPpLVAL_INTRO|OPpOUR_INTRO)))
1329	0	573	useless = OP_DESC(o);
	0	0	useless = OP_DESC(o);
1334	41	0	if (kid && kid->op_type == OP_PUSHRE
	41	0	if (kid && kid->op_type == OP_PUSHRE
1338	4	37	&& !((PMOP*)kid)->op_pmreplrootu.op_pmtargetgv)
1340	0	4	useless = OP_DESC(o);
	0	0	useless = OP_DESC(o);
1345	1	0	if (kid->op_type != OP_MATCH && kid->op_type != OP_SUBST &&
	1	0	if (kid->op_type != OP_MATCH && kid->op_type != OP_SUBST &&
1346	1	0	kid->op_type != OP_TRANS && kid->op_type != OP_TRANSR) {
1353	2	512678	if (cPMOPo->op_pmflags & PMf_NONDESTRUCT)
1365	153	340210	if (!(o->op_private & (OPpLVAL_INTRO|OPpOUR_INTRO)) &&
	137	16	if (!(o->op_private & (OPpLVAL_INTRO|OPpOUR_INTRO)) &&
1366	137	0	(!o->op_sibling || o->op_sibling->op_type != OP_READLINE))
1372	3	177035	if (cSVOPo->op_private & OPpCONST_STRICT)
1375	60876	116159	if (ckWARN(WARN_VOID)) {
1378	3424	57452	if (cSVOPo->op_private & OPpCONST_SHORTCIRCUIT)
1383	3412	12	else if (SvNIOK(sv) && (SvNV(sv) == 0.0 || SvNV(sv) == 1.0))
	9	3403	else if (SvNIOK(sv) && (SvNV(sv) == 0.0 || SvNV(sv) == 1.0))
	2	7	else if (SvNIOK(sv) && (SvNV(sv) == 0.0 || SvNV(sv) == 1.0))
	3280	123	else if (SvNIOK(sv) && (SvNV(sv) == 0.0 || SvNV(sv) == 1.0))
	3282	0	else if (SvNIOK(sv) && (SvNV(sv) == 0.0 || SvNV(sv) == 1.0))
	2	3280	else if (SvNIOK(sv) && (SvNV(sv) == 0.0 || SvNV(sv) == 1.0))
	0	0	else if (SvNIOK(sv) && (SvNV(sv) == 0.0 || SvNV(sv) == 1.0))
1385	10	4	else if (SvPOK(sv)) {
1397	2	2	else if (SvOK(sv)) {
	2	0	else if (SvOK(sv)) {
	0	2	else if (SvOK(sv)) {
1432	9237256	0	if ((o->op_private & ~OPpASSIGN_BACKWARDS) != 2)
1436	9237256	0	if (!rv2gv || rv2gv->op_type != OP_RV2GV)
	348217	8889039	if (!rv2gv || rv2gv->op_type != OP_RV2GV)
1441	348217	0	if (!refgen || refgen->op_type != OP_REFGEN)
	284330	63887	if (!refgen || refgen->op_type != OP_REFGEN)
1445	284330	0	if (!exlist || exlist->op_type != OP_NULL
	284330	0	if (!exlist || exlist->op_type != OP_NULL
1446	284330	0	|| exlist->op_targ != OP_LIST)
1449	284330	0	if (exlist->op_first->op_type != OP_PUSHMARK)
1454	198126	86204	if (rv2cv->op_type != OP_RV2CV)
1476	317384	6051265	if (kid->op_type == OP_NOT
1478	317384	0	&& !PL_madskills) {
1479	313715	3669	if (o->op_type == OP_AND) {
1493	9748150	8058449	for (kid = cUNOPo->op_first->op_sibling; kid; kid = kid->op_sibling)
1498	9154521	34382	if (o->op_flags & OPf_STACKED)
1505	8300345	44567658	if (!(o->op_flags & OPf_KIDS))
1516	41363297	15946786	for (kid = cLISTOPo->op_first; kid; kid = kid->op_sibling)
1526	12	91499145	if (useless_sv) {
1532	737	91498408	else if (useless) {
1543	39053602	0	if (o && o->op_flags & OPf_KIDS) {
	39053602	0	if (o && o->op_flags & OPf_KIDS) {
1545	87451358	39053602	for (kid = cLISTOPo->op_first; kid; kid = kid->op_sibling)
1558	116912478	1679378	if (!o || (o->op_flags & OPf_WANT)
	33355973	83556505	if (!o || (o->op_flags & OPf_WANT)
1559	33355970	3	|| (PL_parser && PL_parser->error_count)
	33355027	943	|| (PL_parser && PL_parser->error_count)
1560	33354927	103	|| o->op_type == OP_RETURN)
1565	116647	33238280	if ((o->op_private & OPpTARGET_MY)
1566	116647	0	&& (PL_opargs[o->op_type] & OA_TARGLEX))/* OPp share the meaning */
1581	605717	326771	for (kid = cUNOPo->op_first->op_sibling; kid; kid = kid->op_sibling)
1589	20037175	12335009	if (!(o->op_flags & OPf_KIDS))
1591	18918825	1118350	if (!o->op_next && cUNOPo->op_first->op_type == OP_FLOP) {
	10485	18908340	if (!o->op_next && cUNOPo->op_first->op_type == OP_FLOP) {
1604	368792	147260	while (kid) {
1606	221532	147260	if (sib && kid->op_type != OP_LEAVEWHEN)
	221523	9	if (sib && kid->op_type != OP_LEAVEWHEN)
1626	25578784	184561	if (o) {
1629	4466806	21111978	if (type == OP_LINESEQ || type == OP_SCOPE ||
1630	0	4466806	type == OP_LEAVE || type == OP_LEAVETRY)
1633	109817436	21111975	for (kid = cLISTOPo->op_first; kid; kid = kid->op_sibling) {
1634	88705461	21111975	if (kid->op_sibling) {
1641	17356661	8222120	if (PL_hints & HINT_BLOCK_SCOPE)
1652	2391101	0	if (o && o->op_flags & OPf_KIDS) {
	2391101	0	if (o && o->op_flags & OPf_KIDS) {
1654	3252257	2391101	for (kid = cLISTOPo->op_first; kid; kid = kid->op_sibling)
1712	399	3656	if ( o->op_sibling
1713	2	397	&& (o->op_sibling->op_type == OP_NEXTSTATE || o->op_sibling->op_type == OP_DBSTATE)
1714	2	0	&& ckWARN(WARN_EXEC))
1716	2	0	if (o->op_sibling->op_sibling) {
1718	2	0	if (type != OP_EXIT && type != OP_WARN && type != OP_DIE) {
	2	0	if (type != OP_EXIT && type != OP_WARN && type != OP_DIE) {
1732	1104152	10999241	if ((o->op_private & OPpEARLY_CV) && ckWARN(WARN_PROTOTYPE)) {
	343229	760923	if ((o->op_private & OPpEARLY_CV) && ckWARN(WARN_PROTOTYPE)) {
1734	343229	0	if (SvTYPE(gv) == SVt_PVGV && GvCV(gv) && SvPVX_const(GvCV(gv))) {
	25380	317849	if (SvTYPE(gv) == SVt_PVGV && GvCV(gv) && SvPVX_const(GvCV(gv))) {
	1	25379	if (SvTYPE(gv) == SVt_PVGV && GvCV(gv) && SvPVX_const(GvCV(gv))) {
1746	24	50348831	if (cSVOPo->op_private & OPpCONST_STRICT)
1789	4413818	1554461	if (((BINOP*)o)->op_last->op_type != OP_CONST)
1794	4403416	10402	if ((!SvIsCOW_shared_hash(sv = *svp))
	4403146	270	if ((!SvIsCOW_shared_hash(sv = *svp))
1795	4413545	3	&& SvTYPE(sv) < SVt_PVMG && SvOK(sv) && !SvROK(sv)) {
	1	4413544	&& SvTYPE(sv) < SVt_PVMG && SvOK(sv) && !SvROK(sv)) {
	1	0	&& SvTYPE(sv) < SVt_PVMG && SvOK(sv) && !SvROK(sv)) {
	0	1	&& SvTYPE(sv) < SVt_PVMG && SvOK(sv) && !SvROK(sv)) {
	4413543	1	&& SvTYPE(sv) < SVt_PVMG && SvOK(sv) && !SvROK(sv)) {
1796	4403143	10400	key = SvPV_const(sv, keylen);
1797	123	4413420	lexname = newSVpvn_share(key,
1804	4268870	144948	if ((o->op_private & (OPpLVAL_INTRO)))
1808	3808409	460461	if (rop->op_type != OP_RV2HV || rop->op_first->op_type != OP_PADSV)
	2497577	1310832	if (rop->op_type != OP_RV2HV || rop->op_first->op_type != OP_PADSV)
1811	31	2497546	if (!SvPAD_TYPED(lexname))
1814	31	0	if (!fields || !GvHV(*fields))
	31	0	if (!fields || !GvHV(*fields))
1816	31	0	key = SvPV_const(*svp, keylen);
1817	1	30	if (!hv_fetch(GvHV(*fields), key,
	5	26	if (!hv_fetch(GvHV(*fields), key,
1819	5	0	Perl_croak(aTHX_ "No such class field \"%"SVf"\" "
	0	5	Perl_croak(aTHX_ "No such class field \"%"SVf"\" "
1822	5	0	HEKfARG(HvNAME_HEK(SvSTASH(lexname))));
1836	100083	20231	if ((o->op_private & (OPpLVAL_INTRO))
1838	55678	44405	|| ((LISTOP*)o)->op_first->op_sibling->op_type != OP_LIST)
1842	38559	17119	if (rop->op_type != OP_RV2HV)
1844	15794	22765	if (rop->op_first->op_type == OP_PADSV)
1849	15700	7065	if (rop->op_first->op_type == OP_SCOPE
1850	14886	814	&& cLISTOPx(rop->op_first)->op_last->op_type == OP_PADSV)
1859	6	30674	if (!SvPAD_TYPED(lexname))
1862	6	0	if (!fields || !GvHV(*fields))
	6	0	if (!fields || !GvHV(*fields))
1867	14	4	for (key_op = first_key_op; key_op;
1869	1	13	if (key_op->op_type != OP_CONST)
1872	13	0	key = SvPV_const(*svp, keylen);
1873	0	13	if (!hv_fetch(GvHV(*fields), key,
	2	11	if (!hv_fetch(GvHV(*fields), key,
1875	2	0	Perl_croak(aTHX_ "No such class field \"%"SVf"\" "
	0	2	Perl_croak(aTHX_ "No such class field \"%"SVf"\" "
1878	2	0	HEKfARG(HvNAME_HEK(SvSTASH(lexname))));
1885	152791	479924	if (cPMOPo->op_pmreplrootu.op_pmreplroot)
1893	173314095	212423481	if (o->op_flags & OPf_KIDS) {
1895	377040355	173314076	for (kid = cUNOPo->op_first; kid; kid = kid->op_sibling)
1927	54543187	9169	if (!o || (PL_parser && PL_parser->error_count))
	54543184	3	if (!o || (PL_parser && PL_parser->error_count))
	54542602	582	if (!o || (PL_parser && PL_parser->error_count))
1930	364805	54177800	if ((o->op_private & OPpTARGET_MY)
1931	364647	158	&& (PL_opargs[o->op_type] & OA_TARGLEX))/* OPp share the meaning */
1938	1190739	53351708	if (type == OP_PRTF || type == OP_SPRINTF) type = OP_ENTERSUB;
1945	4	25087	if ((o->op_flags & OPf_PARENS) || PL_madskills)
1949	1763873	721455	if ((type == OP_UNDEF || type == OP_REFGEN || type == OP_LOCK) &&
	2	1763871	if ((type == OP_UNDEF || type == OP_REFGEN || type == OP_LOCK) &&
	721419	38	if ((type == OP_UNDEF || type == OP_REFGEN || type == OP_LOCK) &&
1961	1763799	110	o->op_private |= OPpLVAL_INTRO
1964	294	1763615	if (type == OP_GREPSTART || type == OP_ENTERSUB || type == OP_REFGEN) {
	38	256	if (type == OP_GREPSTART || type == OP_ENTERSUB || type == OP_REFGEN) {
1973	245	11	if (kid->op_type != OP_PUSHMARK) {
1974	245	0	if (kid->op_type != OP_NULL || kid->op_targ != OP_LIST)
	0	245	if (kid->op_type != OP_NULL || kid->op_targ != OP_LIST)
1981	322	256	while (kid->op_sibling)
1983	245	11	if (!(kid->op_type == OP_NULL && kid->op_targ == OP_RV2CV)) {
	245	0	if (!(kid->op_type == OP_NULL && kid->op_targ == OP_RV2CV)) {
1988	0	245	if (kid->op_type == OP_NULL && kid->op_targ == OP_RV2SV)
	0	0	if (kid->op_type == OP_NULL && kid->op_targ == OP_RV2SV)
1990	0	245	if (kid->op_type == OP_NULL)
1995	122	123	if (kid->op_type != OP_GV) {
2000	113	9	if (!cv)
2002	5	108	if (CvLVALUE(cv))
2009	11434689	4	if (flags & OP_LVALUE_NO_CROAK) return NULL;
2011	1078015	10356674	if (type == OP_GREPSTART || type == OP_ENTERSUB
2012	33	1077982	|| type == OP_REFGEN || type == OP_LEAVESUBLV)
2014	33	0	yyerror(Perl_form(aTHX_ "Can't modify %s in %s",
	0	33	yyerror(Perl_form(aTHX_ "Can't modify %s in %s",
	0	0	yyerror(Perl_form(aTHX_ "Can't modify %s in %s",
	29	4	yyerror(Perl_form(aTHX_ "Can't modify %s in %s",
	0	29	yyerror(Perl_form(aTHX_ "Can't modify %s in %s",
	0	0	yyerror(Perl_form(aTHX_ "Can't modify %s in %s",
2043	161100	34360	if (!(o->op_flags & OPf_STACKED))
2050	209884	104942	for (kid = cUNOPo->op_first->op_sibling; kid; kid = kid->op_sibling)
2056	231047	2581265	if (type == OP_REFGEN && o->op_flags & OPf_PARENS) {
	4	231043	if (type == OP_REFGEN && o->op_flags & OPf_PARENS) {
2062	9	3424399	if (scalar_mod_type(o, type))
2071	16	3537386	if (type == OP_LEAVESUBLV)
2080	1	7952	if (type == OP_LEAVESUBLV)
2106	229386	1869386	if (type == OP_REFGEN && o->op_flags & OPf_PARENS)
	229378	8	if (type == OP_REFGEN && o->op_flags & OPf_PARENS)
2108	3	2098761	if (scalar_mod_type(o, type))
2110	8	2098753	if (type == OP_LEAVESUBLV)
2115	2	23840961	if (!type) /* local() */
2126	118234	8	if (type != OP_SASSIGN && type != OP_LEAVESUBLV)
2130	9	41326	if (o->op_private == 4) /* don't allow 4 arg substr as lvalue */
2136	12	119094	if (type == OP_LEAVESUBLV)
2138	119106	0	if (o->op_flags & OPf_KIDS)
2145	609684	2292784	if (type == OP_ENTERSUB &&
	609684	0	if (type == OP_ENTERSUB &&
2148	2859	2899609	if (type == OP_LEAVESUBLV)
2159	3121	0	if (o->op_flags & OPf_KIDS)
2165	1903	2356209	if (o->op_flags & OPf_SPECIAL) /* do BLOCK */
2167	2356207	2	else if (!(o->op_flags & OPf_KIDS))
2169	148112	2208095	if (o->op_targ != OP_LIST) {
2176	9704298	3602674	for (kid = cLISTOPo->op_first; kid; kid = kid->op_sibling)
2179	9704273	25	if ( (kid->op_flags & OPf_WANT) != OPf_WANT_VOID )
2184	0	20	if (type != OP_LEAVESUBLV)
2195	5654195	48796276	if (type == OP_REFGEN &&
	5654191	4	if (type == OP_REFGEN &&
2199	54443886	6581	if (type != OP_LEAVESUBLV)
2202	17986699	36463768	if (type == OP_AASSIGN || type == OP_SASSIGN)
2204	679492	35784276	else if (!type) { /* local() */
2214	0	28	Perl_ck_warner(aTHX_ packWARN(WARN_SYNTAX),
2215	0	0	"Useless localization of %s", OP_DESC(o));
2218	9788072	25996204	else if (type != OP_GREPSTART && type != OP_ENTERSUB
2219	9781491	6581	&& type != OP_LEAVESUBLV)
2230	447933	2	if (o && o->op_type == OP_RV2GV)
	2	447931	if (o && o->op_type == OP_RV2GV)
2282	2045	2046	if (numargs == 2)
2291	121	67366	if (numargs == 1)
2302	1464178	0	if (o && o->op_flags & OPf_KIDS) {
	1464177	1	if (o && o->op_flags & OPf_KIDS) {
2304	1464181	1464177	for (kid = cLISTOPo->op_first; kid; kid = kid->op_sibling)
2318	41560583	0	if (!o || (PL_parser && PL_parser->error_count))
	41560583	0	if (!o || (PL_parser && PL_parser->error_count))
	41560575	8	if (!o || (PL_parser && PL_parser->error_count))
2323	198218	56969	if ((type == OP_EXISTS || type == OP_DEFINED) &&
	175039	23179	if ((type == OP_EXISTS || type == OP_DEFINED) &&
2332	54884	25264	else if (type == OP_RV2SV || type == OP_RV2AV || type == OP_RV2HV){
	28287	26597	else if (type == OP_RV2SV || type == OP_RV2AV || type == OP_RV2HV){
2333	47253	6298	o->op_private |= (type == OP_RV2AV ? OPpDEREF_AV
	18966	28287	o->op_private |= (type == OP_RV2AV ? OPpDEREF_AV
2342	614	307	for (kid = cUNOPo->op_first->op_sibling; kid; kid = kid->op_sibling)
2346	153097	154651	if (type == OP_DEFINED)
2351	7095750	1326899	if (type == OP_RV2SV || type == OP_RV2AV || type == OP_RV2HV) {
	5691484	1404266	if (type == OP_RV2SV || type == OP_RV2AV || type == OP_RV2HV) {
2352	5809273	1209110	o->op_private |= (type == OP_RV2AV ? OPpDEREF_AV
	117789	5691484	o->op_private |= (type == OP_RV2AV ? OPpDEREF_AV
2361	14119172	326938	if (set_op_ref)
2365	100	15465427	if (type == OP_DEFINED)
2372	2398386	50913	if (set_op_ref)
2378	11902	25870	if (!(o->op_flags & OPf_KIDS) || type == OP_DEFINED)
2385	2696064	1100951	if (type == OP_RV2SV || type == OP_RV2AV || type == OP_RV2HV) {
	2404381	291683	if (type == OP_RV2SV || type == OP_RV2AV || type == OP_RV2HV) {
2386	2442334	1062998	o->op_private |= (type == OP_RV2AV ? OPpDEREF_AV
	37953	2404381	o->op_private |= (type == OP_RV2AV ? OPpDEREF_AV
2399	901018	0	if (!(o->op_flags & OPf_KIDS))
2422	107	1	if (o->op_type == OP_CONST)
2431	3	1	for (o = cLISTOPo->op_first; o; o=o->op_sibling) {
2432	2	1	if (o->op_type == OP_CONST)
2445	58	0	SV * const stashsv = stash ? newSVhek(HvNAME_HEK(stash)) : &PL_sv_no;
	58	0	SV * const stashsv = stash ? newSVhek(HvNAME_HEK(stash)) : &PL_sv_no;
	58	0	SV * const stashsv = stash ? newSVhek(HvNAME_HEK(stash)) : &PL_sv_no;
	0	58	SV * const stashsv = stash ? newSVhek(HvNAME_HEK(stash)) : &PL_sv_no;
2476	50	0	if (!attrs)
2486	50	0	svp = hv_fetchs(GvHVn(PL_incgv), ATTRSMODULE_PM, FALSE);
2487	43	7	if (svp && *svp != &PL_sv_undef)
	0	43	if (svp && *svp != &PL_sv_undef)
2498	50	0	stashsv = stash ? newSVhek(HvNAME_HEK(stash)) : &PL_sv_no;
	50	0	stashsv = stash ? newSVhek(HvNAME_HEK(stash)) : &PL_sv_no;
	50	0	stashsv = stash ? newSVhek(HvNAME_HEK(stash)) : &PL_sv_no;
	0	50	stashsv = stash ? newSVhek(HvNAME_HEK(stash)) : &PL_sv_no;
2545	1	0	if (!len) {
2549	1	1	while (len) {
2550	0	1	for (; isSPACE(*attrstr) && len; --len, ++attrstr) ;
2551	1	0	if (len) {
2553	6	1	for (; !isSPACE(*attrstr) && len; --len, ++attrstr) ;
2575	13328438	0	const bool stately = PL_parser && PL_parser->in_my == KEY_state;
	13328357	81	const bool stately = PL_parser && PL_parser->in_my == KEY_state;
2579	13328438	0	if (!o || (PL_parser && PL_parser->error_count))
	13328438	0	if (!o || (PL_parser && PL_parser->error_count))
	13328422	16	if (!o || (PL_parser && PL_parser->error_count))
2588	1326954	12001468	if (type == OP_LIST) {
2590	4829709	1326954	for (kid = cLISTOPo->op_first; kid; kid = kid->op_sibling)
2593	11952518	48950	} else if (type == OP_UNDEF || type == OP_STUB) {
2595	11520114	432404	} else if (type == OP_RV2SV || /* "our" declaration */
2596	70246	11449868	type == OP_RV2AV ||
2598	4	502646	if (cUNOPo->op_first->op_type != OP_GV) { /* MJD 20011224 */
2599	4	0	yyerror(Perl_form(aTHX_ "Can't declare %s in \"%s\"",
	4	0	yyerror(Perl_form(aTHX_ "Can't declare %s in \"%s\"",
	0	4	yyerror(Perl_form(aTHX_ "Can't declare %s in \"%s\"",
	0	0	yyerror(Perl_form(aTHX_ "Can't declare %s in \"%s\"",
2604	2	502644	} else if (attrs) {
2608	2	0	apply_attrs(GvSTASH(gv),
	0	0	apply_attrs(GvSTASH(gv),
	0	0	apply_attrs(GvSTASH(gv),
2617	0	11449868	else if (type != OP_PADSV &&
2622	0	0	yyerror(Perl_form(aTHX_ "Can't declare %s in \"%s\"",
	0	0	yyerror(Perl_form(aTHX_ "Can't declare %s in \"%s\"",
	0	0	yyerror(Perl_form(aTHX_ "Can't declare %s in \"%s\"",
	0	0	yyerror(Perl_form(aTHX_ "Can't declare %s in \"%s\"",
2629	50	11449818	else if (attrs && type != OP_PUSHMARK) {
2637	43	7	if (!stash)
2643	77	11449791	if (stately)
2667	52	8498677	if (attrs)
2671	50	8498679	if (rops) {
2672	28	22	if (maybe_scalar && o->op_type == OP_PADSV) {
2680	0	22	if (rops->op_type == OP_LIST &&
	0	0	if (rops->op_type == OP_LIST &&
2681	0	0	lrops->op_first && lrops->op_first->op_type == OP_PUSHMARK)
2699	4950786	0	if (o)
2714	1915334	15	if ( (ltype == OP_RV2AV || ltype == OP_RV2HV || ltype == OP_PADAV
2715	3	1915331	|| ltype == OP_PADHV) && ckWARN(WARN_MISC))
	12	6	|| ltype == OP_PADHV) && ckWARN(WARN_MISC))
2720	0	4	|| rtype == OP_TRANSR
2722	4	8	? (int)rtype : OP_MATCH];
2728	4	0	&& (gv = cGVOPx_gv(cUNOPx(left)->op_first))
2729	2	2	? varname(gv, isary ? '@' : '%', 0, NULL, 0, 1)
2730	4	6	: NULL
2731	10	2	: varname(
	1	1	: varname(
2734	6	6	if (name)
2740	3	3	? "@array" : "%hash");
2747	5706	1909643	if (rtype == OP_CONST &&
2748	1	5705	cSVOPx(right)->op_private & OPpCONST_BARE &&
2755	551697	1363652	if (rtype == OP_SUBST && (cPMOPx(right)->op_pmflags & PMf_NONDESTRUCT) &&
	2	551695	if (rtype == OP_SUBST && (cPMOPx(right)->op_pmflags & PMf_NONDESTRUCT) &&
2758	1	1915348	if (rtype == OP_TRANSR && type == OP_NOT)
2763	44991	188746	rtype == OP_TRANS || rtype == OP_TRANSR)
2764	233737	1681612	&& !(right->op_flags & OPf_SPECIAL);
	6	1726597	&& !(right->op_flags & OPf_SPECIAL);
2765	1726597	188752	if (ismatchop && right->op_private & OPpTARGET_MY) {
	22	1726575	if (ismatchop && right->op_private & OPpTARGET_MY) {
2769	1915349	0	if (!(right->op_flags & OPf_STACKED) && ismatchop) {
	1726597	188752	if (!(right->op_flags & OPf_STACKED) && ismatchop) {
2773	596676	1129921	if (rtype != OP_MATCH && rtype != OP_TRANSR &&
	44981	551695	if (rtype != OP_MATCH && rtype != OP_TRANSR &&
2774	17677	27304	! (rtype == OP_TRANS &&
2775	551695	17677	right->op_private & OPpTRANS_IDENTICAL) &&
2776	549140	2555	! (rtype == OP_SUBST &&
2781	44989	1681608	if (right->op_type == OP_TRANS || right->op_type == OP_TRANSR)
2785	135513	1591084	if (type == OP_NOT)
2797	349831	0	if (!o)
2820	7449873	0	if (o) {
2821	3013666	4436207	if (o->op_flags & OPf_PARENS || PERLDB_NOOPT || TAINTING_get) {
	455981	2557685	if (o->op_flags & OPf_PARENS || PERLDB_NOOPT || TAINTING_get) {
	64	455917	if (o->op_flags & OPf_PARENS || PERLDB_NOOPT || TAINTING_get) {
	48629	2509120	if (o->op_flags & OPf_PARENS || PERLDB_NOOPT || TAINTING_get) {
2826	2483510	25610	else if (o->op_type == OP_LINESEQ) {
2831	2483510	0	if (kid->op_type == OP_NEXTSTATE || kid->op_type == OP_DBSTATE) {
2836	2483510	0	if (kid &&
	0	2483510	if (kid &&
2850	154	4	if (o && o->op_type == OP_LINESEQ) {
	154	0	if (o && o->op_type == OP_LINESEQ) {
2852	312	154	for(; kid; kid = kid->op_sibling)
2853	156	156	if (kid->op_type == OP_NEXTSTATE || kid->op_type == OP_DBSTATE)
2869	1420899	17961497	PL_compiling.cop_warnings = DUP_WARNINGS(PL_compiling.cop_warnings);
	10469	1410430	PL_compiling.cop_warnings = DUP_WARNINGS(PL_compiling.cop_warnings);
2871	149090	19233306	CALL_BLOCK_HOOKS(bhk_start, full);
	0	298180	CALL_BLOCK_HOOKS(bhk_start, full);
	298180	0	CALL_BLOCK_HOOKS(bhk_start, full);
	298180	0	CALL_BLOCK_HOOKS(bhk_start, full);
	298180	0	CALL_BLOCK_HOOKS(bhk_start, full);
	298180	149090	CALL_BLOCK_HOOKS(bhk_start, full);
2884	149072	19201939	CALL_BLOCK_HOOKS(bhk_pre_end, &retval);
	0	298144	CALL_BLOCK_HOOKS(bhk_pre_end, &retval);
	298144	0	CALL_BLOCK_HOOKS(bhk_pre_end, &retval);
	298144	0	CALL_BLOCK_HOOKS(bhk_pre_end, &retval);
	298144	0	CALL_BLOCK_HOOKS(bhk_pre_end, &retval);
	298144	149072	CALL_BLOCK_HOOKS(bhk_pre_end, &retval);
2886	19350870	141	LEAVE_SCOPE(floor);
2887	12393510	6957501	if (needblockscope)
2891	43	19350968	if (o) {
2939	8	35	OP *kid = o->op_flags & OPf_KIDS ? cLISTOPo->op_first : o;
2940	8	35	OP * const last = o->op_flags & OPf_KIDS ? cLISTOPo->op_last : o;
2945	11	43	if (kid == last) break;
2950	149072	19201939	CALL_BLOCK_HOOKS(bhk_post_end, &retval);
	0	298144	CALL_BLOCK_HOOKS(bhk_post_end, &retval);
	149072	149072	CALL_BLOCK_HOOKS(bhk_post_end, &retval);
	149072	0	CALL_BLOCK_HOOKS(bhk_post_end, &retval);
	149072	0	CALL_BLOCK_HOOKS(bhk_post_end, &retval);
	298144	149072	CALL_BLOCK_HOOKS(bhk_post_end, &retval);
2979	24	83209	if (offset == NOT_IN_PAD || PAD_COMPNAME_FLAGS_isOUR(offset)) {
	1	23	if (offset == NOT_IN_PAD || PAD_COMPNAME_FLAGS_isOUR(offset)) {
2996	2117234	9980	if (PL_in_eval) {
2999	2117234	0	if (PL_eval_root)
3001	2117223	11	PL_eval_root = newUNOP(OP_LEAVEEVAL,
3008	209070	1908164	if ((cx->blk_gimme & G_WANT) == G_VOID)
3010	1057	1907107	else if ((cx->blk_gimme & G_WANT) == G_ARRAY)
3028	74	9906	if (o->op_type == OP_STUB) {
3062	0	9906	PL_main_start = LINKLIST(PL_main_root);
3072	2280	7624	if (PERLDB_INTER) {
	104	2176	if (PERLDB_INTER) {
3074	95	9	if (cv) {
3076	0	95	PUSHMARK(SP);
3077	0	95	XPUSHs(MUTABLE_SV(CopFILEGV(&PL_compiling)));
3092	6842269	1803953	if (o->op_flags & OPf_PARENS)
3101	6842269	0	if ( PL_parser->bufptr > PL_parser->oldbufptr
3102	39590	6802679	&& PL_parser->bufptr[-1] == ','
3103	30626	8964	&& ckWARN(WARN_PARENTHESIS))
3109	61139	5	while (*s && (strchr(", \t\n", *s)))
	30518	30621	while (*s && (strchr(", \t\n", *s)))
3113	33782	57	if (*s && strchr("@$%*", *s) && *++s
	3215	30567	if (*s && strchr("@$%*", *s) && *++s
	3215	0	if (*s && strchr("@$%*", *s) && *++s
3114	2	3213	&& (isWORDCHAR(*s) || UTF8_IS_CONTINUED(*s))) {
	0	2	&& (isWORDCHAR(*s) || UTF8_IS_CONTINUED(*s))) {
3117	12887	0	while (*s && (isWORDCHAR(*s) || UTF8_IS_CONTINUED(*s)))
	9674	3213	while (*s && (isWORDCHAR(*s) || UTF8_IS_CONTINUED(*s)))
	0	3213	while (*s && (isWORDCHAR(*s) || UTF8_IS_CONTINUED(*s)))
3119	52	3290	while (*s && (strchr(", \t\n", *s)))
	3161	129	while (*s && (strchr(", \t\n", *s)))
3125	3212	27414	if (sigil && (*s == ';' || *s == '=')) {
	5	3207	if (sigil && (*s == ';' || *s == '=')) {
3126	3	2	Perl_warner(aTHX_ packWARN(WARN_PARENTHESIS),
3131	2	1	: PL_parser->in_my == KEY_state
3133	2	0	: "my")
3138	8125705	520517	if (lex)
3152	2101	6533562	if (o->op_type == OP_LIST) {
3167	58071327	73816307	if (PL_opargs[type] & OA_RETSCALAR)
3169	46238220	85649414	if (PL_opargs[type] & OA_TARGET && !o->op_targ)
	46237723	497	if (PL_opargs[type] & OA_TARGET && !o->op_targ)
3183	3060032	128827602	if ((PL_opargs[type] & OA_OTHERINT) && (PL_hints & HINT_INTEGER))
	224225	2835807	if ((PL_opargs[type] & OA_OTHERINT) && (PL_hints & HINT_INTEGER))
3189	203184	131684450	if (type == OP_NEGATE)
3214	20696990	111190644	if (!(PL_opargs[type] & OA_FOLDCONST))
3230	261060	1065	if (IN_LOCALE_COMPILETIME)
3234	40906	1	if (!cLISTOPo->op_first->op_sibling
3235	40813	93	|| cLISTOPo->op_first->op_sibling->op_type != OP_CONST)
3239	40813	0	if (!SvPOK(sv) || SvGMAGICAL(sv)) goto nope;
3242	57321	40795	while (s < SvEND(sv)) {
3243	57303	18	if (*s == 'p' || *s == 'P') goto nope;
3250	78129	27340	if (o->op_private & OPpREPEAT_DOLIST) goto nope;
3253	20668473	0	if (PL_parser && PL_parser->error_count)
	20668219	254	if (PL_parser && PL_parser->error_count)
3256	0	20668219	for (curop = LINKLIST(o); curop != o; curop = LINKLIST(curop)) {
	17556277	0	for (curop = LINKLIST(o); curop != o; curop = LINKLIST(curop)) {
	35486405	2738091	for (curop = LINKLIST(o); curop != o; curop = LINKLIST(curop)) {
3258	10084951	25401454	if ((type != OP_CONST || (curop->op_private & OPpCONST_BARE)) &&
	41007	10043944	if ((type != OP_CONST || (curop->op_private & OPpCONST_BARE)) &&
3259	25439992	2469	type != OP_LIST &&
3261	7509864	17930128	type != OP_NULL &&
3268	2738091	0	curop = LINKLIST(o);
3291	2599807	138211	if (o->op_targ && sv == PAD_SV(o->op_targ)) { /* grab pad temp? */
	2599754	53	if (o->op_targ && sv == PAD_SV(o->op_targ)) { /* grab pad temp? */
3301	33552	104712	else if (SvTEMP(sv)) { /* grab mortal temp? */
3302	33552	0	SvREFCNT_inc_simple_void(sv);
3310	0	73	CLEAR_ERRSV();
	0	73	CLEAR_ERRSV();
	0	73	CLEAR_ERRSV();
3327	2738018	73	if (PL_scopestack_ix > oldscope)
3330	2738018	73	if (ret)
3337	2105838	632180	if (type == OP_STRINGIFY) SvPADTMP_off(sv);
3338	104712	527468	else if (!SvIMMORTAL(sv)) SvPADTMP_on(sv);
	104712	0	else if (!SvIMMORTAL(sv)) SvPADTMP_on(sv);
	86790	17922	else if (!SvIMMORTAL(sv)) SvPADTMP_on(sv);
	0	86790	else if (!SvIMMORTAL(sv)) SvPADTMP_on(sv);
	0	0	else if (!SvIMMORTAL(sv)) SvPADTMP_on(sv);
3339	0	2738018	if (type == OP_RV2GV)
3363	10485	0	if (PL_parser && PL_parser->error_count)
	10485	0	if (PL_parser && PL_parser->error_count)
3366	0	10485	PL_op = curop = LINKLIST(o);
3385	10481	4	if (AvFILLp(av) != -1)
3386	217690	10481	for (svp = AvARRAY(av) + AvFILLp(av); svp >= AvARRAY(av); --svp)
3393	10485	0	LINKLIST(o);
3401	3	21633852	if (type < 0) type = -type, flags |= OPf_SPECIAL;
3402	21048256	585599	if (!o || o->op_type != OP_LIST)
	8734748	12313508	if (!o || o->op_type != OP_LIST)
3407	6117641	15516214	if (!(PL_opargs[type] & OA_MARK))
3411	14931713	584501	if (kid2 && kid2->op_type == OP_COREARGS) {
	82	14931631	if (kid2 && kid2->op_type == OP_COREARGS) {
3421	2985	21630870	o = CHECKOP(type, o);
	1	2984	o = CHECKOP(type, o);
3422	21215932	417922	if (o->op_type != (unsigned)type)
3450	48026960	1691192	if (!first)
3453	47579284	447676	if (!last)
3456	29467647	18111637	if (first->op_type != (unsigned)type
3457	24075900	5391747	|| (type == OP_LIST && (first->op_flags & OPf_PARENS)))
	28390	24047510	|| (type == OP_LIST && (first->op_flags & OPf_PARENS)))
3462	29439257	0	if (first->op_flags & OPf_KIDS)
3488	36242749	17167037	if (!first)
3491	21629986	14612763	if (!last)
3494	309259	21320727	if (first->op_type != (unsigned)type)
3497	785812	20534915	if (last->op_type != (unsigned)type)
3541	56601435	3	if (!first)
3544	52370661	4230774	if (!last)
3547	9566929	42803732	if (last->op_type == (unsigned)type) {
3548	1608660	7958269	if (type == OP_LIST) { /* already a PUSHMARK there */
3551	1608559	101	if (!(first->op_flags & OPf_PARENS))
3555	1790248	6168021	if (!(last->op_flags & OPf_KIDS)) {
3837	14502865	2	if (!o || o->op_type != OP_LIST)
	8280836	6222029	if (!o || o->op_type != OP_LIST)
3867	78213096	585601	if (first || last)
3871	61757480	17041217	if (!last && first)
3873	61757480	0	else if (!first && last)
3875	61171879	585601	else if (first)
3879	37585162	41213535	if (type == OP_LIST) {
3884	585601	36999561	if (!last)
3888	5493	78793204	return CHECKOP(type, listop);
	0	5493	return CHECKOP(type, listop);
3908	0	94960959	if (type == -OP_ENTEREVAL) {
3925	41548837	53412122	if (PL_opargs[type] & OA_RETSCALAR)
3927	150629	94810330	if (PL_opargs[type] & OA_TARGET)
3929	5347	94955612	return CHECKOP(type, o);
	0	5347	return CHECKOP(type, o);
3952	21	79788207	if (type == -OP_ENTEREVAL) {
3965	0	79788228	if (!first)
3967	7516502	72271726	if (PL_opargs[type] & OA_MARK)
3976	3275	79784953	unop = (UNOP*) CHECKOP(type, unop);
	7	3268	unop = (UNOP*) CHECKOP(type, unop);
3977	73707363	6080838	if (unop->op_next)
4008	0	37266618	if (!first)
4015	0	37266618	if (!last) {
4024	799	37265819	binop = (BINOP*)CHECKOP(type, binop);
	2	797	binop = (BINOP*)CHECKOP(type, binop);
4025	36964119	302497	if (binop->op_next || binop->op_type != (OPCODE)type)
	36963021	1098	if (binop->op_next || binop->op_type != (OPCODE)type)
4039	0	2051	if (*((const UV *)a) < (*(const UV *)b))
4041	0	0	if (*((const UV *)a) > (*(const UV *)b))
4043	0	0	if (*((const UV *)a+1) < (*(const UV *)b+1))
4045	0	0	if (*((const UV *)a+1) > (*(const UV *)b+1))
4063	45439	1	const U8 *t = (U8*)SvPV_const(tstr, tlen);
4064	45440	0	const U8 *r = (U8*)SvPV_const(rstr, rlen);
4079	53	45387	if (SvUTF8(tstr))
4082	55	45385	if (SvUTF8(rstr))
4085	62	45378	if (o->op_private & (OPpTRANS_FROM_UTF|OPpTRANS_TO_UTF)) {
4107	44	18	const U32 flags = UTF8_ALLOW_DEFAULT;
4109	9	53	if (!from_utf) {
4114	7	55	if (!to_utf && rlen) {
	0	7	if (!to_utf && rlen) {
4124	10	52	if (complement) {
4128	0	10	Newx(cp, 2*tlen, UV);
4131	523	10	while (t < tend) {
4134	518	5	if (t < tend && *t == ILLEGAL_UTF8_BYTE) {
	5	513	if (t < tend && *t == ILLEGAL_UTF8_BYTE) {
4145	523	10	for (j = 0; j < i; j++) {
4148	7	516	if (diff > 0) {
4151	5	2	if (diff > 1) {
4159	523	0	if (val >= nextmin)
4175	3	49	else if (!rlen && !del) {
4178	55	7	if (!squash) {
4179	54	1	if ((!rlen && !del) || t == r ||
	52	2	if ((!rlen && !del) || t == r ||
	31	21	if ((!rlen && !del) || t == r ||
4180	3	28	(tlen == rlen && memEQ((char *)t, (char *)r, tlen)))
4186	123	62	while (t < tend || tfirst <= tlast) {
4188	114	9	if (tfirst > tlast) {
4191	82	32	if (t < tend && *t == ILLEGAL_UTF8_BYTE) { /* illegal utf8 val indicates range */
	36	46	if (t < tend && *t == ILLEGAL_UTF8_BYTE) { /* illegal utf8 val indicates range */
4201	111	12	if (rfirst > rlast) {
4202	95	16	if (r < rend) {
4205	58	37	if (r < rend && *r == ILLEGAL_UTF8_BYTE) { /* illegal utf8 val indicates range */
	21	37	if (r < rend && *r == ILLEGAL_UTF8_BYTE) { /* illegal utf8 val indicates range */
4214	16	0	if (!havefinal++)
4224	25	98	if (tdiff <= rdiff)
4229	22	101	if (rfirst == 0xffffffff) {
4231	16	6	if (diff > 0)
4238	19	82	if (diff > 0)
4246	73	28	if (rfirst + diff > max)
4248	72	29	if (!grows)
4249	40	32	grows = (tfirst < rfirst &&
	30	10	grows = (tfirst < rfirst &&
4250	30	10	UNISKIP(tfirst) < UNISKIP(rfirst + diff));
	10	20	UNISKIP(tfirst) < UNISKIP(rfirst + diff));
	0	10	UNISKIP(tfirst) < UNISKIP(rfirst + diff));
	0	0	UNISKIP(tfirst) < UNISKIP(rfirst + diff));
	0	0	UNISKIP(tfirst) < UNISKIP(rfirst + diff));
	0	0	UNISKIP(tfirst) < UNISKIP(rfirst + diff));
	0	0	UNISKIP(tfirst) < UNISKIP(rfirst + diff));
	38	2	UNISKIP(tfirst) < UNISKIP(rfirst + diff));
	15	23	UNISKIP(tfirst) < UNISKIP(rfirst + diff));
	1	14	UNISKIP(tfirst) < UNISKIP(rfirst + diff));
	0	1	UNISKIP(tfirst) < UNISKIP(rfirst + diff));
	0	0	UNISKIP(tfirst) < UNISKIP(rfirst + diff));
	0	0	UNISKIP(tfirst) < UNISKIP(rfirst + diff));
	0	0	UNISKIP(tfirst) < UNISKIP(rfirst + diff));
4257	3	59	if (del)
4260	55	7	if (max > 0xffff)
4262	18	37	else if (max > 0xff)
4280	13	49	if (!del && havefinal && rlen)
	11	2	if (!del && havefinal && rlen)
4284	10	52	if (grows)
4300	4280	41098	tbl = (short*)PerlMemShared_calloc(
	673	3607	tbl = (short*)PerlMemShared_calloc(
4305	4280	41098	if (complement) {
4306	762013	4280	for (i = 0; i < (I32)tlen; i++)
4308	1095680	4280	for (i = 0, j = 0; i < 256; i++) {
4309	333667	762013	if (!tbl[i]) {
4310	333665	2	if (j >= (I32)rlen) {
4311	142019	191646	if (del)
4313	509	191137	else if (rlen)
4319	2	0	if (i < 128 && r[j] >= 128)
	0	2	if (i < 128 && r[j] >= 128)
4325	3607	673	if (!del) {
4326	3601	6	if (!rlen) {
4328	3601	0	if (!squash)
4331	2	4	else if (j >= (I32)rlen)
4341	8	3607	for (i=0; i < (I32)rlen - j; i++)
4346	23706	17392	if (!rlen && !del) {
4348	23706	0	if (!squash)
4351	16778	614	else if (!squash && rlen == tlen && memEQ((char*)t, (char*)r, tlen)) {
	7420	9358	else if (!squash && rlen == tlen && memEQ((char*)t, (char*)r, tlen)) {
	33	7387	else if (!squash && rlen == tlen && memEQ((char*)t, (char*)r, tlen)) {
4354	10521088	41098	for (i = 0; i < 256; i++)
4356	485586	41098	for (i = 0, j = 0; i < (I32)tlen; i++,j++) {
4357	56058	429528	if (j >= (I32)rlen) {
4358	28854	27204	if (del) {
4359	28268	586	if (tbl[t[i]] == -1)
4365	456729	3	if (tbl[t[i]] == -1) {
4366	439860	16869	if (t[i] < 128 && r[j] >= 128)
	3578	436282	if (t[i] < 128 && r[j] >= 128)
4373	9753	35625	if(del && rlen == tlen) {
	1	9752	if(del && rlen == tlen) {
4375	1	45376	} else if(rlen > tlen && !complement) {
4379	40	45338	if (grows)
4416	1689	2316265	if (PL_hints & HINT_RE_TAINT)
4418	3063	2314891	if (IN_LOCALE_COMPILETIME) {
4421	2311852	3039	else if ((! (PL_hints & HINT_BYTES))
4423	38934	2272918	&& (PL_hints & (HINT_UNI_8_BIT|HINT_LOCALE_NOT_CHARS)))
4427	27343	2290611	if (PL_hints & HINT_RE_FLAGS) {
4431	27343	0	if (reflags && SvOK(reflags)) pmop->op_pmflags |= SvIV(reflags);
	0	27343	if (reflags && SvOK(reflags)) pmop->op_pmflags |= SvIV(reflags);
	0	0	if (reflags && SvOK(reflags)) pmop->op_pmflags |= SvIV(reflags);
	0	0	if (reflags && SvOK(reflags)) pmop->op_pmflags |= SvIV(reflags);
	27343	0	if (reflags && SvOK(reflags)) pmop->op_pmflags |= SvIV(reflags);
4435	27343	0	if (reflags && SvOK(reflags)) {
	28	27315	if (reflags && SvOK(reflags)) {
	28	0	if (reflags && SvOK(reflags)) {
	0	28	if (reflags && SvOK(reflags)) {
4436	27315	0	set_regex_charset(&(pmop->op_pmflags), (regex_charset)SvIV(reflags));
4464	762	2317192	return CHECKOP(type, pmop);
	0	762	return CHECKOP(type, pmop);
4499	2313947	45440	if (is_trans || o->op_type == OP_SUBST) {
	639757	1674190	if (is_trans || o->op_type == OP_SUBST) {
4503	728378	685197	while (kid->op_sibling != repl)
4511	45440	2313947	if (is_trans) {
4532	728953	1584994	if (expr->op_type == OP_LIST) {
4534	1690703	728953	for (o = cLISTOPx(expr)->op_first; o; o = o->op_sibling) {
4535	4983	1685720	if (o->op_type == OP_NULL && (o->op_flags & OPf_SPECIAL)) {
	4983	0	if (o->op_type == OP_NULL && (o->op_flags & OPf_SPECIAL)) {
4540	127590	1558130	else if (o->op_type != OP_CONST && o->op_type != OP_PUSHMARK)
4544	227498	1357496	else if (expr->op_type != OP_CONST)
4547	788190	1525757	LINKLIST(expr);
4552	728953	1584994	if (expr->op_type == OP_LIST) {
4554	1690703	728953	for (o = cLISTOPx(expr)->op_first; o; o = o->op_sibling) {
4556	16	1690687	if (o->op_type == OP_PADAV || o->op_type == OP_RV2AV) {
4564	4983	1685704	if (!(o->op_type == OP_NULL && (o->op_flags & OPf_SPECIAL)))
	0	4983	if (!(o->op_type == OP_NULL && (o->op_flags & OPf_SPECIAL)))
4568	4983	0	LINKLIST(o);
4569	2593	2390	if (cLISTOPo->op_first->op_type == OP_LEAVE) {
4592	4966	17	if (is_compiletime)
4597	1	1584993	else if (expr->op_type == OP_PADAV || expr->op_type == OP_RV2AV) {
4608	1973730	340217	if (is_compiletime) {
4612	36002	1937728	if (o->op_flags & OPf_SPECIAL)
4615	4719	1969011	if (!has_code || !eng->op_comp) {
	0	4719	if (!has_code || !eng->op_comp) {
4618	116	1968895	if ((pm->op_pmflags & PMf_HAS_CV) && !has_code) {
	116	0	if ((pm->op_pmflags & PMf_HAS_CV) && !has_code) {
4627	116	0	LEAVE_SCOPE(floor);
4631	1969011	0	PM_SETRE(pm,
4646	2330	2389	REGEXP* re = eng->op_comp(aTHX_ NULL, 0, expr, eng, NULL, NULL,
4652	3886	827	if (pm->op_pmflags & PMf_HAS_CV) {
4662	3886	0	SvREFCNT_inc_simple_void(PL_compcv);
4669	3886	0	SvREFCNT_inc_simple_void(cv);
4681	150860	189357	reglist = isreg && expr->op_type == OP_LIST;
	38141	112719	reglist = isreg && expr->op_type == OP_LIST;
4682	112719	227498	if (reglist)
4685	17	340200	if (has_code) {
4691	6311	333906	if (o->op_flags & OPf_SPECIAL)
4699	331586	8631	if (pm->op_pmflags & PMf_KEEP || TAINTING_get)
	2450	329136	if (pm->op_pmflags & PMf_KEEP || TAINTING_get)
4700	8501	2580	expr = newUNOP((TAINTING_get ? OP_REGCRESET : OP_REGCMAYBE),0,expr);
4702	5	340212	if (pm->op_pmflags & PMf_HAS_CV) {
4737	5	0	SvREFCNT_inc_simple_void(PL_compcv);
4751	340154	63	rcop->op_flags |= OPf_KIDS
	227498	112719	rcop->op_flags |= OPf_KIDS
4759	63	340154	if (PL_hints & HINT_RE_EVAL) PL_cv_has_eval = 1;
4762	11081	329136	if (expr->op_type == OP_REGCRESET || expr->op_type == OP_REGCMAYBE) {
4763	11081	0	LINKLIST(expr);
4768	329131	5	rcop->op_next = LINKLIST(expr);
4775	639757	1673454	if (repl) {
4778	83341	556416	if (pm->op_pmflags & PMf_EVAL) {
4779	0	83341	if (CopLINE(PL_curcop) < (line_t)PL_parser->multi_end)
4784	82237	557520	if (curop->op_type == OP_NULL && curop->op_flags & OPf_KIDS
	82237	0	if (curop->op_type == OP_NULL && curop->op_flags & OPf_KIDS
4785	66365	15872	&& cUNOPx(curop)->op_first->op_type == OP_SCOPE
4786	66365	0	&& cUNOPx(curop)->op_first->op_flags & OPf_KIDS) {
4788	66321	44	if (kid->op_type == OP_NULL && kid->op_sibling
	66321	0	if (kid->op_type == OP_NULL && kid->op_sibling
4789	66321	0	&& !kid->op_sibling->op_sibling)
4792	190441	449316	if (curop->op_type == OP_CONST)
4794	159558	30883	else if (( (curop->op_type == OP_RV2SV ||
4795	159558	0	curop->op_type == OP_RV2AV ||
4796	0	159558	curop->op_type == OP_RV2HV ||
4798	30883	0	&& cUNOPx(curop)->op_first
4799	9	30874	&& cUNOPx(curop)->op_first->op_type == OP_GV )
4800	157794	1773	|| curop->op_type == OP_PADSV
4801	157794	0	|| curop->op_type == OP_PADAV
4802	157794	0	|| curop->op_type == OP_PADHV
4803	157794	0	|| curop->op_type == OP_PADANY) {
4808	481963	157794	if (konst
4809	32647	449316	&& !(repl_has_vars
	31621	1026	&& !(repl_has_vars
4811	31615	6	|| !RX_PRELEN(PM_GETRE(pm))
4812	31611	4	|| RX_EXTFLAGS(PM_GETRE(pm)) & RXf_EVAL_SEEN)))
4827	70811	88019	rcop->op_next = LINKLIST(repl);
4832	158830	0	pm->op_pmstashstartu.op_pmreplstart = LINKLIST(rcop);
4870	96235603	8505148	if (PL_opargs[type] & OA_RETSCALAR)
4872	2260	104738491	if (PL_opargs[type] & OA_TARGET)
4874	30935	104709816	return CHECKOP(type, svop);
	0	30935	return CHECKOP(type, svop);
4982	109473	14	pvop->op_private = utf8 ? OPpPV_IS_UTF8 : 0;
4983	109487	0	if (PL_opargs[type] & OA_RETSCALAR)
4985	0	109487	if (PL_opargs[type] & OA_TARGET)
4987	0	109487	return CHECKOP(type, pvop);
	0	0	return CHECKOP(type, pvop);
5060	0	2240597	if (idop->op_type != OP_CONST)
5068	14874	2225723	if (version) {
5073	11125	3749	if (!arg && !SvNIOKp(vesv)) {
	11124	1	if (!arg && !SvNIOKp(vesv)) {
5080	14873	0	if (version->op_type != OP_CONST || !SvNIOKp(vesv))
	0	14873	if (version->op_type != OP_CONST || !SvNIOKp(vesv))
5096	519330	1721267	if (arg && arg->op_type == OP_STUB) {
	468509	50821	if (arg && arg->op_type == OP_STUB) {
5101	41889	2147887	else if (SvNIOKp(((SVOP*)idop)->op_sv)) {
5103	41872	17	if (aver)
5119	1961732	186155	? newSVpvs_share("import") : newSVpvs_share("unimport");
5137	41857	2185698	if (use_version) {
5144	125	41732	if (vcmp(use_version,
5146	119	6	if (!(PL_hints & HINT_EXPLICIT_STRICT_REFS))
5148	118	7	if (!(PL_hints & HINT_EXPLICIT_STRICT_SUBS))
5150	119	6	if (!(PL_hints & HINT_EXPLICIT_STRICT_VARS))
5155	37303	4429	if (!(PL_hints & HINT_EXPLICIT_STRICT_REFS))
5157	37303	4429	if (!(PL_hints & HINT_EXPLICIT_STRICT_SUBS))
5159	37303	4429	if (!(PL_hints & HINT_EXPLICIT_STRICT_VARS))
5185	0	2227555	if (PL_cop_seqmax == PERL_PADSEQ_INTRO) /* not a legal value */
5250	9	6690	if (ver) {
5255	6499	200	if (flags & PERL_LOADMOD_NOIMPORT) {
5258	59	141	else if (flags & PERL_LOADMOD_IMPORT_OPS) {
5259	59	0	imop = va_arg(*args, OP*);
5264	141	0	sv = va_arg(*args, SV*);
5265	192	141	while (sv) {
5267	192	0	sv = va_arg(*args, SV*);
5294	10870	0	if (!force_builtin) {
5296	0	10870	if (!(gv && GvCVu(gv) && GvIMPORTED_CV(gv))) {
	0	0	if (!(gv && GvCVu(gv) && GvIMPORTED_CV(gv))) {
	0	0	if (!(gv && GvCVu(gv) && GvIMPORTED_CV(gv))) {
	0	0	if (!(gv && GvCVu(gv) && GvIMPORTED_CV(gv))) {
5298	0	10870	gv = gvp ? *gvp : NULL;
5302	0	10870	if (gv && GvCVu(gv) && GvIMPORTED_CV(gv)) {
	0	0	if (gv && GvCVu(gv) && GvIMPORTED_CV(gv)) {
	0	0	if (gv && GvCVu(gv) && GvIMPORTED_CV(gv)) {
	0	0	if (gv && GvCVu(gv) && GvIMPORTED_CV(gv)) {
5344	13252825	0	if (!o)
5347	294	13252531	if ((o->op_type == OP_NULL) && (o->op_flags & OPf_KIDS))
	294	0	if ((o->op_type == OP_NULL) && (o->op_flags & OPf_KIDS))
5352	294	13252531	if (type == OP_COND_EXPR) {
5356	294	0	if (t && f)
5358	1	293	if (t || f)
5363	1315497	11937034	if (type == OP_LIST &&
	5	1315492	if (type == OP_LIST &&
5364	0	5	(flags & OPf_WANT) == OPf_WANT_SCALAR &&
5368	11937034	1315492	if (type == OP_LIST || flags & OPf_PARENS ||
	11103731	833303	if (type == OP_LIST || flags & OPf_PARENS ||
5369	11013976	89755	type == OP_RV2AV || type == OP_RV2HV ||
5370	10940998	72978	type == OP_ASLICE || type == OP_HSLICE)
5373	10250670	690328	if (type == OP_PADAV || type == OP_PADHV)
5391	21891086	3557821	for (curop = cUNOPo->op_first; curop; curop=curop->op_sibling) {
5392	2736375	19154711	if (PL_opargs[curop->op_type] & OA_DANGEROUS) {
5393	684203	2052172	if (curop->op_type == OP_GV) {
5395	589657	94546	if (gv == PL_defgv
5396	571961	17696	|| (int)GvASSIGN_GENERATION(gv) == PL_generation)
5400	687724	1364448	else if (curop->op_type == OP_PADSV ||
5405	667244	20480	if (PAD_COMPNAME_GEN(curop->op_targ)
5411	1361703	2745	else if (curop->op_type == OP_RV2CV)
5413	693469	668234	else if (curop->op_type == OP_RV2SV ||
5414	495657	197812	curop->op_type == OP_RV2AV ||
5415	6383	489274	curop->op_type == OP_RV2HV ||
5417	682716	189713	if (cUNOPx(curop)->op_first->op_type != OP_GV) /* funny deref? */
5420	46585	442689	else if (curop->op_type == OP_PUSHRE) {
5429	1	46584	if (gv) {
5430	1	0	if (gv == PL_defgv
5431	1	0	|| (int)GvASSIGN_GENERATION(gv) == PL_generation)
5440	3912763	17210454	if (curop->op_flags & OPf_KIDS) {
5441	2761933	1150830	if (aassign_common_vars(curop))
5477	1028113	13252237	if (optype) {
5478	192725	835388	if (optype == OP_ANDASSIGN || optype == OP_ORASSIGN || optype == OP_DORASSIGN) {
5489	3001855	10250382	if (is_list_assignment(left)) {
5501	3001855	0	if ((left->op_type == OP_LIST
5502	1315492	1686363	|| (left->op_type == OP_NULL && left->op_targ == OP_LIST)))
	1315492	0	|| (left->op_type == OP_NULL && left->op_targ == OP_LIST)))
5506	4687716	1315492	while (lop) {
5507	3247493	1440223	if (lop->op_type == OP_PADSV ||
5511	404647	2842846	if (!(lop->op_private & OPpLVAL_INTRO))
5514	15	3247478	if (lop->op_private & OPpPAD_STATE) {
5527	72052	1368171	} else if (lop->op_type == OP_UNDEF ||
5538	883077	803286	else if ((left->op_private & OPpLVAL_INTRO)
5539	813994	69083	&& ( left->op_type == OP_PADSV
5544	318013	495981	if (left->op_type == OP_PADSV) maybe_common_vars = FALSE;
5545	8	813986	if (left->op_private & OPpPAD_STATE) {
5574	1563757	1438098	if (maybe_common_vars) {
5576	767869	795888	if (aassign_common_vars(o))
5578	1563757	0	LINKLIST(o);
5581	3001855	0	if (right && right->op_type == OP_SPLIT && !PL_madskills) {
	57807	2944048	if (right && right->op_type == OP_SPLIT && !PL_madskills) {
5583	57807	0	if (tmpop && (tmpop->op_type == OP_PUSHRE)) {
	57807	0	if (tmpop && (tmpop->op_type == OP_PUSHRE)) {
5585	79	57728	if (left->op_type == OP_RV2AV &&
	79	0	if (left->op_type == OP_RV2AV &&
5586	41	38	!(left->op_private & OPpLVAL_INTRO) &&
5590	41	0	if (tmpop->op_type == OP_GV
5594	40	1	&& !pm->op_pmreplrootu.op_pmtargetgv
5617	11475	46291	if (PL_modcount < RETURN_UNLIMITED_NUMBER &&
	11473	2	if (PL_modcount < RETURN_UNLIMITED_NUMBER &&
5623	11472	1	if (SvIOK(sv) && SvIVX(sv) == 0)
	4012	7460	if (SvIOK(sv) && SvIVX(sv) == 0)
5625	4011	1	if (right->op_private & OPpSPLIT_IMPLIM) {
5642	0	10250382	if (!right)
5644	28872	10221510	if (right->op_type == OP_READLINE) {
5685	13207269	29647759	if (PERLDB_LINE && CopLINE(PL_curcop) && PL_curstash != PL_debstash) {
	396334	12810935	if (PERLDB_LINE && CopLINE(PL_curcop) && PL_curstash != PL_debstash) {
	396212	122	if (PERLDB_LINE && CopLINE(PL_curcop) && PL_curstash != PL_debstash) {
	165793	230419	if (PERLDB_LINE && CopLINE(PL_curcop) && PL_curstash != PL_debstash) {
5701	2869291	39985737	cop->cop_warnings = DUP_WARNINGS(PL_curcop->cop_warnings);
	21939	2847352	cop->cop_warnings = DUP_WARNINGS(PL_curcop->cop_warnings);
5703	35464	42819564	if (label) {
5713	42855028	0	if (PL_parser && PL_parser->copline == NOLINE)
	4576993	38278035	if (PL_parser && PL_parser->copline == NOLINE)
5726	13207269	29647759	if ((PERLDB_LINE || PERLDB_SAVESRC) && PL_curstash != PL_debstash) {
	396339	12810930	if ((PERLDB_LINE || PERLDB_SAVESRC) && PL_curstash != PL_debstash) {
	165920	230419	if ((PERLDB_LINE || PERLDB_SAVESRC) && PL_curstash != PL_debstash) {
5729	165892	28	if (av) {
5731	164295	1597	if (svp && *svp != &PL_sv_undef ) {
	164295	0	if (svp && *svp != &PL_sv_undef ) {
5738	854019	42001009	if (flags & OPf_SPECIAL)
5776	2626268	32	if (o->op_flags & OPf_KIDS)
5784	862236	0	if (!(o->op_flags & OPf_KIDS))
5788	1038593	695047	switch (kid->op_type) {
5795	694394	653	if (kid != cLISTOPo->op_last)
5799	871404	167189	} while (kid);
5800	167189	0	if (!kid)
5826	19362	10099579	if (type == OP_XOR) /* Not short circuit, but here by precedence. */
5833	973077	9126502	if (first->op_type == OP_NOT
5834	973077	0	&& (first->op_flags & OPf_KIDS)
5836	80955	551659	|| (other->op_type == OP_NOT)) /* if (!$x && !$y) { } */
5837	632614	340463	&& !PL_madskills) {
5838	421418	0	if (type == OP_AND || type == OP_OR) {
5839	37242	384176	if (type == OP_AND)
5844	80955	340463	if (other->op_type == OP_NOT) { /* !a AND|OR !b => !(a OR|AND b) */
5851	247067	9852512	if ((cstop = search_const(first))) {
5852	2	247065	if (cstop->op_private & OPpCONST_STRICT)
5854	18	247047	else if ((cstop->op_private & OPpCONST_BARE))
5856	244323	2744	if ((type == OP_AND && SvTRUE(((SVOP*)cstop)->op_sv)) ||
	244323	0	if ((type == OP_AND && SvTRUE(((SVOP*)cstop)->op_sv)) ||
	0	244323	if ((type == OP_AND && SvTRUE(((SVOP*)cstop)->op_sv)) ||
	0	0	if ((type == OP_AND && SvTRUE(((SVOP*)cstop)->op_sv)) ||
	2	244321	if ((type == OP_AND && SvTRUE(((SVOP*)cstop)->op_sv)) ||
	2	0	if ((type == OP_AND && SvTRUE(((SVOP*)cstop)->op_sv)) ||
	0	2	if ((type == OP_AND && SvTRUE(((SVOP*)cstop)->op_sv)) ||
	118753	125568	if ((type == OP_AND && SvTRUE(((SVOP*)cstop)->op_sv)) ||
	118753	0	if ((type == OP_AND && SvTRUE(((SVOP*)cstop)->op_sv)) ||
	118749	4	if ((type == OP_AND && SvTRUE(((SVOP*)cstop)->op_sv)) ||
	21299	97450	if ((type == OP_AND && SvTRUE(((SVOP*)cstop)->op_sv)) ||
	1	21298	if ((type == OP_AND && SvTRUE(((SVOP*)cstop)->op_sv)) ||
	97451	21302	if ((type == OP_AND && SvTRUE(((SVOP*)cstop)->op_sv)) ||
	125568	0	if ((type == OP_AND && SvTRUE(((SVOP*)cstop)->op_sv)) ||
	125567	1	if ((type == OP_AND && SvTRUE(((SVOP*)cstop)->op_sv)) ||
	94712	30855	if ((type == OP_AND && SvTRUE(((SVOP*)cstop)->op_sv)) ||
	1	94712	if ((type == OP_AND && SvTRUE(((SVOP*)cstop)->op_sv)) ||
	1	0	if ((type == OP_AND && SvTRUE(((SVOP*)cstop)->op_sv)) ||
	94713	30855	if ((type == OP_AND && SvTRUE(((SVOP*)cstop)->op_sv)) ||
	0	0	if ((type == OP_AND && SvTRUE(((SVOP*)cstop)->op_sv)) ||
	2742	192168	if ((type == OP_AND && SvTRUE(((SVOP*)cstop)->op_sv)) ||
	0	2742	if ((type == OP_AND && SvTRUE(((SVOP*)cstop)->op_sv)) ||
	0	2742	if ((type == OP_AND && SvTRUE(((SVOP*)cstop)->op_sv)) ||
	2651	91	if ((type == OP_AND && SvTRUE(((SVOP*)cstop)->op_sv)) ||
	91	0	if ((type == OP_AND && SvTRUE(((SVOP*)cstop)->op_sv)) ||
5857	2742	0	(type == OP_OR && !SvTRUE(((SVOP*)cstop)->op_sv)) ||
	0	0	(type == OP_OR && !SvTRUE(((SVOP*)cstop)->op_sv)) ||
	0	0	(type == OP_OR && !SvTRUE(((SVOP*)cstop)->op_sv)) ||
	0	0	(type == OP_OR && !SvTRUE(((SVOP*)cstop)->op_sv)) ||
	2651	0	(type == OP_OR && !SvTRUE(((SVOP*)cstop)->op_sv)) ||
	2634	17	(type == OP_OR && !SvTRUE(((SVOP*)cstop)->op_sv)) ||
	2620	14	(type == OP_OR && !SvTRUE(((SVOP*)cstop)->op_sv)) ||
	2620	0	(type == OP_OR && !SvTRUE(((SVOP*)cstop)->op_sv)) ||
	2637	14	(type == OP_OR && !SvTRUE(((SVOP*)cstop)->op_sv)) ||
	91	0	(type == OP_OR && !SvTRUE(((SVOP*)cstop)->op_sv)) ||
	27	64	(type == OP_OR && !SvTRUE(((SVOP*)cstop)->op_sv)) ||
	0	27	(type == OP_OR && !SvTRUE(((SVOP*)cstop)->op_sv)) ||
	0	0	(type == OP_OR && !SvTRUE(((SVOP*)cstop)->op_sv)) ||
	64	27	(type == OP_OR && !SvTRUE(((SVOP*)cstop)->op_sv)) ||
	0	0	(type == OP_OR && !SvTRUE(((SVOP*)cstop)->op_sv)) ||
	2	194867	(type == OP_OR && !SvTRUE(((SVOP*)cstop)->op_sv)) ||
5858	0	2	(type == OP_DOR && !SvOK(((SVOP*)cstop)->op_sv))) {
	0	0	(type == OP_DOR && !SvOK(((SVOP*)cstop)->op_sv))) {
	0	0	(type == OP_DOR && !SvOK(((SVOP*)cstop)->op_sv))) {
5860	275	51923	if (other->op_type == OP_CONST)
5869	7181	45017	if (other->op_type == OP_LEAVE)
5871	39093	5924	else if (other->op_type == OP_MATCH
5873	39093	0	|| other->op_type == OP_TRANSR
5874	1	39092	|| other->op_type == OP_TRANS)
5877	275	38817	else if (other->op_type == OP_CONST)
5886	2	194867	if ( ! (o2->op_type == OP_LIST
	0	2	if ( ! (o2->op_type == OP_LIST
5887	2	0	&& (( o2 = cUNOPx(o2)->op_first))
5888	2	0	&& o2->op_type == OP_PUSHMARK
5892	548	194321	if ((o2->op_type == OP_PADSV || o2->op_type == OP_PADAV
5894	7	541	&& o2->op_private & OPpLVAL_INTRO
5895	7	0	&& !(o2->op_private & OPpPAD_STATE))
5902	194869	0	if (cstop->op_type == OP_CONST)
5914	8090255	1762257	else if ((first->op_flags & OPf_KIDS) && type != OP_DOR
5915	3027442	5062813	&& ckWARN(WARN_MISC)) /* [#24076] Don't warn for err FOO. */
5923	133	705702	if (k2 && k2->op_type == OP_READLINE
	2	131	if (k2 && k2->op_type == OP_READLINE
5924	2	0	&& (k2->op_flags & OPf_STACKED)
5925	2	0	&& ((k1->op_flags & OPf_WANT) == OPf_WANT_SCALAR))
5932	40919	6	if (k1->op_type == OP_READDIR
5934	1783	39136	|| (k1->op_type == OP_NULL && k1->op_targ == OP_GLOB)
	1783	0	|| (k1->op_type == OP_NULL && k1->op_targ == OP_GLOB)
5935	40918	1	|| k1->op_type == OP_EACH
5936	0	40918	|| k1->op_type == OP_AEACH)
5938	0	7	warnop = ((k1->op_type == OP_NULL)
5943	9	3027433	if (warnop) {
5948	4	5	Perl_warner(aTHX_ packWARN(WARN_MISC),
5957	9852512	0	if (!other)
5960	192725	9659787	if (type == OP_ANDASSIGN || type == OP_ORASSIGN || type == OP_DORASSIGN)
5969	3481043	6371469	logop->op_other = LINKLIST(other);
5973	4381961	5470551	logop->op_next = LINKLIST(first);
5977	1	9852511	CHECKOP(type,logop);
	0	1	CHECKOP(type,logop);
5979	9771557	80955	o = newUNOP(prepend_not ? OP_NOT : OP_NULL, 0, (OP*)logop);
6010	2199176	3574719	if (!falseop)
6012	0	3574719	if (!trueop)
6016	40283	3534436	if ((cstop = search_const(first))) {
6018	40283	0	const bool left = SvTRUE(((SVOP*)cstop)->op_sv);
	0	40283	const bool left = SvTRUE(((SVOP*)cstop)->op_sv);
	0	0	const bool left = SvTRUE(((SVOP*)cstop)->op_sv);
	0	40283	const bool left = SvTRUE(((SVOP*)cstop)->op_sv);
	0	0	const bool left = SvTRUE(((SVOP*)cstop)->op_sv);
	0	0	const bool left = SvTRUE(((SVOP*)cstop)->op_sv);
	17189	23094	const bool left = SvTRUE(((SVOP*)cstop)->op_sv);
	17189	0	const bool left = SvTRUE(((SVOP*)cstop)->op_sv);
	17188	1	const bool left = SvTRUE(((SVOP*)cstop)->op_sv);
	15878	1310	const bool left = SvTRUE(((SVOP*)cstop)->op_sv);
	0	15878	const bool left = SvTRUE(((SVOP*)cstop)->op_sv);
	15879	1310	const bool left = SvTRUE(((SVOP*)cstop)->op_sv);
	23094	0	const bool left = SvTRUE(((SVOP*)cstop)->op_sv);
	23094	0	const bool left = SvTRUE(((SVOP*)cstop)->op_sv);
	21903	1191	const bool left = SvTRUE(((SVOP*)cstop)->op_sv);
	0	21903	const bool left = SvTRUE(((SVOP*)cstop)->op_sv);
	0	0	const bool left = SvTRUE(((SVOP*)cstop)->op_sv);
	1191	21903	const bool left = SvTRUE(((SVOP*)cstop)->op_sv);
	0	0	const bool left = SvTRUE(((SVOP*)cstop)->op_sv);
6019	23213	17070	OP *live = left ? trueop : falseop;
6020	23213	17070	OP *const dead = left ? falseop : trueop;
6021	1	40282	if (cstop->op_private & OPpCONST_BARE &&
6034	30797	9486	if (live->op_type == OP_LEAVE)
6036	9484	2	else if (live->op_type == OP_MATCH || live->op_type == OP_SUBST
6037	9483	1	|| live->op_type == OP_TRANS || live->op_type == OP_TRANSR)
	0	9483	|| live->op_type == OP_TRANS || live->op_type == OP_TRANSR)
6040	7159	2324	else if (live->op_type == OP_CONST)
6051	790583	2743853	logop->op_other = LINKLIST(trueop);
6052	1742469	1791967	logop->op_next = LINKLIST(falseop);
6054	767	3533669	CHECKOP(OP_COND_EXPR, /* that's logop->op_type */
	0	767	CHECKOP(OP_COND_EXPR, /* that's logop->op_type */
6058	1343300	2191136	start = LINKLIST(first);
6103	87634	910	leftstart = LINKLIST(left);
6104	34679	53865	range->op_other = LINKLIST(right);
6113	88544	0	LINKLIST(flop);
6124	6740	81804	flip->op_private = left->op_type == OP_CONST ? OPpFLIP_LINENUM : 0;
6125	70969	17575	flop->op_private = right->op_type == OP_CONST ? OPpFLIP_LINENUM : 0;
6128	81804	6740	if (flip->op_private && cSVOPx(left)->op_private & OPpCONST_STRICT)
	2	81802	if (flip->op_private && cSVOPx(left)->op_private & OPpCONST_STRICT)
6130	17575	70969	if (flop->op_private && cSVOPx(right)->op_private & OPpCONST_STRICT)
	2	17573	if (flop->op_private && cSVOPx(right)->op_private & OPpCONST_STRICT)
6134	81804	6740	if (!flip->op_private || !flop->op_private)
	64409	17395	if (!flip->op_private || !flop->op_private)
6135	71149	0	LINKLIST(o); /* blow off optimizer unless constant */
6162	84752	0	const bool once = block && block->op_flags & OPf_SPECIAL &&
	12890	71862	const bool once = block && block->op_flags & OPf_SPECIAL &&
	14	12876	const bool once = block && block->op_flags & OPf_SPECIAL &&
6167	84752	0	if (expr) {
6168	12876	71876	if (once && expr->op_type == OP_CONST && !SvTRUE(((SVOP*)expr)->op_sv))
	1	12875	if (once && expr->op_type == OP_CONST && !SvTRUE(((SVOP*)expr)->op_sv))
	1	0	if (once && expr->op_type == OP_CONST && !SvTRUE(((SVOP*)expr)->op_sv))
	0	1	if (once && expr->op_type == OP_CONST && !SvTRUE(((SVOP*)expr)->op_sv))
	0	0	if (once && expr->op_type == OP_CONST && !SvTRUE(((SVOP*)expr)->op_sv))
	0	1	if (once && expr->op_type == OP_CONST && !SvTRUE(((SVOP*)expr)->op_sv))
	0	0	if (once && expr->op_type == OP_CONST && !SvTRUE(((SVOP*)expr)->op_sv))
	0	0	if (once && expr->op_type == OP_CONST && !SvTRUE(((SVOP*)expr)->op_sv))
	0	1	if (once && expr->op_type == OP_CONST && !SvTRUE(((SVOP*)expr)->op_sv))
	0	0	if (once && expr->op_type == OP_CONST && !SvTRUE(((SVOP*)expr)->op_sv))
	0	0	if (once && expr->op_type == OP_CONST && !SvTRUE(((SVOP*)expr)->op_sv))
	0	0	if (once && expr->op_type == OP_CONST && !SvTRUE(((SVOP*)expr)->op_sv))
	0	0	if (once && expr->op_type == OP_CONST && !SvTRUE(((SVOP*)expr)->op_sv))
	0	0	if (once && expr->op_type == OP_CONST && !SvTRUE(((SVOP*)expr)->op_sv))
	1	0	if (once && expr->op_type == OP_CONST && !SvTRUE(((SVOP*)expr)->op_sv))
	1	0	if (once && expr->op_type == OP_CONST && !SvTRUE(((SVOP*)expr)->op_sv))
	0	1	if (once && expr->op_type == OP_CONST && !SvTRUE(((SVOP*)expr)->op_sv))
	0	0	if (once && expr->op_type == OP_CONST && !SvTRUE(((SVOP*)expr)->op_sv))
	0	0	if (once && expr->op_type == OP_CONST && !SvTRUE(((SVOP*)expr)->op_sv))
	1	0	if (once && expr->op_type == OP_CONST && !SvTRUE(((SVOP*)expr)->op_sv))
	0	0	if (once && expr->op_type == OP_CONST && !SvTRUE(((SVOP*)expr)->op_sv))
6170	84299	453	if (expr->op_type == OP_READLINE
6172	84299	0	|| expr->op_type == OP_GLOB
6173	84297	2	|| expr->op_type == OP_EACH || expr->op_type == OP_AEACH
	84296	1	|| expr->op_type == OP_EACH || expr->op_type == OP_AEACH
6174	20035	64261	|| (expr->op_type == OP_NULL && expr->op_targ == OP_GLOB)) {
	0	20035	|| (expr->op_type == OP_NULL && expr->op_targ == OP_GLOB)) {
6177	83979	317	} else if (expr->op_flags & OPf_KIDS) {
6179	83979	0	const OP * const k2 = k1 ? k1->op_sibling : NULL;
6182	1	20034	if (k2 && (k2->op_type == OP_READLINE || k2->op_type == OP_READDIR)
	1	0	if (k2 && (k2->op_type == OP_READLINE || k2->op_type == OP_READDIR)
6183	1	0	&& (k2->op_flags & OPf_STACKED)
6184	1	0	&& ((k1->op_flags & OPf_WANT) == OPf_WANT_SCALAR))
6189	13	0	if (k1 && (k1->op_type == OP_READDIR
	12	1	if (k1 && (k1->op_type == OP_READDIR
6191	1	11	|| (k1->op_type == OP_NULL && k1->op_targ == OP_GLOB)
	1	0	|| (k1->op_type == OP_NULL && k1->op_targ == OP_GLOB)
6192	8	4	|| k1->op_type == OP_EACH
6193	0	8	|| k1->op_type == OP_AEACH))
6202	0	84752	if (!block)
6207	84752	0	if (listop)
6208	0	84752	((LISTOP*)listop)->op_last->op_next = LINKLIST(o);
6210	12876	71876	if (once && o != listop)
	12875	1	if (once && o != listop)
6213	3	84749	if (o == listop)
6259	1094887	149072	if (expr) {
6260	1076567	18320	if (expr->op_type == OP_READLINE
6262	1076566	1	|| expr->op_type == OP_GLOB
6263	1076563	3	|| expr->op_type == OP_EACH || expr->op_type == OP_AEACH
	1076560	3	|| expr->op_type == OP_EACH || expr->op_type == OP_AEACH
6264	45072	1031488	|| (expr->op_type == OP_NULL && expr->op_targ == OP_GLOB)) {
	12	45060	|| (expr->op_type == OP_NULL && expr->op_targ == OP_GLOB)) {
6267	316040	760508	} else if (expr->op_flags & OPf_KIDS) {
6269	316040	0	const OP * const k2 = (k1) ? k1->op_sibling : NULL;
6272	1071	43989	if (k2 && (k2->op_type == OP_READLINE || k2->op_type == OP_READDIR)
	1071	0	if (k2 && (k2->op_type == OP_READLINE || k2->op_type == OP_READDIR)
6273	1071	0	&& (k2->op_flags & OPf_STACKED)
6274	1071	0	&& ((k1->op_flags & OPf_WANT) == OPf_WANT_SCALAR))
6279	13877	0	if (k1 && (k1->op_type == OP_READDIR
	13870	7	if (k1 && (k1->op_type == OP_READDIR
6281	0	13870	|| (k1->op_type == OP_NULL && k1->op_targ == OP_GLOB)
	0	0	|| (k1->op_type == OP_NULL && k1->op_targ == OP_GLOB)
6282	13610	260	|| k1->op_type == OP_EACH
6283	2	13608	|| k1->op_type == OP_AEACH))
6290	1	1243958	if (!block)
6292	156625	1087333	else if (cont || has_my) {
6296	102709	1141250	if (cont) {
6297	1923	100786	next = LINKLIST(cont);
6299	1094887	149072	if (expr) {
6301	992189	102698	if (!next)
6309	16068	1227891	redo = LINKLIST(listop);
6311	1094887	149072	if (expr) {
6314	8	1094879	if (o == expr && o->op_type == OP_CONST && !SvTRUE(cSVOPo->op_sv)) {
	8	0	if (o == expr && o->op_type == OP_CONST && !SvTRUE(cSVOPo->op_sv)) {
	8	0	if (o == expr && o->op_type == OP_CONST && !SvTRUE(cSVOPo->op_sv)) {
	0	8	if (o == expr && o->op_type == OP_CONST && !SvTRUE(cSVOPo->op_sv)) {
	0	0	if (o == expr && o->op_type == OP_CONST && !SvTRUE(cSVOPo->op_sv)) {
	0	8	if (o == expr && o->op_type == OP_CONST && !SvTRUE(cSVOPo->op_sv)) {
	0	0	if (o == expr && o->op_type == OP_CONST && !SvTRUE(cSVOPo->op_sv)) {
	0	0	if (o == expr && o->op_type == OP_CONST && !SvTRUE(cSVOPo->op_sv)) {
	3	5	if (o == expr && o->op_type == OP_CONST && !SvTRUE(cSVOPo->op_sv)) {
	3	0	if (o == expr && o->op_type == OP_CONST && !SvTRUE(cSVOPo->op_sv)) {
	3	0	if (o == expr && o->op_type == OP_CONST && !SvTRUE(cSVOPo->op_sv)) {
	1	2	if (o == expr && o->op_type == OP_CONST && !SvTRUE(cSVOPo->op_sv)) {
	0	1	if (o == expr && o->op_type == OP_CONST && !SvTRUE(cSVOPo->op_sv)) {
	3	0	if (o == expr && o->op_type == OP_CONST && !SvTRUE(cSVOPo->op_sv)) {
	5	0	if (o == expr && o->op_type == OP_CONST && !SvTRUE(cSVOPo->op_sv)) {
	4	1	if (o == expr && o->op_type == OP_CONST && !SvTRUE(cSVOPo->op_sv)) {
	4	0	if (o == expr && o->op_type == OP_CONST && !SvTRUE(cSVOPo->op_sv)) {
	1	4	if (o == expr && o->op_type == OP_CONST && !SvTRUE(cSVOPo->op_sv)) {
	0	1	if (o == expr && o->op_type == OP_CONST && !SvTRUE(cSVOPo->op_sv)) {
	5	0	if (o == expr && o->op_type == OP_CONST && !SvTRUE(cSVOPo->op_sv)) {
	0	0	if (o == expr && o->op_type == OP_CONST && !SvTRUE(cSVOPo->op_sv)) {
6318	1094879	0	if (listop)
6320	1077316	17563	(o == listop ? redo : LINKLIST(o));
	0	1077316	(o == listop ? redo : LINKLIST(o));
6325	515446	728505	if (!loop) {
6339	1094890	149061	if (next)
6385	454080	274425	if (sv) {
6386	6409	447671	if (sv->op_type == OP_RV2SV) { /* symbol table variable */
6397	6409	0	if (cUNOPx(sv)->op_first->op_type == OP_GV
6398	171	6238	&& cGVOPx_gv(cUNOPx(sv)->op_first) == PL_defgv)
6401	447671	0	else if (sv->op_type == OP_PADSV) { /* private variable */
6414	447671	6409	if (padoff) {
6417	447671	0	const char *const name = SvPV_const(namesv, len);
6419	116128	331543	if (len == 2 && name[0] == '$' && name[1] == '_')
	116128	0	if (len == 2 && name[0] == '$' && name[1] == '_')
	6	116122	if (len == 2 && name[0] == '$' && name[1] == '_')
6425	3	274422	if (offset == NOT_IN_PAD || PAD_COMPNAME_FLAGS_isOUR(offset)) {
	0	3	if (offset == NOT_IN_PAD || PAD_COMPNAME_FLAGS_isOUR(offset)) {
6433	330504	398001	if (expr->op_type == OP_RV2AV || expr->op_type == OP_PADAV) {
6437	66291	331710	else if (expr->op_type == OP_NULL &&
	66291	0	else if (expr->op_type == OP_NULL &&
6438	58575	7716	(expr->op_flags & OPf_KIDS) &&
6479	728504	1	if (loop->op_slabbed
6480	720259	8245	&& DIFF(loop, OpSLOT(loop)->opslot_next)
6489	1	8245	else if (!loop->op_slabbed)
6519	59952	126189	if (type != OP_GOTO) {
6521	7002	52950	if (label->op_type == OP_STUB && (label->op_flags & OPf_PARENS)) {
	7002	0	if (label->op_type == OP_STUB && (label->op_flags & OPf_PARENS)) {
6527	89012	37177	if (label->op_type == OP_ENTERSUB
6528	89011	1	&& !(label->op_flags & OPf_STACKED))
6533	64020	122121	if (label->op_type == OP_CONST) {
6536	64020	0	const char *s = SvPV_const(sv,l);
6537	64019	1	if (l == strlen(s)) {
6538	64019	0	o = newPVOP(type,
6546	71021	115120	if (o)
6564	953	0	if (cond
6565	907	46	&& (cond->op_type == OP_RV2AV
6567	907	0	|| cond->op_type == OP_RV2HV
6568	51	856	|| cond->op_type == OP_PADHV))
6572	856	0	else if(cond
6573	21	835	&& (cond->op_type == OP_ASLICE
6613	359	0	enterop->op_targ = ((entertarg == NOT_IN_PAD) ? 0 : entertarg);
6618	324	35	if (cond) {
6622	148	176	o->op_next = LINKLIST(cond);
6634	0	359	CHECKOP(enter_opcode, enterop); /* Currently does nothing, since
	0	0	CHECKOP(enter_opcode, enterop); /* Currently does nothing, since
6638	0	359	enterop->op_next = LINKLIST(block);
6670	2	0	&& looks_like_bool(cLOGOPo->op_first->op_sibling));
	0	2	&& looks_like_bool(cLOGOPo->op_first->op_sibling));
6676	8	0	&& looks_like_bool(cUNOPo->op_first));
	1	7	&& looks_like_bool(cUNOPo->op_first));
6711	90	1	if (cSVOPo->op_sv == &PL_sv_yes
6712	89	1	|| cSVOPo->op_sv == &PL_sv_no)
6765	216	35	const bool cond_llb = (!cond || looks_like_bool(cond));
	121	95	const bool cond_llb = (!cond || looks_like_bool(cond));
6770	121	130	if (cond_llb)
6786	19695	2	const char * cvp = SvROK(cv) ? "" : CvPROTO(cv);
	17151	2544	const char * cvp = SvROK(cv) ? "" : CvPROTO(cv);
	17150	1	const char * cvp = SvROK(cv) ? "" : CvPROTO(cv);
	1	17149	const char * cvp = SvROK(cv) ? "" : CvPROTO(cv);
6787	17151	2546	STRLEN clen = CvPROTOLEN(cv), plen = len;
	17150	1	STRLEN clen = CvPROTOLEN(cv), plen = len;
	1	17149	STRLEN clen = CvPROTOLEN(cv), plen = len;
6791	17160	2537	if (p == NULL && cvp == NULL)
6794	17119	41	if (!ckWARN_d(WARN_PROTOTYPE))
6797	17105	14	if (p && cvp) {
6800	17102	3	if ((flags & SVf_UTF8) == SvUTF8(cv)) {
6801	17093	9	if (plen == clen && memEQ(cvp, p, plen))
	0	17093	if (plen == clen && memEQ(cvp, p, plen))
6804	2	1	if (flags & SVf_UTF8) {
6805	1	1	if (bytes_cmp_utf8((const U8 *)cvp, clen, (const U8 *)p, plen) == 0)
6809	1	0	if (bytes_cmp_utf8((const U8 *)p, plen, (const U8 *)cvp, clen) == 0)
6817	25	0	if (gv)
6819	19	6	if (isGV(gv))
6821	6	0	else if (SvPOK(gv) && *SvPVX((SV *)gv) == '&')
	4	2	else if (SvPOK(gv) && *SvPVX((SV *)gv) == '&')
6826	25	0	if (name)
6828	20	5	if (cvp)
6835	16	9	if (p)
6864	22227	0	if (!cv)
6866	22227	0	if (!(SvTYPE(cv) == SVt_PVCV || SvTYPE(cv) == SVt_PVFM))
6868	18580	3647	sv = CvCONST(cv) ? MUTABLE_SV(CvXSUBANY(cv).any_ptr) : NULL;
6869	18576	3651	if (sv && SvTYPE(sv) == SVt_PVAV) return NULL;
	18576	0	if (sv && SvTYPE(sv) == SVt_PVAV) return NULL;
6877	2052232	0	if (!cv)
6880	1146697	905535	return CvCONST(cv) ? MUTABLE_SV(CvXSUBANY(cv).any_ptr) : NULL;
6895	139943	0	if (!o)
6898	134100	5843	if (o->op_type == OP_LINESEQ && cLISTOPo->op_first)
	134100	0	if (o->op_type == OP_LINESEQ && cLISTOPo->op_first)
6901	237627	0	for (; o; o = o->op_next) {
6904	97684	139943	if (sv && o->op_next == o)
	0	97684	if (sv && o->op_next == o)
6906	6792	133151	if (o->op_next != o) {
6907	6792	0	if (type == OP_NEXTSTATE
6908	987	5805	|| (type == OP_NULL && !(o->op_flags & OPf_KIDS))
	987	0	|| (type == OP_NULL && !(o->op_flags & OPf_KIDS))
6909	0	6792	|| type == OP_PUSHMARK)
6911	0	6792	if (type == OP_DBSTATE)
6914	137444	2499	if (type == OP_LEAVESUB || type == OP_RETURN)
6916	137444	0	if (sv)
6918	97684	39760	if (type == OP_CONST && cSVOPo->op_sv)
	97684	0	if (type == OP_CONST && cSVOPo->op_sv)
6934	19	241	if ((!block
6939	8	11	if (CvFLAGS(PL_compcv)) {
6941	7	1	const bool pureperl = !CvISXSUB(cv) && CvROOT(cv);
	1	6	const bool pureperl = !CvISXSUB(cv) && CvROOT(cv);
6942	8	0	if (CvLVALUE(PL_compcv) && ! CvLVALUE(cv) && pureperl
	8	0	if (CvLVALUE(PL_compcv) && ! CvLVALUE(cv) && pureperl
	6	2	if (CvLVALUE(PL_compcv) && ! CvLVALUE(cv) && pureperl
6943	6	0	&& ckWARN(WARN_MISC))
6958	222	19	if (CvCONST(cv) || ckWARN(WARN_REDEFINE)) {
	32	190	if (CvCONST(cv) || ckWARN(WARN_REDEFINE)) {
6962	47	4	: sv_2mortal(newSVpvn_utf8(
	4	0	: sv_2mortal(newSVpvn_utf8(
	4	0	: sv_2mortal(newSVpvn_utf8(
6965	51	0	if (PL_parser && PL_parser->copline != NOLINE)
	51	0	if (PL_parser && PL_parser->copline != NOLINE)
7015	15	118	if (PadnameOUTER(name) && PARENT_PAD_INDEX(name)) {
	15	0	if (PadnameOUTER(name) && PARENT_PAD_INDEX(name)) {
7022	5	113	&PadARRAY(PadlistARRAY(CvPADLIST(outcv))
7026	21	97	if (proto) {
7028	21	0	ps = SvPV_const(((SVOP*)proto)->op_sv, ps_len);
7035	21	97	if (proto)
7037	0	118	if (attrs)
7041	118	0	if (PL_parser && PL_parser->error_count) {
	4	114	if (PL_parser && PL_parser->error_count) {
7048	5	109	if (CvDEPTH(outcv) && CvCLONE(compcv)) {
	2	3	if (CvDEPTH(outcv) && CvCLONE(compcv)) {
7052	71	41	else if (PadnameIsSTATE(name) || CvDEPTH(outcv))
	0	71	else if (PadnameIsSTATE(name) || CvDEPTH(outcv))
7054	53	18	else {
7059	18	53	if (CvNAMED(*spot))
7062	0	53	CvNAME_HEK_set(*spot, hek =
	53	0	CvNAME_HEK_set(*spot, hek =
	53	0	CvNAME_HEK_set(*spot, hek =
	53	0	CvNAME_HEK_set(*spot, hek =
7069	18	53	if (mg) {
7080	15	99	if (!block || !ps || *ps || attrs
	12	3	if (!block || !ps || *ps || attrs
7081	0	12	|| (CvFLAGS(compcv) & CVf_BUILTIN_ATTRS)
7090	61	53	if (cv) {
7091	52	9	const bool exists = CvROOT(cv) || CvXSUB(cv);
	52	0	const bool exists = CvROOT(cv) || CvXSUB(cv);
7097	52	9	if (exists || SvPOK(cv))
	2	50	if (exists || SvPOK(cv))
7100	9	52	if (exists) {
7101	0	7	if (S_already_defined(aTHX_ cv, block, NULL, name, &const_sv))
7104	0	0	if (attrs) goto attrs;
7110	2	50	else if (CvDEPTH(outcv) && CvCLONE(compcv)) {
	1	1	else if (CvDEPTH(outcv) && CvCLONE(compcv)) {
7115	11	101	if (const_sv) {
7118	3	8	if (cv) {
7124	8	0	CvFILE_set_from_cop(cv, PL_curcop);
7146	87	14	if (outcv == CvOUTSIDE(compcv) && !PadnameOUTER(name)) {
	87	0	if (outcv == CvOUTSIDE(compcv) && !PadnameOUTER(name)) {
7152	48	53	if (cv) { /* must reuse cv in case stub is referenced elsewhere */
7154	36	12	if (block
7180	18	18	if (CvFILE(cv) && CvDYNFILE(cv)) {
	0	18	if (CvFILE(cv) && CvDYNFILE(cv)) {
7186	34	2	if (PERLDB_INTER)/* Advice debugger on the new sub. */
	0	34	if (PERLDB_INTER)/* Advice debugger on the new sub. */
7202	92	20	if (!CvNAME_HEK(cv)) {
7203	0	92	CvNAME_HEK_set(cv,
	55	37	CvNAME_HEK_set(cv,
	37	0	CvNAME_HEK_set(cv,
	37	0	CvNAME_HEK_set(cv,
	37	0	CvNAME_HEK_set(cv,
7211	101	11	if (const_sv) goto clone;
7213	101	0	CvFILE_set_from_cop(cv, PL_curcop);
7216	10	91	if (ps) {
7218	1	9	if ( ps_utf8 ) SvUTF8_on(MUTABLE_SV(cv));
7222	69	32	if (!block)
7232	17	52	if (block->op_type == OP_STUB) {
7244	0	69	: newUNOP(OP_LEAVESUB, 0, scalarseq(block));
7250	0	69	OpslabREFCNT_dec_padok((OPSLAB *)CvSTART(cv));
7251	0	69	CvSTART(cv) = LINKLIST(CvROOT(cv));
7261	0	101	if (attrs) {
7266	69	32	if (block) {
7267	64	5	if (PERLDB_SUBLINE && PL_curstash != PL_debstash) {
	0	64	if (PERLDB_SUBLINE && PL_curstash != PL_debstash) {
	0	0	if (PERLDB_SUBLINE && PL_curstash != PL_debstash) {
7272	0	0	SV * const sv = Perl_newSVpvf(aTHX_ "%s:%ld-%ld",
7276	0	0	if (HvNAME_HEK(PL_curstash)) {
	0	0	if (HvNAME_HEK(PL_curstash)) {
	0	0	if (HvNAME_HEK(PL_curstash)) {
	0	0	if (HvNAME_HEK(PL_curstash)) {
7277	0	0	sv_sethek(tmpstr, HvNAME_HEK(PL_curstash));
	0	0	sv_sethek(tmpstr, HvNAME_HEK(PL_curstash));
	0	0	sv_sethek(tmpstr, HvNAME_HEK(PL_curstash));
7281	0	0	sv_catpvn_flags(tmpstr, PadnamePV(name)+1, PadnameLEN(name)-1,
	0	0	sv_catpvn_flags(tmpstr, PadnamePV(name)+1, PadnameLEN(name)-1,
	0	0	sv_catpvn_flags(tmpstr, PadnamePV(name)+1, PadnameLEN(name)-1,
7283	0	0	(void)hv_store(GvHV(PL_DBsub), SvPVX_const(tmpstr),
7285	0	0	hv = GvHVn(db_postponed);
7286	0	0	if (HvTOTALKEYS(hv) > 0 && hv_exists(hv, SvPVX_const(tmpstr), SvUTF8(tmpstr) ? -(I32)SvCUR(tmpstr) : (I32)SvCUR(tmpstr))) {
	0	0	if (HvTOTALKEYS(hv) > 0 && hv_exists(hv, SvPVX_const(tmpstr), SvUTF8(tmpstr) ? -(I32)SvCUR(tmpstr) : (I32)SvCUR(tmpstr))) {
	0	0	if (HvTOTALKEYS(hv) > 0 && hv_exists(hv, SvPVX_const(tmpstr), SvUTF8(tmpstr) ? -(I32)SvCUR(tmpstr) : (I32)SvCUR(tmpstr))) {
7288	0	0	if (pcv) {
7290	0	0	PUSHMARK(SP);
7291	0	0	XPUSHs(tmpstr);
7300	2	110	if (clonee) {
7304	1	1	if (reusable) cv_clone_into(clonee, *spot);
7310	5	107	if (CvDEPTH(outcv) && !reusable && PadnameIsSTATE(name)) {
	4	1	if (CvDEPTH(outcv) && !reusable && PadnameIsSTATE(name)) {
	3	1	if (CvDEPTH(outcv) && !reusable && PadnameIsSTATE(name)) {
7312	1	3	while (--depth) {
7322	116	0	if (PL_parser)
7324	116	0	LEAVE_SCOPE(floor);
7325	116	0	if (o) op_free(o);
7346	6687824	0	const bool ec = PL_parser && PL_parser->error_count;
	6687609	215	const bool ec = PL_parser && PL_parser->error_count;
7353	6687609	215	= ec ? GV_NOADD_NOINIT :
7354	177798	9	(block || attrs || (CvFLAGS(PL_compcv) & CVf_BUILTIN_ATTRS)
7355	177807	6509802	|| PL_madskills)
7356	177798	6509811	? GV_ADDMULTI : GV_ADDMULTI | GV_NOINIT;
7360	6398117	289707	o ? SvPV_const(o_is_gv ? (SV *)o : cSVOPo->op_sv, namlen) : NULL;
	6397753	364	o ? SvPV_const(o_is_gv ? (SV *)o : cSVOPo->op_sv, namlen) : NULL;
	6397753	364	o ? SvPV_const(o_is_gv ? (SV *)o : cSVOPo->op_sv, namlen) : NULL;
	6397753	0	o ? SvPV_const(o_is_gv ? (SV *)o : cSVOPo->op_sv, namlen) : NULL;
	6397753	0	o ? SvPV_const(o_is_gv ? (SV *)o : cSVOPo->op_sv, namlen) : NULL;
	0	364	o ? SvPV_const(o_is_gv ? (SV *)o : cSVOPo->op_sv, namlen) : NULL;
7362	6398117	289707	bool name_is_utf8 = o && !o_is_gv && SvUTF8(cSVOPo->op_sv);
	6397753	364	bool name_is_utf8 = o && !o_is_gv && SvUTF8(cSVOPo->op_sv);
	6397406	347	bool name_is_utf8 = o && !o_is_gv && SvUTF8(cSVOPo->op_sv);
7367	239680	6448144	if (proto) {
7369	239680	0	ps = SvPV_const(((SVOP*)proto)->op_sv, ps_len);
7375	6687460	364	if (o_is_gv) {
7379	6397753	289707	} else if (name) {
7382	62079	227628	} else if (PERLDB_NAMEANON && CopLINE(PL_curcop)) {
	1855	60224	} else if (PERLDB_NAMEANON && CopLINE(PL_curcop)) {
	1855	0	} else if (PERLDB_NAMEANON && CopLINE(PL_curcop)) {
7384	1855	0	Perl_sv_setpvf(aTHX_ sv, "%s[%s:%"IVdf"]",
	0	1855	Perl_sv_setpvf(aTHX_ sv, "%s[%s:%"IVdf"]",
7389	287852	0	} else if (PL_curstash) {
7398	6397753	290071	if (o)
7400	239680	6448144	if (proto)
7402	56	6687768	if (attrs)
7406	215	6687609	if (ec) {
7408	45	170	if (name) SvREFCNT_dec(PL_compcv);
7411	40	175	if (name && block) {
7413	1	39	s = s ? s+1 : name;
7414	13	27	if (strEQ(s, "BEGIN")) {
7415	0	13	if (PL_in_eval & EVAL_KEEPERR)
7418	13	0	SV * const errsv = ERRSV;
7428	177514	6510095	if (SvTYPE(gv) != SVt_PVGV) { /* Maybe prototype now, and had at
7430	4	177510	if (SvTYPE(gv) > SVt_NULL) {
7431	4	0	cv_ckproto_len_flags((const CV *)gv,
7435	40270	137244	if (ps) {
7437	0	40270	if ( ps_utf8 ) SvUTF8_on(MUTABLE_SV(gv));
7447	6220558	289537	cv = (!name || GvCVGEN(gv)) ? NULL : GvCV(gv);
	6216905	3653	cv = (!name || GvCVGEN(gv)) ? NULL : GvCV(gv);
7449	199190	6310905	if (!block || !ps || *ps || attrs
	139937	59253	if (!block || !ps || *ps || attrs
7450	6	139931	|| (CvFLAGS(PL_compcv) & CVf_BUILTIN_ATTRS)
7459	44614	6465481	if (cv) {
7460	44364	250	const bool exists = CvROOT(cv) || CvXSUB(cv);
	44364	0	const bool exists = CvROOT(cv) || CvXSUB(cv);
7466	44364	250	if (exists || SvPOK(cv))
	7831	36533	if (exists || SvPOK(cv))
7469	44364	250	if (exists || GvASSUMECV(gv)) {
	1	44363	if (exists || GvASSUMECV(gv)) {
7470	15	232	if (S_already_defined(aTHX_ cv, block, o, NULL, &const_sv))
7473	14	1	if (attrs) goto attrs;
7480	97673	6412403	if (const_sv) {
7483	1	97672	if (cv) {
7494	97654	18	cv = newCONSTSUB_flags(
7506	44362	6368041	if (cv) { /* must reuse cv if autoloaded */
7508	44354	8	if (block
7536	44349	5	if (CvFILE(cv) && CvDYNFILE(cv)) {
	0	44349	if (CvFILE(cv) && CvDYNFILE(cv)) {
7539	44354	0	CvFILE_set_from_cop(cv, PL_curcop);
7544	25066	19288	if (PERLDB_INTER)/* Advice debugger on the new sub. */
	51	25015	if (PERLDB_INTER)/* Advice debugger on the new sub. */
7557	6108198	259843	if (name) {
7560	6108198	0	if (HvENAME_HEK(GvSTASH(gv)))
	6108198	0	if (HvENAME_HEK(GvSTASH(gv)))
	8	6108190	if (HvENAME_HEK(GvSTASH(gv)))
	8	6108182	if (HvENAME_HEK(GvSTASH(gv)))
	6108181	1	if (HvENAME_HEK(GvSTASH(gv)))
	0	6108181	if (HvENAME_HEK(GvSTASH(gv)))
	6108197	1	if (HvENAME_HEK(GvSTASH(gv)))
7562	2	6108195	gv_method_changed(gv);
7565	6367678	44725	if (!CvGV(cv)) {
7567	6367678	0	CvFILE_set_from_cop(cv, PL_curcop);
7571	101721	6310682	if (ps) {
7573	5	101716	if ( ps_utf8 ) SvUTF8_on(MUTABLE_SV(cv));
7577	6412125	278	if (!block)
7587	57785	6354340	if (block->op_type == OP_STUB) {
7599	3425	6408700	: newUNOP(OP_LEAVESUB, 0, scalarseq(block));
7605	0	6412125	OpslabREFCNT_dec_padok((OPSLAB *)CvSTART(cv));
7609	0	6412125	CvSTART(cv) = LINKLIST(CvROOT(cv));
7619	56	6412348	if (attrs) {
7621	53	3	HV *stash = name && GvSTASH(CvGV(cv)) ? GvSTASH(CvGV(cv)) : PL_curstash;
	53	0	HV *stash = name && GvSTASH(CvGV(cv)) ? GvSTASH(CvGV(cv)) : PL_curstash;
7622	3	53	if (!name) SAVEFREESV(cv);
7624	1	51	if (!name) SvREFCNT_inc_simple_void_NN(cv);
7627	6412121	279	if (block && has_name) {
	6153743	258378	if (block && has_name) {
7628	2045292	4108451	if (PERLDB_SUBLINE && PL_curstash != PL_debstash) {
	44301	2000991	if (PERLDB_SUBLINE && PL_curstash != PL_debstash) {
	21552	22749	if (PERLDB_SUBLINE && PL_curstash != PL_debstash) {
7633	21552	0	SV * const sv = Perl_newSVpvf(aTHX_ "%s:%ld-%ld",
7638	0	21552	(void)hv_store(GvHV(PL_DBsub), SvPVX_const(tmpstr),
7640	21552	0	hv = GvHVn(db_postponed);
7641	0	21552	if (HvTOTALKEYS(hv) > 0 && hv_exists(hv, SvPVX_const(tmpstr), SvUTF8(tmpstr) ? -(I32)SvCUR(tmpstr) : (I32)SvCUR(tmpstr))) {
	0	0	if (HvTOTALKEYS(hv) > 0 && hv_exists(hv, SvPVX_const(tmpstr), SvUTF8(tmpstr) ? -(I32)SvCUR(tmpstr) : (I32)SvCUR(tmpstr))) {
	0	0	if (HvTOTALKEYS(hv) > 0 && hv_exists(hv, SvPVX_const(tmpstr), SvUTF8(tmpstr) ? -(I32)SvCUR(tmpstr) : (I32)SvCUR(tmpstr))) {
7643	0	0	if (pcv) {
7645	0	0	PUSHMARK(SP);
7646	0	0	XPUSHs(tmpstr);
7653	6152280	1463	if (name && ! (PL_parser && PL_parser->error_count))
	6152280	0	if (name && ! (PL_parser && PL_parser->error_count))
	6152278	2	if (name && ! (PL_parser && PL_parser->error_count))
7658	6674641	0	if (PL_parser)
7660	4307288	2367353	LEAVE_SCOPE(floor);
7674	1743546	8586235	const char *const name = colon ? colon + 1 : fullname;
7678	2421894	7907887	if (*name == 'B') {
7679	2380603	41291	if (strEQ(name, "BEGIN")) {
7681	2380515	88	if (floor) LEAVE_SCOPE(floor);
	2380515	0	if (floor) LEAVE_SCOPE(floor);
7697	371964	7535923	if (*name == 'E') {
7698	371964	0	if strEQ(name, "END") {
	97410	274554	if strEQ(name, "END") {
	6721	90689	if strEQ(name, "END") {
	6721	365243	if strEQ(name, "END") {
7703	13586	7522337	} else if (*name == 'U') {
7704	195	13391	if (strEQ(name, "UNITCHECK")) {
7710	198586	7323751	} else if (*name == 'C') {
7711	4937	193649	if (strEQ(name, "CHECK")) {
7712	60	4877	if (PL_main_start)
7720	95865	7227886	} else if (*name == 'I') {
7721	2544	93321	if (strEQ(name, "INIT")) {
7722	60	2484	if (PL_main_start)
7748	46466	8649	return newCONSTSUB_flags(stash, name, name ? strlen(name) : 0, 0, sv);
7776	2567376	0	const char *const file = CopFILE(PL_curcop);
7780	1740048	827328	if (IN_PERL_RUNTIME) {
7786	5	1740043	PL_compiling.cop_warnings = DUP_WARNINGS(PL_curcop->cop_warnings);
	1	4	PL_compiling.cop_warnings = DUP_WARNINGS(PL_curcop->cop_warnings);
7790	903338	1664038	CopLINE_set(PL_curcop, PL_parser ? PL_parser->copline : NOLINE);
7795	2469704	97672	if (stash) {
7801	2557092	10284	if (sv) SAVEFREESV(sv);
7807	2567376	0	cv = newXS_len_flags(name, len,
	2557092	10284	cv = newXS_len_flags(name, len,
	2556524	568	cv = newXS_len_flags(name, len,
7827	750017	0	return newXS_len_flags(
7843	38343	4177504	GV * const gv = gv_fetchpvn(
	0	38343	GV * const gv = gv_fetchpvn(
	38343	4177504	GV * const gv = gv_fetchpvn(
	0	38343	GV * const gv = gv_fetchpvn(
7849	0	4215847	if (!subaddr)
7852	4177504	38343	if ((cv = (name ? GvCV(gv) : NULL))) {
	3349	4212498	if ((cv = (name ? GvCV(gv) : NULL))) {
7853	3094	255	if (GvCVGEN(gv)) {
7858	213	42	else if (CvROOT(cv) || CvXSUB(cv) || GvASSUMECV(gv)) {
	213	0	else if (CvROOT(cv) || CvXSUB(cv) || GvASSUMECV(gv)) {
	0	213	else if (CvROOT(cv) || CvXSUB(cv) || GvASSUMECV(gv)) {
7862	36	6	if (CvCONST(cv) || ckWARN(WARN_REDEFINE)) {
	11	25	if (CvCONST(cv) || ckWARN(WARN_REDEFINE)) {
7873	213	4215633	if (cv) /* must reuse cv if autoloaded */
7877	4177290	38343	if (name) {
7880	4177290	0	if (HvENAME_HEK(GvSTASH(gv)))
	4177290	0	if (HvENAME_HEK(GvSTASH(gv)))
	0	4177290	if (HvENAME_HEK(GvSTASH(gv)))
	1	4177289	if (HvENAME_HEK(GvSTASH(gv)))
	4177289	0	if (HvENAME_HEK(GvSTASH(gv)))
	0	4177289	if (HvENAME_HEK(GvSTASH(gv)))
	4177290	0	if (HvENAME_HEK(GvSTASH(gv)))
7881	2	4177288	gv_method_changed(gv); /* newXS */
7884	38343	4177503	if (!name)
7894	4177503	38343	if (name)
7898	2600341	1615505	if (flags & XS_DYNAMIC_FILENAME) {
7915	19034	247475	if (!fake && HvENAME_HEK(GvSTASH(gv)))
	19034	0	if (!fake && HvENAME_HEK(GvSTASH(gv)))
	19034	0	if (!fake && HvENAME_HEK(GvSTASH(gv)))
	0	19034	if (!fake && HvENAME_HEK(GvSTASH(gv)))
	0	19034	if (!fake && HvENAME_HEK(GvSTASH(gv)))
	19034	0	if (!fake && HvENAME_HEK(GvSTASH(gv)))
	0	19034	if (!fake && HvENAME_HEK(GvSTASH(gv)))
	19034	0	if (!fake && HvENAME_HEK(GvSTASH(gv)))
7916	4	19030	gv_method_changed(gv);
7917	2	266507	if (SvFAKE(gv)) {
7923	266509	0	CvFILE_set_from_cop(cv, PL_curcop);
7942	898454	0	return newXS_len_flags(
7962	141	0	if (PL_parser && PL_parser->error_count) {
	4	137	if (PL_parser && PL_parser->error_count) {
7969	124	13	: gv_fetchpvs("STDOUT", GV_ADD|GV_NOTQUAL, SVt_PVFM);
7972	7	130	if ((cv = GvFORM(gv))) {
7973	2	5	if (ckWARN(WARN_REDEFINE)) {
7975	2	0	if (PL_parser && PL_parser->copline != NOLINE)
	2	0	if (PL_parser && PL_parser->copline != NOLINE)
7977	1	1	if (o) {
7992	137	0	CvFILE_set_from_cop(cv, PL_curcop);
7999	0	137	CvSTART(cv) = LINKLIST(CvROOT(cv));
8012	141	0	if (PL_parser)
8014	141	0	LEAVE_SCOPE(floor);
8107	2653345	5513001	if (o->op_type == OP_PADANY) {
8112	8	5512993	else if ((o->op_type == OP_RV2AV || o->op_type == OP_PADAV)) {
8122	909588	203067	if (type == OP_MAPSTART || type == OP_GREPSTART || type == OP_SORT)
	18725	890863	if (type == OP_MAPSTART || type == OP_GREPSTART || type == OP_SORT)
8134	528638	4764465	if (o->op_type == OP_PADANY) {
8139	8	4764457	else if ((o->op_type == OP_RV2HV || o->op_type == OP_PADHV)) {
8149	97	12077087	if (o->op_type == OP_PADANY) {
8164	44023382	9026162	if (o->op_type == OP_PADANY) {
8194	699920	236330	if (!(o->op_flags & OPf_STACKED) /* Not an assignment */
8195	120734	579186	&& (o->op_type == OP_BIT_OR
8197	3697	117037	|| o->op_type == OP_BIT_XOR))
8201	16	582867	if ((OP_IS_NUMCOMPARE(left->op_type) &&
	0	16	if ((OP_IS_NUMCOMPARE(left->op_type) &&
8202	12	582855	(left->op_flags & OPf_PARENS) == 0) ||
8203	12	0	(OP_IS_NUMCOMPARE(right->op_type) &&
8205	20	8	Perl_ck_warner(aTHX_ packWARN(WARN_PRECEDENCE),
8208	8	12	: o->op_type == OP_BIT_AND ? '&' : '^'
8218	58153	0	return o->op_type == OP_RV2SV && o->op_flags & OPf_KIDS
8219	58153	0	&& (kid = cUNOPx(o)->op_first)
8220	57936	217	&& kid->op_type == OP_GV
8221	58153	330087	&& strEQ(GvNAME(cGVOPx_gv(kid)), "[");
	24	57912	&& strEQ(GvNAME(cGVOPx_gv(kid)), "[");
	57912	24	&& strEQ(GvNAME(cGVOPx_gv(kid)), "[");
8228	334852	587082	if (ckWARN(WARN_SYNTAX)) {
8233	16	0	&& kid->op_sibling && kid->op_sibling->op_type == OP_CONST
	8	8	&& kid->op_sibling && kid->op_sibling->op_type == OP_CONST
8235	53388	281456	|| ( kid->op_type == OP_CONST
8236	53388	0	&& (kid = kid->op_sibling) && is_dollar_bracket(aTHX_ kid))
	8	53380	&& (kid = kid->op_sibling) && is_dollar_bracket(aTHX_ kid))
8238	0	16	Perl_warner(aTHX_ packWARN(WARN_SYNTAX),
8239	0	0	"$[ used in %s (did you mean $] ?)", OP_DESC(o));
8252	3651345	3824844	if (kid->op_type == OP_CONCAT && !(kid->op_private & OPpTARGET_MY) &&
	3651344	1	if (kid->op_type == OP_CONCAT && !(kid->op_private & OPpTARGET_MY) &&
	3651343	1	if (kid->op_type == OP_CONCAT && !(kid->op_private & OPpTARGET_MY) &&
8265	1538332	13115	if (o->op_flags & OPf_KIDS) {
8272	1538332	0	if (newop) {
8274	1538318	14	if (newop->op_sibling || !(PL_opargs[type] & OA_RETSCALAR) ||
	298873	1239445	if (newop->op_sibling || !(PL_opargs[type] & OA_RETSCALAR) ||
8275	298873	0	type == OP_PADAV || type == OP_PADHV ||
8276	298873	0	type == OP_RV2AV || type == OP_RV2HV)
8299	188219	0	if (o->op_flags & OPf_KIDS) {
8314	0	1	Perl_croak(aTHX_ "%s argument is not a HASH or ARRAY element or slice",
8315	0	0	OP_DESC(o));
8317	24	188194	if (kid->op_private & OPpLVAL_INTRO)
8342	2339	35	if (o->op_flags & OPf_KIDS) {
8344	0	2339	if (cLISTOPo->op_first->op_type == OP_STUB) {
8356	1661	678	if (kid->op_type == OP_RV2GV)
8370	325737	11	if (o->op_flags & OPf_KIDS) {
8374	187160	138577	if (kid->op_type == OP_LINESEQ || kid->op_type == OP_STUB) {
8416	24	138564	if (o->op_private & OPpEVAL_BYTES) o->op_targ &= ~HINT_UTF8;
8417	6461	132127	if ((PL_hints & HINT_LOCALIZE_HH) != 0
8418	6461	0	&& !(o->op_private & OPpEVAL_COPHH) && GvHV(PL_hintgv)) {
	6461	0	&& !(o->op_private & OPpEVAL_COPHH) && GvHV(PL_hintgv)) {
8425	138564	24	if (!(o->op_private & OPpEVAL_BYTES)
	138562	2	if (!(o->op_private & OPpEVAL_BYTES)
	138540	2	if (!(o->op_private & OPpEVAL_BYTES)
	764	0	if (!(o->op_private & OPpEVAL_BYTES)
8426	138540	22	&& FEATURE_UNIEVAL_IS_ENABLED)
	2	0	&& FEATURE_UNIEVAL_IS_ENABLED)
	764	137776	&& FEATURE_UNIEVAL_IS_ENABLED)
	0	2	&& FEATURE_UNIEVAL_IS_ENABLED)
	764	0	&& FEATURE_UNIEVAL_IS_ENABLED)
	718	46	&& FEATURE_UNIEVAL_IS_ENABLED)
8453	256	7610	if (o->op_flags & OPf_STACKED) {
8457	256	0	if (kid->op_type == OP_RV2GV)
8473	366429	0	if (o->op_flags & OPf_KIDS) {
8475	11391	355038	if (kid->op_type == OP_ENTERSUB) {
8477	2	11389	if (kid->op_type != OP_RV2CV
8478	2	0	&& !(PL_parser && PL_parser->error_count))
	2	0	&& !(PL_parser && PL_parser->error_count))
8479	0	2	Perl_croak(aTHX_ "%s argument is not a subroutine name",
8480	0	0	OP_DESC(o));
8483	15216	339822	else if (kid->op_type == OP_AELEM)
8485	1	339821	else if (kid->op_type != OP_HELEM)
8486	0	1	Perl_croak(aTHX_ "%s argument is not a HASH or ARRAY element or a subroutine",
8487	0	0	OP_DESC(o));
8502	12077463	20367060	if (o->op_type == OP_RV2CV)
8505	24386616	8057907	if (kid->op_type == OP_CONST) {
8511	136	24386480	if (SvROK(kidsv) && SvREADONLY(kidsv)) {
8518	0	0	if (type > SVt_PVMG)
8522	0	0	if (type != SVt_PVAV)
8526	0	4	if (type != SVt_PVHV)
8530	0	132	if (type != SVt_PVCV)
8534	0	136	if (badtype)
8538	24385975	505	if (SvTYPE(kidsv) == SVt_PVAV) return o;
8539	18713548	5672427	if ((o->op_private & HINT_STRICT_REFS) && (kid->op_private & OPpCONST_BARE)) {
	9005941	9707607	if ((o->op_private & HINT_STRICT_REFS) && (kid->op_private & OPpCONST_BARE)) {
8555	2	9005939	if (badthing)
8568	12668850	11717123	iscv = (o->op_type == OP_RV2CV) * 2;
8570	12668850	11717123	gv = gv_fetchsv(kidsv,
	4287607	8381243	gv = gv_fetchsv(kidsv,
	700950	3586657	gv = gv_fetchsv(kidsv,
	511938	189012	gv = gv_fetchsv(kidsv,
8581	39	24385926	} while (!gv && !(kid->op_private & OPpCONST_ENTERED) && !iscv++);
	0	39	} while (!gv && !(kid->op_private & OPpCONST_ENTERED) && !iscv++);
	0	0	} while (!gv && !(kid->op_private & OPpCONST_ENTERED) && !iscv++);
8582	24385926	39	if (gv) {
8612	336733	25200	if (o->op_flags & OPf_REF) {
8615	329915	6818	else if (o->op_flags & OPf_KIDS && cUNOPo->op_first->op_type != OP_STUB) {
	329914	1	else if (o->op_flags & OPf_KIDS && cUNOPo->op_first->op_type != OP_STUB) {
8619	67737	262177	if (kidtype == OP_CONST && (kid->op_private & OPpCONST_BARE)
	25200	42537	if (kidtype == OP_CONST && (kid->op_private & OPpCONST_BARE)
8620	25198	2	&& !kid->op_folded) {
8630	553	304163	if ((PL_hints & HINT_FILETEST_ACCESS) && OP_IS_FILETEST_ACCESS(o->op_type))
	140	413	if ((PL_hints & HINT_FILETEST_ACCESS) && OP_IS_FILETEST_ACCESS(o->op_type))
8632	107	304609	if (PL_check[kidtype] == Perl_ck_ftst
8633	107	0	&& kidtype != OP_STAT && kidtype != OP_LSTAT) {
8636	5	102	if (kidtype == OP_FTTTY && (
	5	0	if (kidtype == OP_FTTTY && (
8649	2	6817	if (type == OP_FTTTY)
8667	256	18479508	if (o->op_flags & OPf_STACKED) {
8668	256	0	if ((oa & OA_OPTIONAL) && (oa >> 4) && !((oa >> 4) & OA_OPTIONAL))
	256	0	if ((oa & OA_OPTIONAL) && (oa >> 4) && !((oa >> 4) & OA_OPTIONAL))
	256	0	if ((oa & OA_OPTIONAL) && (oa >> 4) && !((oa >> 4) & OA_OPTIONAL))
8674	17931885	547879	if (o->op_flags & OPf_KIDS) {
8681	14625792	3306093	if (kid->op_type == OP_PUSHMARK ||
	7106459	7519333	if (kid->op_type == OP_PUSHMARK ||
8682	5228385	1878074	(kid->op_type == OP_NULL && kid->op_targ == OP_PUSHMARK))
8687	218062	17713823	if (kid && kid->op_type == OP_COREARGS) {
	17713522	301	if (kid && kid->op_type == OP_COREARGS) {
8689	593	301	while (oa) {
8691	147	446	if (oa & OA_OPTIONAL) optional = TRUE;
8694	139	162	if (optional) o->op_private |= numargs;
8698	25642011	12795386	while (oa) {
8699	18683974	6958037	if (oa & OA_OPTIONAL || (oa & 7) == OA_LIST) {
	9340931	9343043	if (oa & OA_OPTIONAL || (oa & 7) == OA_LIST) {
8700	5136442	11162526	if (!kid && !seen_optional && PL_opargs[type] & OA_DEFGV)
	364244	4772198	if (!kid && !seen_optional && PL_opargs[type] & OA_DEFGV)
	250	363994	if (!kid && !seen_optional && PL_opargs[type] & OA_DEFGV)
8704	20505817	5136194	if (!kid) break;
8717	12875727	1125206	if (numargs == 1 && !(oa >> 4)
	11743334	1132393	if (numargs == 1 && !(oa >> 4)
8718	2	11743332	&& kid->op_type == OP_LIST && type != OP_SCALAR)
8725	4531024	0	if (oa < 16) {
8733	637323	243599	if ((type == OP_PUSH || type == OP_UNSHIFT)
8734	14	637309	&& !kid->op_sibling)
8739	16	880906	if (kid->op_type == OP_CONST &&
	10	6	if (kid->op_type == OP_CONST &&
8756	6	880906	else if (kid->op_type == OP_CONST
8757	3	3	&& ( !SvROK(cSVOPx_sv(kid))
8758	0	3	|| SvTYPE(SvRV(cSVOPx_sv(kid))) != SVt_PVAV )
8762	880860	62	if (kid->op_type == OP_RV2AV || kid->op_type == OP_PADAV)
8767	9	321294	if (kid->op_type == OP_CONST &&
	6	3	if (kid->op_type == OP_CONST &&
8784	3	321294	else if (kid->op_type != OP_RV2HV && kid->op_type != OP_PADHV)
8799	294840	502	if (kid->op_type != OP_GV && kid->op_type != OP_RV2GV) {
8800	123537	171303	if (kid->op_type == OP_CONST &&
	123508	29	if (kid->op_type == OP_CONST &&
8805	62476	61032	if (!(o->op_private & 1) && /* if not unop */
	10987	51489	if (!(o->op_private & 1) && /* if not unop */
8815	0	171332	else if (kid->op_type == OP_READLINE) {
8817	0	0	bad_type_pv(numargs, "HANDLE", OP_DESC(o), 0, kid);
	0	0	bad_type_pv(numargs, "HANDLE", OP_DESC(o), 0, kid);
8825	69392	101940	if (is_handle_constructor(o,numargs)) {
8837	63081	6311	if (kid->op_type == OP_PADSV) {
8840	63081	0	name = SvPV_const(namesv, len);
8843	1027	5284	else if (kid->op_type == OP_RV2SV
8844	291	736	&& kUNOP->op_first->op_type == OP_GV)
8849	281	10	name_utf8 = GvNAMEUTF8(gv) ? SVf_UTF8 : 0;
8851	2831	3189	else if (kid->op_type == OP_AELEM
8857	2831	0	if (op) {
8861	696	2135	"[]" : "{}";
8862	2803	28	if (((op->op_type == OP_RV2AV) ||
8863	2803	0	(op->op_type == OP_RV2HV)) &&
8864	2223	580	(firstop = ((UNOP*)op)->op_first) &&
8868	2223	0	if (gv)
8875	28	580	else if (op->op_type == OP_PADAV
8878	28	0	const char * const padname =
8880	28	0	if (padname)
8887	2251	580	if (tmpstr) {
8888	2251	0	name = SvPV_const(tmpstr, len);
8893	580	2251	if (!name) {
8900	66203	3189	if (name) {
8904	65623	580	if (want_dollar && *name != '$')
	2542	63081	if (want_dollar && *name != '$')
8909	13	66190	if ( name_utf8 ) SvUTF8_on(namesv);
8923	35755	23957	if ((type == OP_UNDEF || type == OP_POS)
8924	35755	0	&& numargs == 1 && !(oa >> 4)
	35755	0	&& numargs == 1 && !(oa >> 4)
8925	2	35753	&& kid->op_type == OP_LIST)
8941	125	17931455	if (kid)
8942	0	125	return too_many_arguments_pv(o,OP_DESC(o), 0);
	0	0	return too_many_arguments_pv(o,OP_DESC(o), 0);
8946	55212	492667	else if (PL_opargs[type] & OA_DEFGV) {
8958	5628861	12795261	if (oa) {
8959	907507	5628861	while (oa & OA_OPTIONAL)
8961	6	5628855	if (oa && oa != OA_LIST)
8962	0	6	return too_few_arguments_pv(o,OP_DESC(o), 0);
	0	0	return too_few_arguments_pv(o,OP_DESC(o), 0);
8977	4357	0	if ((o->op_flags & OPf_KIDS) && !cLISTOPo->op_first->op_sibling)
	260	4097	if ((o->op_flags & OPf_KIDS) && !cLISTOPo->op_first->op_sibling)
8980	4352	5	if (core) gv = NULL;
8981	11	4341	else if (!((gv = gv_fetchpvs("glob", GV_NOTQUAL, SVt_PVCV))
	0	11	else if (!((gv = gv_fetchpvs("glob", GV_NOTQUAL, SVt_PVCV))
8982	11	0	&& GvCVu(gv) && GvIMPORTED_CV(gv)))
	11	0	&& GvCVu(gv) && GvIMPORTED_CV(gv)))
8986	1180	3161	gv = gvp ? *gvp : NULL;
8989	1191	3166	if (gv && GvCVu(gv) && GvIMPORTED_CV(gv)) {
	1191	0	if (gv && GvCVu(gv) && GvIMPORTED_CV(gv)) {
	23	1168	if (gv && GvCVu(gv) && GvIMPORTED_CV(gv)) {
	23	0	if (gv && GvCVu(gv) && GvIMPORTED_CV(gv)) {
9015	3163	1171	if (!PL_globhook) {
9037	234100	182482	const OPCODE type = o->op_type == OP_GREPSTART ? OP_GREPWHILE : OP_MAPWHILE;
9045	203067	213515	if (o->op_flags & OPf_STACKED) {
9047	1	203066	if (kid->op_type != OP_SCOPE && kid->op_type != OP_LEAVE)
9052	234100	182481	if (type == OP_MAPWHILE)
9057	416581	0	if (PL_parser && PL_parser->error_count)
	416581	0	if (PL_parser && PL_parser->error_count)
9060	0	416581	if (kid->op_type != OP_NULL)
9069	88567	328014	gwop->op_other = LINKLIST(kid);
9072	10	416571	if (offset == NOT_IN_PAD || PAD_COMPNAME_FLAGS_isOUR(offset)) {
	1	9	if (offset == NOT_IN_PAD || PAD_COMPNAME_FLAGS_isOUR(offset)) {
9082	883575	416581	for (kid = kid->op_sibling; kid; kid = kid->op_sibling)
9093	31621	0	if (o->op_flags & OPf_KIDS) {
9095	31621	0	if (kid)
9097	31617	4	if (kid && kid->op_type == OP_CONST) {
	17232	14385	if (kid && kid->op_type == OP_CONST) {
9100	15	17217	if ((!SvPOK(sv) || SvNIOKp(sv)) && SvOK(sv) && !SvROK(sv)) {
	2	13	if ((!SvPOK(sv) || SvNIOKp(sv)) && SvOK(sv) && !SvROK(sv)) {
	1	1	if ((!SvPOK(sv) || SvNIOKp(sv)) && SvOK(sv) && !SvROK(sv)) {
	0	1	if ((!SvPOK(sv) || SvNIOKp(sv)) && SvOK(sv) && !SvROK(sv)) {
	12	2	if ((!SvPOK(sv) || SvNIOKp(sv)) && SvOK(sv) && !SvROK(sv)) {
9106	1	17231	if (SvOK(sv)) fbm_compile(sv, 0);
	1	0	if (SvOK(sv)) fbm_compile(sv, 0);
	0	1	if (SvOK(sv)) fbm_compile(sv, 0);
9131	1450937	12795	if ((o->op_flags & OPf_KIDS)) {
9161	37735	6	if (o->op_flags & OPf_KIDS) {
9163	2335	35400	if (kid->op_type == OP_RV2GV) kid->op_private |= OPpALLOW_FAKE;
9196	0	635987	if (!kid) {
9200	635987	0	if (kid->op_type == OP_PUSHMARK)
9202	635080	907	if (kid && o->op_flags & OPf_STACKED)
	188806	446274	if (kid && o->op_flags & OPf_STACKED)
9204	446274	907	else if (kid && !kid->op_sibling) { /* print HANDLE; */
	213293	232981	else if (kid && !kid->op_sibling) { /* print HANDLE; */
9205	65358	147935	if (kid->op_type == OP_CONST && kid->op_private & OPpCONST_BARE
	12	65346	if (kid->op_type == OP_CONST && kid->op_private & OPpCONST_BARE
9206	8	4	&& !kid->op_folded) {
9215	915	635072	if (!kid)
9218	151194	484793	if (o->op_type == OP_PRTF) return modkids(listkids(o), OP_PRTF);
9227	362	121	if (0 == (o->op_flags & OPf_SPECIAL)) {
9237	11	351	if (first->op_type == OP_MATCH) {
9241	6	356	if (second->op_type == OP_MATCH) {
9260	768492	9645743	if ((PL_opargs[kid->op_type] & OA_TARGLEX)
9261	683599	84893	&& !(kid->op_flags & OPf_STACKED)
9265	683393	206	&& !PL_madskills
9271	681953	1440	if (kkid && kkid->op_type == OP_PADSV
	550706	131247	if (kkid && kkid->op_type == OP_PADSV
9272	303561	247145	&& !(kkid->op_private & OPpLVAL_INTRO))
9285	9917949	192725	if (kid->op_sibling) {
9289	3007920	6910029	if ((kkid->op_type == OP_PADSV ||
	5	3007915	if ((kkid->op_type == OP_PADSV ||
9290	5	0	(kkid->op_type == OP_LIST &&
9294	4602539	2307495	&& (kkid->op_private & OPpLVAL_INTRO)
9295	32	4602507	&& SvPAD_STATE(*av_fetch(PL_comppad_name, kkid->op_targ, FALSE))) {
9329	2126606	236796	if (o->op_type != OP_QR && PL_compcv) {
	2126559	47	if (o->op_type != OP_QR && PL_compcv) {
9331	53	2126506	if (offset != NOT_IN_PAD && !(PAD_COMPNAME_FLAGS_isOUR(offset))) {
	50	3	if (offset != NOT_IN_PAD && !(PAD_COMPNAME_FLAGS_isOUR(offset))) {
9336	1678186	685216	if (o->op_type == OP_MATCH || o->op_type == OP_QR)
9348	6116044	35994	if (kid->op_type == OP_CONST) {
9351	6055369	60675	if (!(strchr(method, ':') || strchr(method, '\''))) {
	6055369	0	if (!(strchr(method, ':') || strchr(method, '\''))) {
9353	6055369	0	if (!SvIsCOW_shared_hash(sv)) {
	6055369	0	if (!SvIsCOW_shared_hash(sv)) {
9354	112	6055257	sv = newSVpvn_share(method, SvUTF8(sv) ? -(I32)SvCUR(sv) : (I32)SvCUR(sv), 0);
9387	98525	0	if (table) {
9389	6	98519	if (svp && *svp) {
	6	0	if (svp && *svp) {
9391	6	0	const char *d = SvPV_const(*svp, len);
9400	0	98525	if (svp && *svp) {
	0	0	if (svp && *svp) {
9402	0	0	const char *d = SvPV_const(*svp, len);
9410	27123	71402	if (o->op_type == OP_BACKTICK) {
9411	0	27123	if (!(o->op_flags & OPf_KIDS)) {
9430	11395	60007	if ((last->op_type == OP_CONST) && /* The bareword. */
9431	1	11394	(last->op_private & OPpCONST_BARE) &&
9432	1	0	(last->op_private & OPpCONST_STRICT) &&
9433	1	0	(oa = first->op_sibling) && /* The fh. */
9434	1	0	(oa = oa->op_sibling) && /* The mode. */
9435	1	0	(oa->op_type == OP_CONST) &&
9436	1	0	SvPOK(((SVOP*)oa)->op_sv) &&
9437	1	0	(mode = SvPVX_const(((SVOP*)oa)->op_sv)) &&
9438	1	0	mode[0] == '>' && mode[1] == '&' && /* A dup open. */
	1	0	mode[0] == '>' && mode[1] == '&' && /* A dup open. */
9450	27340	78129	if (cBINOPo->op_first->op_flags & OPf_PARENS) {
9467	2868833	2	if (o->op_flags & OPf_KIDS) { /* Shall we supply missing .pm? */
9470	2858117	10716	if (kid->op_type == OP_CONST && (kid->op_private & OPpCONST_BARE)) {
	2778518	79599	if (kid->op_type == OP_CONST && (kid->op_private & OPpCONST_BARE)) {
9477	2778518	0	if (was_readonly) {
9480	2778518	0	if (SvIsCOW(sv)) sv_force_normal_flags(sv, 0);
9485	43065239	2778518	for (; s < end; s++) {
9486	5160053	37905186	if (*s == ':' && s[1] == ':') {
	5160053	0	if (*s == ':' && s[1] == ':') {
9498	2868830	5	if (!(o->op_flags & OPf_SPECIAL)) { /* Wasn't written as CORE::require */
9501	0	2868830	if (!(gv && GvCVu(gv) && GvIMPORTED_CV(gv))) {
	0	0	if (!(gv && GvCVu(gv) && GvIMPORTED_CV(gv))) {
	0	0	if (!(gv && GvCVu(gv) && GvIMPORTED_CV(gv))) {
	0	0	if (!(gv && GvCVu(gv) && GvIMPORTED_CV(gv))) {
9503	256	2868574	gv = gvp ? *gvp : NULL;
9507	256	2868579	if (gv && GvCVu(gv) && GvIMPORTED_CV(gv)) {
	256	0	if (gv && GvCVu(gv) && GvIMPORTED_CV(gv)) {
	256	0	if (gv && GvCVu(gv) && GvIMPORTED_CV(gv)) {
	256	0	if (gv && GvCVu(gv) && GvIMPORTED_CV(gv)) {
9509	254	2	if (o->op_flags & OPf_KIDS) {
9540	23	3144933	if (CvLVALUE(PL_compcv)) {
9541	22	23	for (; kid; kid = kid->op_sibling)
9556	18414	0	if (o->op_flags & OPf_KIDS) {
9558	17649	765	if (kid && kid->op_sibling) {
	1318	16331	if (kid && kid->op_sibling) {
9567	16331	765	if (kid && kid->op_type == OP_RV2GV)
	12289	4042	if (kid && kid->op_type == OP_RV2GV)
9580	1409487	194087	if (!(o->op_flags & OPf_KIDS)) {
9583	1408825	662	if (!CvUNIQUE(PL_compcv)) {
9611	2477	104160	PL_hints & HINT_LOCALIZE_HH ? GvHV(PL_hintgv) : NULL;
9616	2477	104160	if (hinthv) {
9618	7	2470	if (svp) {
9619	7	0	const I32 sorthints = (I32)SvIV(*svp);
9620	2	5	if ((sorthints & HINT_SORT_QUICKSORT) != 0)
9622	4	3	if ((sorthints & HINT_SORT_STABLE) != 0)
9627	18725	87912	if (o->op_flags & OPf_STACKED)
9630	17241	89396	if ((stacked = o->op_flags & OPf_STACKED)) { /* may have been cleared */
9633	14205	3036	if (kid->op_type == OP_SCOPE || kid->op_type == OP_LEAVE) {
9634	14205	0	LINKLIST(kid);
9635	4925	9280	if (kid->op_type == OP_LEAVE)
9649	107637	106637	for (kid = firstkid; kid; kid = kid->op_sibling) {
9652	17455	90182	if (stacked)
9675	7961	10764	if (!(have_scopeop = kid->op_type == OP_SCOPE)
9676	4925	3036	&& kid->op_type != OP_LEAVE)
9679	13240	2449	switch(kid->op_type) {
9683	10750	2490	if (!have_scopeop) goto padkids;
9689	1522	9228	if (kBINOP->op_first->op_type != OP_RV2SV
9690	12	1510	|| kBINOP->op_last ->op_type != OP_RV2SV)
9703	7641	4089	if (!ckWARN(WARN_SYNTAX)) return;
9706	293	14989	if (kid->op_type == OP_PADSV) {
9708	73	220	if (SvCUR(name) == 2 && *SvPVX(name) == '$'
	73	0	if (SvCUR(name) == 2 && *SvPVX(name) == '$'
9709	73	0	&& (SvPVX(name)[1] == 'a' || SvPVX(name)[1] == 'b'))
9711	72	1	Perl_warner(aTHX_ packWARN(WARN_SYNTAX),
9716	7641	7641	} while ((kid = kid->op_sibling));
9720	1484	26	if (kUNOP->op_first->op_type != OP_GV)
9724	1484	0	if (GvSTASH(gv) != PL_curstash)
9727	1070	414	if (*gvname == 'a' && gvname[1] == '\0')
	0	1070	if (*gvname == 'a' && gvname[1] == '\0')
9729	414	0	else if (*gvname == 'b' && gvname[1] == '\0')
	414	0	else if (*gvname == 'b' && gvname[1] == '\0')
9737	1484	0	if (kUNOP->op_first->op_type != OP_GV)
9741	1484	0	if (GvSTASH(gv) != PL_curstash)
9744	414	1070	if ( descending
	414	0	if ( descending
	1070	0	if ( descending
	1484	0	if ( descending
9745	414	0	? !(*gvname == 'a' && gvname[1] == '\0')
9746	1070	0	: !(*gvname == 'b' && gvname[1] == '\0'))
9749	414	1070	if (descending)
9751	688	796	if (k->op_type == OP_NCMP)
9753	428	1056	if (k->op_type == OP_I_NCMP)
9772	0	133716	if (o->op_flags & OPf_STACKED)
9776	0	133716	if (kid->op_type != OP_NULL)
9780	133651	65	if (kid)
9787	91406	42310	if (kid->op_type != OP_MATCH || kid->op_flags & OPf_STACKED) {
	3	91403	if (kid->op_type != OP_MATCH || kid->op_flags & OPf_STACKED) {
9791	141	42172	if (cLISTOPo->op_first == cLISTOPo->op_last)
9800	2	133714	if (((PMOP *)kid)->op_pmflags & PMf_GLOBAL) {
9805	816	132900	if (!kid->op_sibling)
9811	118400	15316	if (!kid->op_sibling)
9821	1	133715	if (kid->op_sibling)
9822	0	1	return too_many_arguments_pv(o,OP_DESC(o), 0);
	0	0	return too_many_arguments_pv(o,OP_DESC(o), 0);
9834	331232	0	if (kid && kid->op_type == OP_MATCH) {
	2	331230	if (kid && kid->op_type == OP_MATCH) {
9835	2	0	if (ckWARN(WARN_SYNTAX)) {
9837	2	0	const SV *msg = re
9894	15	176	while (PadnameOUTER(name)) {
9901	99	77	if (!PadnameIsSTATE(name) && SvMAGICAL(name)) {
	96	3	if (!PadnameIsSTATE(name) && SvMAGICAL(name)) {
9917	0	24713349	if (flags & ~(RV2CVOPCV_MARK_EARLY|RV2CVOPCV_RETURN_NAME_GV))
9919	16398494	8314855	if (cvop->op_type != OP_RV2CV)
9921	15602452	796042	if (cvop->op_private & OPpENTERSUB_AMPER)
9923	15602452	0	if (!(cvop->op_flags & OPf_KIDS))
9929	15254309	2	cv = GvCVu(gv);
9930	2927306	12327005	if (!cv) {
9931	1109250	1818056	if (flags & RV2CVOPCV_MARK_EARLY)
9938	265	0	if (!SvROK(rv))
9951	12327380	0	if (SvTYPE((SV*)cv) != SVt_PVCV)
9953	3725121	8602259	if (flags & RV2CVOPCV_RETURN_NAME_GV) {
9954	67681	3657440	if (!CvANON(cv) || !gv)
	133	67548	if (!CvANON(cv) || !gv)
9981	5687513	8314848	if (!aop->op_sibling)
9983	20472564	14002361	for (aop = aop->op_sibling; aop->op_sibling; aop = aop->op_sibling) {
10031	289996	6	if (SvTYPE(protosv) == SVt_PVCV ? !SvPOK(protosv) : !SvOK(protosv))
	1	5	if (SvTYPE(protosv) == SVt_PVCV ? !SvPOK(protosv) : !SvOK(protosv))
	1	0	if (SvTYPE(protosv) == SVt_PVCV ? !SvPOK(protosv) : !SvOK(protosv))
	0	1	if (SvTYPE(protosv) == SVt_PVCV ? !SvPOK(protosv) : !SvOK(protosv))
	2	290000	if (SvTYPE(protosv) == SVt_PVCV ? !SvPOK(protosv) : !SvOK(protosv))
10034	289995	5	if (SvTYPE(protosv) == SVt_PVCV)
10035	289995	0	proto = CvPROTO(protosv), proto_len = CvPROTOLEN(protosv);
	289995	0	proto = CvPROTO(protosv), proto_len = CvPROTOLEN(protosv);
	4	289991	proto = CvPROTO(protosv), proto_len = CvPROTOLEN(protosv);
	289995	0	proto = CvPROTO(protosv), proto_len = CvPROTOLEN(protosv);
	289995	0	proto = CvPROTO(protosv), proto_len = CvPROTOLEN(protosv);
	4	289991	proto = CvPROTO(protosv), proto_len = CvPROTOLEN(protosv);
10036	5	0	else proto = SvPV(protosv, proto_len);
10040	290000	0	if (!aop->op_sibling)
10044	651917	290000	for (cvop = aop; cvop->op_sibling; cvop = cvop->op_sibling) ;
10045	707772	289991	while (aop != cvop) {
10056	5	707767	if (proto >= proto_end)
10066	11	610	if (proto[1] && !strchr(";@%", proto[1]))
	7	4	if (proto[1] && !strchr(";@%", proto[1]))
10081	1	1337	if (o3->op_type != OP_REFGEN && o3->op_type != OP_UNDEF)
10082	0	1	bad_type_gv(arg,
10090	2392	7	if (o3->op_type == OP_RV2GV)
10092	54	2338	else if (o3->op_type == OP_CONST)
10094	4	2334	else if (o3->op_type == OP_ENTERSUB) {
10097	4	0	if (gvop && gvop->op_type == OP_NULL) {
	4	0	if (gvop && gvop->op_type == OP_NULL) {
10099	4	0	if (gvop) {
10100	4	4	for (; gvop->op_sibling; gvop = gvop->op_sibling)
10102	4	0	if (gvop &&
	2	2	if (gvop &&
10103	2	0	(gvop->op_private & OPpENTERSUB_NOPAREN) &&
10104	2	0	(gvop = ((UNOP*)gvop)->op_first) &&
10129	10	0	if (o3->op_type == OP_RV2AV ||
10130	10	0	o3->op_type == OP_PADAV ||
10131	10	0	o3->op_type == OP_RV2HV ||
10147	25594	0	if (contextclass++ == 0) {
10149	25594	0	if (!e || e == proto)
10157	6	0	if (contextclass) {
10161	21	5	while (*--p != '[')
10163	4	17	if (*p == '$'
10164	3	1	&& Perl_op_lvalue_flags(aTHX_
10176	2	1	if (o3->op_type == OP_RV2GV)
10178	0	2	if (!contextclass)
10182	4	2	if (o3->op_type == OP_ENTERSUB)
10184	1	3	if (!contextclass)
10189	6673	19241	if (o3->op_type == OP_RV2SV ||
10190	6547	126	o3->op_type == OP_PADSV ||
10191	6545	2	o3->op_type == OP_HELEM ||
10194	2	6543	if (!contextclass) {
10196	1	1	if (Perl_op_lvalue_flags(aTHX_
10205	227	6266	if (o3->op_type == OP_RV2AV ||
10208	0	227	if (!contextclass)
10212	5852	325	if (o3->op_type == OP_RV2HV ||
10215	1	5851	if (!contextclass)
10227	25588	384	if (contextclass && e) {
10234	12626	25980	if (contextclass)
10253	289991	0	if (aop == cvop && *proto == '_') {
	34	289957	if (aop == cvop && *proto == '_') {
10259	64134	225857	if (!optional && proto_end > proto &&
	32678	31456	if (!optional && proto_end > proto &&
10260	54	32624	(*proto != '@' && *proto != '%' && *proto != ';' && *proto != '_'))
	20	34	(*proto != '@' && *proto != '%' && *proto != ';' && *proto != '_'))
10297	3724384	2	if (SvTYPE(protosv) == SVt_PVCV ? SvPOK(protosv) : SvOK(protosv))
	1	1	if (SvTYPE(protosv) == SVt_PVCV ? SvPOK(protosv) : SvOK(protosv))
	1	0	if (SvTYPE(protosv) == SVt_PVCV ? SvPOK(protosv) : SvOK(protosv))
	1	0	if (SvTYPE(protosv) == SVt_PVCV ? SvPOK(protosv) : SvOK(protosv))
	289929	3434457	if (SvTYPE(protosv) == SVt_PVCV ? SvPOK(protosv) : SvOK(protosv))
10306	633	12	int opnum = SvTYPE(protosv) == SVt_PVCV ? 0 : (int)SvUV(protosv);
	0	633	int opnum = SvTYPE(protosv) == SVt_PVCV ? 0 : (int)SvUV(protosv);
10311	12	633	if (!opnum) {
10313	12	0	if (!aop->op_sibling)
10316	15	12	for (cvop = aop; cvop->op_sibling; cvop = cvop->op_sibling) ;
10320	3	9	if (aop != cvop)
10325	4	0	case 'F': return newSVOP(OP_CONST, 0,
10333	4	0	case 'P': return newSVOP(OP_CONST, 0,
	4	0	case 'P': return newSVOP(OP_CONST, 0,
	4	0	case 'P': return newSVOP(OP_CONST, 0,
	0	4	case 'P': return newSVOP(OP_CONST, 0,
10348	633	0	if (!aop->op_sibling)
10354	1503	633	for (cvop = aop;
10363	295	338	flags = OPf_SPECIAL * !(cvop->op_private & OPpENTERSUB_NOPAREN);
10365	134	499	if (aop == cvop) aop = NULL;
10368	3	630	if (opnum == OP_ENTEREVAL
10369	3	0	&& GvNAMELEN(namegv)==9 && strnEQ(GvNAME(namegv), "evalbytes", 9))
	3	0	&& GvNAMELEN(namegv)==9 && strnEQ(GvNAME(namegv), "evalbytes", 9))
10376	253	52	return aop ? newUNOP(opnum,flags,aop) : newOP(opnum,flags);
10378	24	72	if (aop) {
10387	4	92	: newOP(opnum,0);
10431	744	3724384	callmg = SvMAGICAL((SV*)cv) ? mg_find((SV*)cv, PERL_MAGIC_checkcall) : NULL;
10432	738	3724390	if (callmg) {
10472	2	692	if (ckfun == Perl_ck_entersub_args_proto_or_list && ckobj == (SV*)cv) {
10473	2	0	if (SvMAGICAL((SV*)cv))
10479	692	0	if (callmg->mg_flags & MGf_REFCOUNTED) {
10485	418	274	if (ckobj != (SV*)cv) {
10503	5978170	8314848	if (!aop->op_sibling)
10506	21126021	14293018	for (cvop = aop; cvop->op_sibling; cvop = cvop->op_sibling) ;
10508	3725118	10567900	namegv = cv ? (GV*)rv2cv_op_cv(cvop, RV2CVOPCV_RETURN_NAME_GV) : NULL;
10513	3752816	10540202	if (PERLDB_SUB && PL_curstash != PL_debstash)
	84470	3668346	if (PERLDB_SUB && PL_curstash != PL_debstash)
	36019	48451	if (PERLDB_SUB && PL_curstash != PL_debstash)
10515	5978165	8314853	if (cvop->op_type == OP_RV2CV) {
10518	8314848	5	} else if (cvop->op_type == OP_METHOD || cvop->op_type == OP_METHOD_NAMED) {
10519	2626845	5688003	if (aop->op_type == OP_CONST)
10521	0	5688003	else if (aop->op_type == OP_LIST) {
10523	0	0	if (sib && sib->op_type == OP_CONST)
	0	0	if (sib && sib->op_type == OP_CONST)
10528	10567900	3725118	if (!cv) {
10534	53	3725065	if (!namegv) { /* expletive! */
10544	2	51	if (!hek) return ck_entersub_args_list(o);;
10567	86581201	9130305	if (!SvREADONLY(sv) && !SvIsCOW(sv) && SvCANCOW(sv)) {
	0	86581201	if (!SvREADONLY(sv) && !SvIsCOW(sv) && SvCANCOW(sv)) {
	0	0	if (!SvREADONLY(sv) && !SvIsCOW(sv) && SvCANCOW(sv)) {
	0	0	if (!SvREADONLY(sv) && !SvIsCOW(sv) && SvCANCOW(sv)) {
	74169295	12411906	if (!SvREADONLY(sv) && !SvIsCOW(sv) && SvCANCOW(sv)) {
	8354089	65815206	if (!SvREADONLY(sv) && !SvIsCOW(sv) && SvCANCOW(sv)) {
	65815206	20765995	if (!SvREADONLY(sv) && !SvIsCOW(sv) && SvCANCOW(sv)) {
10581	46925	57	if (o->op_flags & OPf_KIDS) {
10584	4362	42563	if (kid->op_type == OP_NULL)
10586	46057	868	if (kid && kid->op_type == OP_CONST &&
	7189	38868	if (kid && kid->op_type == OP_CONST &&
	2648	4541	if (kid && kid->op_type == OP_CONST &&
10587	2647	1	(kid->op_private & OPpCONST_BARE) &&
10603	260394	0	if ((o->op_flags & OPf_KIDS) && (o->op_private == 4)) {
	21321	239073	if ((o->op_flags & OPf_KIDS) && (o->op_private == 4)) {
10606	21321	0	if (kid->op_type == OP_NULL)
10608	21321	0	if (kid)
10620	6667	22	if (o->op_flags & OPf_KIDS) {
10622	4795	1872	if (kid->op_type == OP_NULL && kid->op_sibling) kid = kid->op_sibling;
	4795	0	if (kid->op_type == OP_NULL && kid->op_sibling) kid = kid->op_sibling;
10623	6465	202	if (kid->op_type == OP_RV2GV) kid->op_private |= OPpALLOW_FAKE;
10632	321490	3	OP *kid = o->op_flags & OPf_KIDS ? cUNOPo->op_first : NULL;
10634	272762	48731	const unsigned array_type = orig_type == OP_EACH ? OP_AEACH
	26162	246600	const unsigned array_type = orig_type == OP_EACH ? OP_AEACH
10636	272762	48731	const unsigned ref_type = orig_type == OP_EACH ? OP_REACH
	26162	246600	const unsigned ref_type = orig_type == OP_EACH ? OP_REACH
10641	321490	3	if (kid) {
10651	63	6	if (kid->op_private == OPpCONST_BARE
10652	60	3	|| !SvROK(cSVOPx_sv(kid))
10653	60	0	|| ( SvTYPE(SvRV(cSVOPx_sv(kid))) != SVt_PVAV
10664	321240	253	return o->op_type == ref_type ? o : ck_fun(o);
10674	136157	195499	if (ckWARN(WARN_SYNTAX)) {
10675	136157	0	const OP *kid = o->op_flags & OPf_KIDS ? cLISTOPo->op_first : NULL;
10677	136157	0	if (kid) {
10684	2	1	name = varname(
10691	2	2	if (cUNOPx(kid)->op_first->op_type != OP_GV) break;
10694	2	0	if (!gv) break;
10695	1	1	name = varname(gv, hash?'%':'@', 0, NULL, 0, 1);
10701	5	2	if (name)
10702	3	2	Perl_warner(aTHX_ packWARN(WARN_SYNTAX),
10707	1	1	else if (hash)
10740	14417	2856149	if (modop->op_type != OP_SORT && modop->op_type != OP_REVERSE)
10744	14411	6	if (modop->op_sibling)
10748	14408	3	if (!(oright = cUNOPx(modop)->op_first->op_sibling)) return;
10750	5778	8630	if (modop->op_flags & OPf_STACKED) {
10762	14408	0	if (!oleft ||
	11956	2452	if (!oleft ||
10764	11956	0	|| oleft->op_sibling
10765	5192	6764	|| (oleft->op_private & OPpLVAL_INTRO)
10770	5142	50	if (oright->op_sibling)
10774	4721	421	if (oleft->op_type == OP_RV2AV) {
10775	2376	2345	if (oright->op_type != OP_RV2AV
10776	2376	0	|| !cUNOPx(oright)->op_first
10777	37	2339	|| cUNOPx(oright)->op_first->op_type != OP_GV
10778	37	0	|| cUNOPx(oleft )->op_first->op_type != OP_GV
10779	19	18	|| cGVOPx_gv(cUNOPx(oleft)->op_first) !=
10784	240	181	else if (oright->op_type != OP_PADAV
10785	230	10	|| oright->op_targ != oleft->op_targ
10799	19	230	if (oleft->op_type == OP_RV2AV && cUNOPx(oleft)->op_first)
	19	0	if (oleft->op_type == OP_RV2AV && cUNOPx(oleft)->op_first)
10830	23692144	479413	if (!o || o->op_opt)
	22487038	1205106	if (!o || o->op_opt)
10836	375634519	8734893	if (o && o->op_opt)
	13752145	361882374	if (o && o->op_opt)
10838	22487038	361882374	if (!o) {
10839	12569309	22487038	while (defer_ix >= 0)
10858	38116379	35096	if (!CopLABEL((COP*)o) && !PERLDB_NOOPT) {
	12953469	25162910	if (!CopLABEL((COP*)o) && !PERLDB_NOOPT) {
	164	12953305	if (!CopLABEL((COP*)o) && !PERLDB_NOOPT) {
10860	26547217	0	while (nextop && nextop->op_type == OP_NULL)
	1384143	25163074	while (nextop && nextop->op_type == OP_NULL)
10863	25163074	0	if (nextop && (nextop->op_type == OP_NEXTSTATE)) {
	953219	24209855	if (nextop && (nextop->op_type == OP_NEXTSTATE)) {
10907	7093765	0	if (o->op_next && o->op_next->op_type == OP_STRINGIFY) {
	2103470	4990295	if (o->op_next && o->op_next->op_type == OP_STRINGIFY) {
10908	125224	1978246	if (o->op_next->op_private & OPpTARGET_MY) {
10909	53027	72197	if (o->op_flags & OPf_STACKED) /* chained concats */
10922	166321	202994	if ((o->op_flags & OPf_WANT) != OPf_WANT_LIST) {
10927	1677485	46149940	if (o->op_targ == OP_NEXTSTATE
10943	63511372	24181	if (oldop && o->op_next) {
	63471171	40201	if (oldop && o->op_next) {
10988	4439297	23974237	if ( p->op_type == OP_GV
10989	4439297	0	&& (gv = cGVOPx_gv(p))
10990	2718350	1720947	&& GvNAMELEN_get(gv) == 1
10991	2468551	249799	&& *GvNAME_get(gv) == '_'
10992	2468546	5	&& GvSTASH(gv) == PL_defstash
10993	2468546	0	&& (rv2av = p->op_next)
10994	2316180	152366	&& rv2av->op_type == OP_RV2AV
10995	2021192	294988	&& !(rv2av->op_flags & OPf_REF)
10996	2021192	0	&& !(rv2av->op_private & (OPpLVAL_INTRO|OPpMAYBE_LVSUB))
10997	1993110	28082	&& ((rv2av->op_flags & OPf_WANT) == OPf_WANT_LIST)
10998	1993110	0	&& o->op_sibling == rv2av /* these two for Deparse */
10999	1993110	0	&& cUNOPx(rv2av)->op_first == p
11002	1105840	887270	if (q->op_type == OP_NULL)
11004	1305919	687191	if (q->op_type == OP_PUSHMARK) {
11010	27107615	1305919	if (!defav) {
11014	16571544	10536071	if (o->op_next != o->op_sibling)
11021	33927961	0	for (p = p->op_next; p; p = p->op_next) {
11022	3426024	30501937	if (p->op_type == OP_NULL)
11025	14745156	15756781	if (( p->op_type != OP_PADSV
11030	14550153	195003	|| (p->op_private & ~OPpLVAL_INTRO)
11036	1646999	12903154	if ( p->op_type == OP_PADAV
11037	1646999	0	&& p->op_next
11038	84615	1562384	&& p->op_next->op_type == OP_CONST
11039	84615	0	&& p->op_next->op_next
11040	77274	7341	&& p->op_next->op_next->op_type == OP_AELEM
11047	10455099	4087713	if (count == 0) {
11053	4080227	7486	if ((p->op_private & OPpLVAL_INTRO) != intro)
11059	2732390	1347837	if (p->op_targ != base + count)
11063	2420185	312205	if (gimme != (p->op_flags & OPf_WANT))
11068	1753033	11122251	if ( p->op_type != OP_PADSV
11070	1502223	250810	&& !(p->op_flags & OPf_REF)
11074	12624474	0	if (count >= OPpPADRANGE_COUNTMASK)
11079	12624474	0	if (intro && base >
11088	10207742	7669721	if (count < 1)
11105	186447	10021295	if (gimme == OPf_WANT_VOID) {
11106	186422	25	if (followop->op_type == OP_LIST
11107	186422	0	&& gimme == (followop->op_flags & OPf_WANT)
11108	185995	427	&& ( followop->op_next->op_type == OP_NEXTSTATE
11115	175117	10878	if ( oldoldop
11116	4500	170617	&& oldoldop->op_type == OP_PADRANGE
11117	4500	0	&& (oldoldop->op_flags & OPf_WANT) == OPf_WANT_VOID
11118	4500	0	&& (oldoldop->op_private & OPpLVAL_INTRO) == intro
11119	4500	0	&& !(oldoldop->op_flags & OPf_SPECIAL)
11131	4500	0	if (old_count < OPpPADRANGE_COUNTMASK - count) {
11146	198387	0	while ( ((p = followop->op_next))
11147	45777	152610	&& ( p->op_type == OP_PADSV
11150	12392	33385	&& (p->op_flags & OPf_WANT) == OPf_WANT_VOID
11151	12392	0	&& (p->op_private & OPpLVAL_INTRO) == intro
11152	12392	0	&& p->op_next
11155	12392	0	&& count < OPpPADRANGE_COUNTMASK
11166	4500	10202790	if (reuse) {
11185	9124137	1078653	o->op_flags = ((o->op_flags & ~(OPf_WANT|OPf_SPECIAL))
11193	17577672	1714658	if (o->op_type == OP_PADAV || o->op_next->op_type == OP_RV2AV) {
	3880201	13697471	if (o->op_type == OP_PADAV || o->op_next->op_type == OP_RV2AV) {
11195	1714658	3880201	o->op_next : o->op_next->op_next;
11197	5594859	0	if (pop && pop->op_type == OP_CONST &&
	2484700	3110159	if (pop && pop->op_type == OP_CONST &&
	2484700	0	if (pop && pop->op_type == OP_CONST &&
11198	1701896	782804	((PL_op = pop->op_next)) &&
11199	1108040	593856	pop->op_next->op_type == OP_AELEM &&
11201	1108023	17	(OPpLVAL_INTRO|OPpLVAL_DEFER|OPpDEREF|OPpMAYBE_LVSUB)) &&
11202	1108035	5	(i = SvIV(((SVOP*)pop)->op_sv)) <= 255 && i >= 0)
	1067792	40231	(i = SvIV(((SVOP*)pop)->op_sv)) <= 255 && i >= 0)
11205	2	1067790	if (cSVOPx(pop)->op_private & OPpCONST_STRICT)
11207	809474	258318	if (o->op_type == OP_GV)
11215	809474	258318	if (o->op_type == OP_GV) {
11217	0	809474	GvAVn(gv);
11226	5816177	7881294	if (o->op_next->op_type == OP_RV2SV) {
11227	5743527	72650	if (!(o->op_next->op_private & OPpDEREF)) {
11236	11022	7870272	else if (o->op_next->op_type == OP_READLINE
11237	25	10997	&& o->op_next->op_next->op_type == OP_CONCAT
11238	25	0	&& (o->op_next->op_next->op_flags & OPf_STACKED))
11264	6451	792744	if ((fop = HV_OR_SCALARHV(cUNOP->op_first)))
	15	792729	if ((fop = HV_OR_SCALARHV(cUNOP->op_first)))
	15	0	if ((fop = HV_OR_SCALARHV(cUNOP->op_first)))
	0	15	if ((fop = HV_OR_SCALARHV(cUNOP->op_first)))
	6451	792744	if ((fop = HV_OR_SCALARHV(cUNOP->op_first)))
11273	816049	9583905	while (cLOGOP->op_other->op_type == OP_NULL)
11275	23109594	2427	while (o->op_next && ( o->op_type == o->op_next->op_type
	1694725	21414869	while (o->op_next && ( o->op_type == o->op_next->op_type
11276	11833391	9581478	|| o->op_next->op_type == OP_NULL))
11278	1796228	7787677	DEFER(cLOGOP->op_other);
11281	9580601	3304	fop = HV_OR_SCALARHV(fop);
	6011	9574590	fop = HV_OR_SCALARHV(fop);
	6011	0	fop = HV_OR_SCALARHV(fop);
	275	5736	fop = HV_OR_SCALARHV(fop);
11282	9583905	0	if (sop) sop = HV_OR_SCALARHV(sop);
	9583204	701	if (sop) sop = HV_OR_SCALARHV(sop);
	620	9582584	if (sop) sop = HV_OR_SCALARHV(sop);
	620	0	if (sop) sop = HV_OR_SCALARHV(sop);
	0	620	if (sop) sop = HV_OR_SCALARHV(sop);
11283	4277	9579628	if (fop || sop
11287	1523	2754	if (!((nop->op_flags & OPf_WANT) == OPf_WANT_VOID)) {
11288	2210	1523	while (nop && nop->op_next) {
	2210	0	while (nop && nop->op_next) {
11305	3579	698	if (fop) {
11306	780	2799	if ( (lop->op_flags & OPf_WANT) == OPf_WANT_VOID
11307	679	101	|| o->op_type == OP_AND )
11309	0	101	else if (!(lop->op_flags & OPf_WANT))
11312	263	4014	if ( (lop->op_flags & OPf_WANT) == OPf_WANT_VOID
11321	5973	3516771	if ((fop = HV_OR_SCALARHV(cLOGOP->op_first)))
	669	3516102	if ((fop = HV_OR_SCALARHV(cLOGOP->op_first)))
	669	0	if ((fop = HV_OR_SCALARHV(cLOGOP->op_first)))
	118	551	if ((fop = HV_OR_SCALARHV(cLOGOP->op_first)))
	6091	3516653	if ((fop = HV_OR_SCALARHV(cLOGOP->op_first)))
11334	1117472	4158119	while (cLOGOP->op_other->op_type == OP_NULL)
11336	870433	3287686	DEFER(cLOGOP->op_other);
11341	47667	1228182	while (cLOOP->op_redoop->op_type == OP_NULL)
11343	296	1228182	while (cLOOP->op_nextop->op_type == OP_NULL)
11345	0	1228182	while (cLOOP->op_lastop->op_type == OP_NULL)
11350	240395	987787	DEFER(cLOOP->op_lastop);
11355	214324	479924	while (cPMOP->op_pmstashstartu.op_pmreplstart &&
	61533	152791	while (cPMOP->op_pmstashstartu.op_pmreplstart &&
11359	137356	495359	DEFER(cPMOP->op_pmstashstartu.op_pmreplstart);
11365	17239	87794	if (o->op_flags & OPf_STACKED) {
11368	7959	9280	if (kid->op_type == OP_SCOPE
11369	4940	3019	|| (kid->op_type == OP_NULL && kid->op_targ == OP_LEAVE))
	4923	17	|| (kid->op_type == OP_NULL && kid->op_targ == OP_LEAVE))
11370	3403	10800	DEFER(kLISTOP->op_first);
11375	105033	0	if (!oright || oright->op_type != OP_PUSHMARK)
	103875	1158	if (!oright || oright->op_type != OP_PUSHMARK)
11378	103854	21	if (o->op_private & OPpSORT_INPLACE)
11382	100079	3775	if (!cUNOPo->op_sibling) {
11386	163	99916	if (reverse->op_type == OP_REVERSE &&
	148	15	if (reverse->op_type == OP_REVERSE &&
11389	148	0	if (pushmark && (pushmark->op_type == OP_PUSHMARK)
	148	0	if (pushmark && (pushmark->op_type == OP_PUSHMARK)
11390	147	1	&& (cUNOPx(pushmark)->op_sibling == o)) {
11408	9348	29	if (o->op_private & OPpSORT_INPLACE)
11412	9348	0	if (!enter)
11414	4691	4657	if (enter->op_type == OP_NULL) {
11416	4691	0	if (!enter)
11421	506	8842	if (enter->op_type == OP_GV) {
11424	506	0	if (!enter)
11426	26	480	if (enter->op_type == OP_RV2GV) {
11428	26	0	if (!enter)
11433	1560	7788	if (enter->op_type != OP_ENTERITER)
11437	1560	0	if (!iter || iter->op_type != OP_ITER)
	1560	0	if (!iter || iter->op_type != OP_ITER)
11441	1560	0	if (!expushmark || expushmark->op_type != OP_NULL
	1560	0	if (!expushmark || expushmark->op_type != OP_NULL
11442	1560	0	|| expushmark->op_targ != OP_PUSHMARK)
11446	1560	0	if (!exlist || exlist->op_type != OP_NULL
	1560	0	if (!exlist || exlist->op_type != OP_NULL
11447	1560	0	|| exlist->op_targ != OP_LIST)
11450	1560	0	if (exlist->op_last != o) {
11455	1560	0	if (!theirmark || theirmark->op_type != OP_PUSHMARK)
	1560	0	if (!theirmark || theirmark->op_type != OP_PUSHMARK)
11458	1542	18	if (theirmark->op_sibling != o) {
11466	1542	0	if (!ourmark || ourmark->op_type != OP_PUSHMARK)
	1542	0	if (!ourmark || ourmark->op_type != OP_PUSHMARK)
11470	1542	0	if (!ourlast || ourlast->op_next != o)
	1542	0	if (!ourlast || ourlast->op_next != o)
11474	1542	0	if (rv2av && rv2av->op_type == OP_RV2AV && rv2av->op_sibling == 0
	1120	422	if (rv2av && rv2av->op_type == OP_RV2AV && rv2av->op_sibling == 0
	1111	9	if (rv2av && rv2av->op_type == OP_RV2AV && rv2av->op_sibling == 0
11475	1103	8	&& rv2av->op_flags == (OPf_WANT_LIST | OPf_KIDS)
11476	1103	0	&& enter->op_flags == (OPf_WANT_LIST | OPf_KIDS)) {
11486	1055	487	ourlast->op_next = gvop ? gvop : (OP *) enter;
11503	19	3	if (!(o->op_private & OPpOFFBYONE) && !CvCLONE(PL_compcv)) {
	16	3	if (!(o->op_private & OPpOFFBYONE) && !CvCLONE(PL_compcv)) {
11505	5	11	if (CvEVAL(PL_compcv)) sv = &PL_sv_undef;
	1	4	if (CvEVAL(PL_compcv)) sv = &PL_sv_undef;
11519	9180940	849866	if (OP_GIMME(o,0) == G_VOID) {
11521	9180940	0	if (right) {
11523	25081	9155859	if (left->op_type == OP_SUBSTR
11524	25081	0	&& (left->op_private & 7) < 4) {
11540	1	7	XopENTRY(Perl_custom_op_xop(aTHX_ o), xop_peep);
11541	1	7	if (cpeep)
11589	47	5	if (PL_custom_ops)
11593	6	46	if (!he && PL_custom_op_names &&
	2	4	if (!he && PL_custom_op_names &&
	2	0	if (!he && PL_custom_op_names &&
11601	2	0	pv = SvPV(HeVAL(he), l);
11603	1	1	if (PL_custom_op_descs &&
	1	0	if (PL_custom_op_descs &&
11606	1	0	pv = SvPV(HeVAL(he), l);
11613	46	4	if (!he) return &xop_null;
11615	46	0	xop = INT2PTR(XOP *, SvIV(HeVAL(he)));
11636	5	2	if (!PL_custom_ops)
11639	0	7	if (!hv_store_ent(PL_custom_ops, keysv, newSViv(PTR2IV(xop)), 0))
11669	398903	408	if (!sv) sv = sv_newmortal();
11683	18	127810	if (!opnum) return NULL; nullret = TRUE; goto findopnum;
11684	2	3	case KEY_glob: retsetpvs("_;", OP_GLOB);
11685	2	4811	case KEY_keys: retsetpvs("+", OP_KEYS);
11686	2	527	case KEY_values: retsetpvs("+", OP_VALUES);
11687	2	1949	case KEY_each: retsetpvs("+", OP_EACH);
11688	2	13274	case KEY_push: retsetpvs("+@", OP_PUSH);
11689	2	7982	case KEY_unshift: retsetpvs("+@", OP_UNSHIFT);
11690	2	441	case KEY_pop: retsetpvs(";+", OP_POP);
11691	2	24277	case KEY_shift: retsetpvs(";+", OP_SHIFT);
11692	2	383	case KEY_pos: retsetpvs(";\\[$*]", OP_POS);
11694	2	924	retsetpvs("+;$$@", OP_SPLICE);
11696	6	9	retsetpvs("", 0);
11706	33816660	9793	while (i < MAXO) { /* The slow way. */
11707	33610932	205728	if (strEQ(name, PL_op_name[i])
11708	1374	33609558	|| strEQ(name, PL_op_desc[i]))
11710	18	207084	if (nullret) { assert(opnum); *opnum = i; return NULL; }
11719	266781	207084	while (oa) {
11720	105160	161621	if (oa & OA_OPTIONAL && !seen_question && (
	54874	50286	if (oa & OA_OPTIONAL && !seen_question && (
11721	570	54304	!defgv || (oa & (OA_OPTIONAL - 1)) == OA_FILEREF
11726	23819	242962	if ((oa & (OA_OPTIONAL - 1)) >= OA_AVREF
11729	4980	18839	&& (oa & (OA_OPTIONAL - 1)) != OA_FILEREF
11733	4858	261923	if ((oa & (OA_OPTIONAL - 1)) == OA_SCALARREF
11734	4493	365	&& !scalar_mod_type(NULL, i)) {
11739	3490	1003	if (i == OP_LOCK || i == OP_UNDEF) str[n++] = '&';
11744	54874	211907	if (oa & OA_OPTIONAL && defgv && str[n-1] == '$') {
	54304	570	if (oa & OA_OPTIONAL && defgv && str[n-1] == '$') {
11749	27048	180036	if (code == -KEY_not || code == -KEY_getprotobynumber) str[n++] = ';';
11752	364	206720	if (opnum) *opnum = i;
11775	2	2	if (code)
11790	44	5	return op_append_elem(
11797	2	137	if (opnum == OP_ENTEREVAL) {
11799	2	0	if (code == -KEY_evalbytes) o->op_private |= OPpEVAL_BYTES;
11802	2	137	if (opnum == OP_CALLER) o->op_private |= OPpOFFBYONE;
11805	16	291	if (is_handle_constructor(o, 1))
11807	30	277	if (scalar_mod_type(NULL, opnum))
11812	170	2	o = convert(opnum,OPf_SPECIAL*(opnum == OP_GLOB),argop);
11813	4	168	if (is_handle_constructor(o, 2))
11815	170	2	if (opnum == OP_SUBSTR) {
11830	9296	52	SV *old_const_sv = is_const ? cv_const_sv(old_cv) : NULL;
11834	9296	52	if (is_const && new_const_svp && old_const_sv == *new_const_svp)
	9294	2	if (is_const && new_const_svp && old_const_sv == *new_const_svp)
	35	9259	if (is_const && new_const_svp && old_const_sv == *new_const_svp)
11842	62	27	if (
	1	59	if (
11844	60	2	&& !(
	0	0	&& !(
11845	60	0	CvGV(old_cv) && GvSTASH(CvGV(old_cv))
11846	60	0	&& HvNAMELEN(GvSTASH(CvGV(old_cv))) == 7
	60	0	&& HvNAMELEN(GvSTASH(CvGV(old_cv))) == 7
	0	1	&& HvNAMELEN(GvSTASH(CvGV(old_cv))) == 7
	59	0	&& HvNAMELEN(GvSTASH(CvGV(old_cv))) == 7
	0	59	&& HvNAMELEN(GvSTASH(CvGV(old_cv))) == 7
	0	59	&& HvNAMELEN(GvSTASH(CvGV(old_cv))) == 7
11847	0	0	&& (hvname = HvNAME(GvSTASH(CvGV(old_cv))),
	0	0	&& (hvname = HvNAME(GvSTASH(CvGV(old_cv))),
	0	0	&& (hvname = HvNAME(GvSTASH(CvGV(old_cv))),
	0	0	&& (hvname = HvNAME(GvSTASH(CvGV(old_cv))),
	0	0	&& (hvname = HvNAME(GvSTASH(CvGV(old_cv))),
	0	0	&& (hvname = HvNAME(GvSTASH(CvGV(old_cv))),
11851	27	0	|| (is_const
11852	18	9	&& ckWARN_d(WARN_REDEFINE)
11853	18	0	&& (!new_const_svp || sv_cmp(old_const_sv, *new_const_svp))
	11	7	&& (!new_const_svp || sv_cmp(old_const_sv, *new_const_svp))
11856	52	21	Perl_warner(aTHX_ packWARN(WARN_REDEFINE),
11919	1536	1	if (*old_checker_p) return;
11921	1536	0	if (!*old_checker_p) {
11933	0	104573	{
11938	0	104573	if (!sv) {
11948	0	3	{
11955	0	3	if (!av) {
11959	0	3	if (SvRMAGICAL(av))
11961	3	0	if (GIMME_V != G_ARRAY) {
	0	3	if (GIMME_V != G_ARRAY) {
	0	0	if (GIMME_V != G_ARRAY) {
11967	0	3	Copy(AvARRAY(av), &ST(0), AvFILLp(av)+1, SV *);