Branch Coverage

pp_ctl.c

Criterion	Covered	Total	%
branch	2461	3402	72.3

line	true	false	branch
42	0	2639299	{
49	8	2639291	if (PL_op->op_private & OPpOFFBYONE) {
50	2	6	if (!(cx = caller_cx(1,NULL))) RETPUSHUNDEF;
54	3	2639288	if (cxix < 0)
88	3722464	7636823	if (PL_op->op_flags & OPf_STACKED) {
108	11130301	228986	eng = re ? RX_ENGINE(re) : current_re_engine();
124	11359287	0	: &Perl_re_op_compile
125	11359187	100	)(aTHX_ args, nargs, pm->op_code_list, eng, re,
131	4	11358146	if (pm->op_pmflags & PMf_HAS_CV)
135	6903008	4455142	if (is_bare_re) {
143	6654932	248076	if (pm->op_type == OP_MATCH) {
	472	6654460	if (pm->op_type == OP_MATCH) {
146	5593169	1061763	if (pm->op_flags & OPf_STACKED)
148	4	1061759	else if (pm->op_private & OPpTARGET_MY)
150	1061759	0	else lhs = DEFSV;
165	8896115	2462035	if (re != new_re) {
172	26278	11331872	if (TAINTING_get && TAINT_get) {
	8798	17480	if (TAINTING_get && TAINT_get) {
173	8798	0	SvTAINTED_on((SV*)new_re);
181	58	11358092	if (!RX_PRELEN(PM_GETRE(pm)) && PL_curpm)
	17	41	if (!RX_PRELEN(PM_GETRE(pm)) && PL_curpm)
183	2106	11356044	if (pm->op_pmflags & PMf_KEEP) {
208	0	6482432	PERL_ASYNC_CHECK();
210	11	6482421	if(old != rx) {
211	11	0	if(old)
218	5825539	656893	if (cx->sb_iters++) {
	4631370	1194169	if (cx->sb_iters++) {
220	0	5825539	if (cx->sb_iters > cx->sb_maxiters)
226	4631404	1194135	if (SvTAINTED(TOPs))
	0	4631404	if (SvTAINTED(TOPs))
237	411476	245413	if(cx->sb_strend > s) {
238	1454	410022	if (DO_UTF8(dstr) && !SvUTF8(targ))
	1454	0	if (DO_UTF8(dstr) && !SvUTF8(targ))
	39	1415	if (DO_UTF8(dstr) && !SvUTF8(targ))
243	15	656874	if (RX_MATCH_TAINTED(rx)) /* run time pattern taint, eg locale */
246	952	655937	if (pm->op_pmflags & PMf_NONDESTRUCT) {
253	652600	3337	SV_CHECK_THINKFIRST_COW_DROP(targ);
254	2	655933	if (isGV(targ)) Perl_croak_no_modify();
255	3335	652598	SvPV_free(targ);
	1	3334	SvPV_free(targ);
	1	0	SvPV_free(targ);
	0	1	SvPV_free(targ);
259	4513	651420	if (DO_UTF8(dstr))
	4513	0	if (DO_UTF8(dstr))
272	0	656885	if (TAINTING_get) {
273	0	0	if ((cx->sb_rxtainted & SUBST_TAINT_PAT) ||
	0	0	if ((cx->sb_rxtainted & SUBST_TAINT_PAT) ||
279	0	0	if (!(cx->sb_rxtainted & SUBST_TAINT_BOOLRET)
280	0	0	&& (cx->sb_rxtainted & (SUBST_TAINT_STR|SUBST_TAINT_PAT))
282	0	0	SvTAINTED_on(TOPs); /* taint return value */
288	0	0	SvTAINT(TARG);
	0	0	SvTAINT(TARG);
	0	0	SvTAINT(TARG);
291	656885	0	SvSETMAGIC(TARG);
293	14	656871	LEAVE_SCOPE(cx->sb_oldsave);
295	0	656885	PERL_ASYNC_CHECK();
301	16457	5809086	if (RX_MATCH_COPIED(rx) && RX_SUBBEG(rx) != orig) {
	3335	13122	if (RX_MATCH_COPIED(rx) && RX_SUBBEG(rx) != orig) {
310	363068	5462475	if (m > s) {
311	2002	361066	if (DO_UTF8(dstr) && !SvUTF8(cx->sb_targ))
	2002	0	if (DO_UTF8(dstr) && !SvUTF8(cx->sb_targ))
	3	1999	if (DO_UTF8(dstr) && !SvUTF8(cx->sb_targ))
319	952	5824591	= (pm->op_pmflags & PMf_NONDESTRUCT) ? cx->sb_dstr : cx->sb_targ;
321	364813	5460730	if (!(mg = mg_find_mglob(sv))) {
325	5824825	718	MgBYTEPOS_set(mg, sv, SvPVX(dstr), m - orig);
	0	718	MgBYTEPOS_set(mg, sv, SvPVX(dstr), m - orig);
	0	0	MgBYTEPOS_set(mg, sv, SvPVX(dstr), m - orig);
327	11	5825532	if (old != rx)
332	0	5825543	if (TAINTING_get) {
333	0	0	if (RX_MATCH_TAINTED(rx)) /* run time pattern taint, eg locale */
336	0	0	if ((cx->sb_rxtainted & SUBST_TAINT_PAT) ||
	0	0	if ((cx->sb_rxtainted & SUBST_TAINT_PAT) ||
342	0	0	if (cx->sb_iters > 1 && (cx->sb_rxtainted &
	0	0	if (cx->sb_iters > 1 && (cx->sb_rxtainted &
344	0	0	SvTAINTED_on((pm->op_pmflags & PMf_NONDESTRUCT)
	0	0	SvTAINTED_on((pm->op_pmflags & PMf_NONDESTRUCT)
362	5825543	656893	if (!p || p[1] < RX_NPARENS(rx)) {
	0	5825543	if (!p || p[1] < RX_NPARENS(rx)) {
368	656893	0	if (!p)
369	0	656893	Newx(p, i, UV);
371	0	0	Renew(p, i, UV);
376	19792	6462644	*p++ = PTR2UV(RX_MATCH_COPIED(rx) ? RX_SUBBEG(rx) : NULL);
389	13784047	6482436	for (i = 0; i <= RX_NPARENS(rx); ++i) {
404	12	6482420	RX_MATCH_COPY_FREE(rx);
	12	0	RX_MATCH_COPY_FREE(rx);
	0	6482432	RX_MATCH_COPY_FREE(rx);
405	19792	6462640	RX_MATCH_COPIED_set(rx, *p);
410	12	6482420	if (RX_SAVED_COPY(rx))
420	13784041	6482432	for (i = 0; i <= RX_NPARENS(rx); ++i) {
434	656893	0	if (p) {
497	1661	4	SvPV_force(PL_formtarget, len);
498	1665	0	if (SvTAINTED(tmpForm) || SvTAINTED(formsv))
	1665	0	if (SvTAINTED(tmpForm) || SvTAINTED(formsv))
	0	1665	if (SvTAINTED(tmpForm) || SvTAINTED(formsv))
	0	0	if (SvTAINTED(tmpForm) || SvTAINTED(formsv))
499	0	0	SvTAINTED_on(PL_formtarget);
500	12	1653	if (DO_UTF8(PL_formtarget))
	12	0	if (DO_UTF8(PL_formtarget))
502	1665	0	linemax = (SvCUR(formsv) * (IN_BYTES ? 1 : 3) + 1);
503	1665	0	t = SvGROW(PL_formtarget, len + linemax + 1);
	64	1601	t = SvGROW(PL_formtarget, len + linemax + 1);
506	1665	0	f = SvPV_const(formsv, len);
550	331	2470	item_is_utf8 = targ_is_utf8 ? !!DO_UTF8(formsv) : !!SvUTF8(formsv);
	6	325	item_is_utf8 = targ_is_utf8 ? !!DO_UTF8(formsv) : !!SvUTF8(formsv);
	0	6	item_is_utf8 = targ_is_utf8 ? !!DO_UTF8(formsv) : !!SvUTF8(formsv);
562	2834	7	if (MARK < SP)
568	2656	185	if (SvTAINTED(sv))
	185	0	if (SvTAINTED(sv))
569	0	0	SvTAINTED_on(PL_formtarget);
575	265	31	const char *s = item = SvPV_const(sv, len);
577	2	294	if (DO_UTF8(sv)) {
	2	0	if (DO_UTF8(sv)) {
579	2	0	if (itemsize != (I32)len) {
581	0	2	if (itemsize > fieldsize) {
589	4	2	while (s < send) {
590	0	4	if (! isCNTRL(*s))
592	0	0	else if (*s == '\n')
603	36	258	if (itemsize > fieldsize)
606	771	288	while (s < send) {
607	6	765	if (! isCNTRL(*s))
609	0	6	else if (*s == '\n')
619	1532	4	const char *s = item = SvPV_const(sv, len);
621	0	1536	if (DO_UTF8(sv)) {
	0	0	if (DO_UTF8(sv)) {
623	0	0	if (itemsize != (I32)len) {
625	0	0	if (itemsize <= fieldsize) {
627	0	0	while (s < send) {
628	0	0	if (*s == '\r') {
633	0	0	if (! isCNTRL(*s))
644	0	0	while (s < send || (s == send && isSPACE(*s))) {
	0	0	while (s < send || (s == send && isSPACE(*s))) {
	0	0	while (s < send || (s == send && isSPACE(*s))) {
645	0	0	if (isSPACE(*s)) {
646	0	0	if (chopspace)
648	0	0	if (*s == '\r')
652	0	0	if (! isCNTRL(*s))
654	0	0	if (strchr(PL_chopset, *s))
	0	0	if (strchr(PL_chopset, *s))
	0	0	if (strchr(PL_chopset, *s))
667	1429	107	if (itemsize <= fieldsize) {
669	1427	5761	while (s < send) {
670	2	5759	if (*s == '\r') {
675	5759	0	if (! isCNTRL(*s))
684	3818	122	while (s < send || (s == send && isSPACE(*s))) {
	107	15	while (s < send || (s == send && isSPACE(*s))) {
	15	92	while (s < send || (s == send && isSPACE(*s))) {
685	537	3296	if (isSPACE(*s)) {
686	537	0	if (chopspace)
688	537	0	if (*s == '\r')
692	3296	0	if (! isCNTRL(*s))
694	0	3296	if (strchr(PL_chopset, *s))
	0	0	if (strchr(PL_chopset, *s))
	13	3283	if (strchr(PL_chopset, *s))
706	39	1094	if (arg) {
708	1094	6408	while (arg-- > 0)
715	0	120	if (arg) {
718	120	138	while (arg-- > 0)
727	2	1830	if (item_is_utf8) {
730	2	2	while (to_copy--)
739	1536	736	if (chopspace) {
740	112	1536	while (isSPACE(*s))
744	2178	94	SvSETMAGIC(sv);
753	757	184	const char *s = item = SvPV_const(sv, len);
756	241	700	item_is_utf8 = DO_UTF8(sv);
	0	241	item_is_utf8 = DO_UTF8(sv);
757	101	840	if (!len)
764	4597	598	while (s < send) {
765	495	4102	if (*s++ == '\n') {
766	242	253	if (oneline) {
771	125	128	if (s == send) {
791	462	5011	if (targ_is_utf8 && !item_is_utf8) {
	414	48	if (targ_is_utf8 && !item_is_utf8) {
794	251	4808	if (item_is_utf8 && !targ_is_utf8) {
	203	48	if (item_is_utf8 && !targ_is_utf8) {
808	6	203	while (linemark--)
815	840	4633	if (!trans)
821	843	4630	if (grow)
822	843	0	SvGROW(PL_formtarget, SvCUR(PL_formtarget) + grow + 1);
	7	836	SvGROW(PL_formtarget, SvCUR(PL_formtarget) + grow + 1);
826	4633	840	if (trans) {
832	146139	4633	while (s < send) {
834	136115	10024	if (trans == '~' ? (ch == '~') : isCNTRL(ch))
	10024	0	if (trans == '~' ? (ch == '~') : isCNTRL(ch))
	10024	0	if (trans == '~' ? (ch == '~') : isCNTRL(ch))
	376	145763	if (trans == '~' ? (ch == '~') : isCNTRL(ch))
842	5059	414	if (tmp)
854	16	12	fmt = (const char *)
865	18	22	fmt = (const char *)
871	8	60	if ((arg & FORM_NUM_BLANK) && !SvOK(sv)) {
	4	4	if ((arg & FORM_NUM_BLANK) && !SvOK(sv)) {
	4	0	if ((arg & FORM_NUM_BLANK) && !SvOK(sv)) {
	4	0	if ((arg & FORM_NUM_BLANK) && !SvOK(sv)) {
873	4	16	while (arg--)
878	34	30	value = SvNV(sv);
880	20	44	if (num_overflow(value, fieldsize, arg)) {
882	20	92	while (arg--)
888	44	0	STORE_NUMERIC_STANDARD_SET_LOCAL();
	0	44	STORE_NUMERIC_STANDARD_SET_LOCAL();
	0	0	STORE_NUMERIC_STANDARD_SET_LOCAL();
	44	0	STORE_NUMERIC_STANDARD_SET_LOCAL();
	0	44	STORE_NUMERIC_STANDARD_SET_LOCAL();
890	44	0	my_snprintf(t, SvLEN(PL_formtarget) - (t - SvPVX(PL_formtarget)), fmt, (int) fieldsize, (int) arg, value);
	0	44	my_snprintf(t, SvLEN(PL_formtarget) - (t - SvPVX(PL_formtarget)), fmt, (int) fieldsize, (int) arg, value);
891	0	44	RESTORE_NUMERIC_STANDARD();
898	4330	331	while (t-- > (SvPVX(PL_formtarget) + linemark) && *t == ' ') ;
	3439	891	while (t-- > (SvPVX(PL_formtarget) + linemark) && *t == ' ') ;
905	463	320	if (gotsome) {
906	65	398	if (arg) { /* repeat until fields exhausted? */
921	4	0	if (chopspace) {
922	8	4	while (isSPACE(*s) && (s < send))
925	2	2	if (s < send) {
928	2	0	if (arg) {
930	4	2	while (arg-- > 0)
934	0	2	if (strnEQ(s1," ",3)) {
935	0	0	while (s1 > SvPVX_const(PL_formtarget) && isSPACE(s1[-1]))
	0	0	while (s1 > SvPVX_const(PL_formtarget) && isSPACE(s1[-1]))
949	215	1450	if (targ_is_utf8)
953	398	1267	if (fpc[-1] == FF_BLANK)
966	260655	8242653	if (PL_stack_base + *PL_markstack_ptr == SP) {
968	256060	4595	if (GIMME_V == G_SCALAR)
	188804	71851	if (GIMME_V == G_SCALAR)
969	0	188804	mXPUSHi(0);
978	9	8242644	if (PL_op->op_private & OPpGREP_LEX)
986	1652	8241001	if (SvPADTMP(src) && !IS_PADGV(src)) {
991	9	8242644	if (PL_op->op_private & OPpGREP_LEX)
997	1467096	6775557	if (PL_op->op_type == OP_MAPSTART)
1005	4247338	291813	const I32 gimme = GIMME_V;
1016	4327170	211981	if (items && gimme != G_VOID) {
1018	81616	4245554	if (items > PL_markstack_ptr[-1] - PL_markstack_ptr[-2]) {
	416	81200	if (items > PL_markstack_ptr[-1] - PL_markstack_ptr[-2]) {
1040	81616	0	if (shift < count)
1048	1073290	81616	while (count--)
1053	75	4327095	if (gimme == G_ARRAY) {
1067	883	4326212	EXTEND_MORTAL(items);
1069	0	4327095	Move(PL_tmps_stack + tmpsbase,
1075	5315478	4327095	while (i-- > 0) {
1077	3023890	2291588	if (!SvTEMP(sv))
1084	4327095	0	FREETMPS;
1087	5315478	4327095	while (i-- > 0)
1094	89	75	while (items-- > 0) {
1098	59	16	FREETMPS;
1102	169783	42198	FREETMPS;
1107	1467086	3072065	if (PL_markstack_ptr[-1] > *PL_markstack_ptr) {
1115	22	1467064	if (gimme == G_SCALAR) {
1116	1	21	if (PL_op->op_private & OPpGREP_LEX) {
1123	0	21	XPUSHi(items);
	0	21	XPUSHi(items);
1126	1456705	10359	else if (gimme == G_ARRAY)
1138	58872	3013193	if (SvPADTMP(src) && !IS_PADGV(src)) src = sv_mortalcopy(src);
1140	5	3072060	if (PL_op->op_private & OPpGREP_LEX)
1154	96087	132	if (GIMME == G_ARRAY)
	88765	7454	if (GIMME == G_ARRAY)
1156	7454	0	if (SvTRUEx(PAD_SV(PL_op->op_targ)))
	0	7454	if (SvTRUEx(PAD_SV(PL_op->op_targ)))
	0	0	if (SvTRUEx(PAD_SV(PL_op->op_targ)))
	2524	4930	if (SvTRUEx(PAD_SV(PL_op->op_targ)))
	2524	0	if (SvTRUEx(PAD_SV(PL_op->op_targ)))
	0	2524	if (SvTRUEx(PAD_SV(PL_op->op_targ)))
	0	4930	if (SvTRUEx(PAD_SV(PL_op->op_targ)))
	0	0	if (SvTRUEx(PAD_SV(PL_op->op_targ)))
	0	0	if (SvTRUEx(PAD_SV(PL_op->op_targ)))
	0	0	if (SvTRUEx(PAD_SV(PL_op->op_targ)))
	0	0	if (SvTRUEx(PAD_SV(PL_op->op_targ)))
	0	0	if (SvTRUEx(PAD_SV(PL_op->op_targ)))
	4930	0	if (SvTRUEx(PAD_SV(PL_op->op_targ)))
	4930	0	if (SvTRUEx(PAD_SV(PL_op->op_targ)))
	1153	3777	if (SvTRUEx(PAD_SV(PL_op->op_targ)))
	0	1153	if (SvTRUEx(PAD_SV(PL_op->op_targ)))
	0	0	if (SvTRUEx(PAD_SV(PL_op->op_targ)))
	3777	1153	if (SvTRUEx(PAD_SV(PL_op->op_targ)))
	0	0	if (SvTRUEx(PAD_SV(PL_op->op_targ)))
	3777	3677	if (SvTRUEx(PAD_SV(PL_op->op_targ)))
1167	92310	132	if (GIMME == G_ARRAY) {
	88765	3677	if (GIMME == G_ARRAY) {
1175	374	3303	if (PL_op->op_private & OPpFLIP_LINENUM) {
1176	363	11	if (GvIO(PL_last_in_gv)) {
	362	1	if (GvIO(PL_last_in_gv)) {
	362	0	if (GvIO(PL_last_in_gv)) {
	362	0	if (GvIO(PL_last_in_gv)) {
1177	362	0	flip = SvIV(sv) == (IV)IoLINES(GvIOp(PL_last_in_gv));
1181	12	0	if (gv && GvSV(gv))
	12	0	if (gv && GvSV(gv))
1182	11	1	flip = SvIV(sv) == SvIV(GvSV(gv));
	0	12	flip = SvIV(sv) == SvIV(GvSV(gv));
1185	3303	0	flip = SvTRUE(sv);
	0	3303	flip = SvTRUE(sv);
	0	0	flip = SvTRUE(sv);
	6	3297	flip = SvTRUE(sv);
	6	0	flip = SvTRUE(sv);
	0	6	flip = SvTRUE(sv);
	3290	7	flip = SvTRUE(sv);
	3290	0	flip = SvTRUE(sv);
	3290	0	flip = SvTRUE(sv);
	392	2898	flip = SvTRUE(sv);
	0	392	flip = SvTRUE(sv);
	392	2898	flip = SvTRUE(sv);
	7	0	flip = SvTRUE(sv);
	6	1	flip = SvTRUE(sv);
	0	6	flip = SvTRUE(sv);
	1	0	flip = SvTRUE(sv);
	0	1	flip = SvTRUE(sv);
	7	0	flip = SvTRUE(sv);
	0	0	flip = SvTRUE(sv);
1187	426	3251	if (flip) {
1189	272	154	if (PL_op->op_flags & OPf_SPECIAL) {
1221	92566	130	if (GIMME == G_ARRAY) {
	88765	3931	if (GIMME == G_ARRAY) {
	7	88758	if (GIMME == G_ARRAY) {
	3	88762	if (GIMME == G_ARRAY) {
1227	241	88524	if (RANGE_IS_NUMERIC(left,right)) {
	10	231	if (RANGE_IS_NUMERIC(left,right)) {
	10	0	if (RANGE_IS_NUMERIC(left,right)) {
	0	10	if (RANGE_IS_NUMERIC(left,right)) {
	228	3	if (RANGE_IS_NUMERIC(left,right)) {
	232	6	if (RANGE_IS_NUMERIC(left,right)) {
	5	227	if (RANGE_IS_NUMERIC(left,right)) {
	5	0	if (RANGE_IS_NUMERIC(left,right)) {
	0	5	if (RANGE_IS_NUMERIC(left,right)) {
	227	0	if (RANGE_IS_NUMERIC(left,right)) {
	5	227	if (RANGE_IS_NUMERIC(left,right)) {
	5	0	if (RANGE_IS_NUMERIC(left,right)) {
	5	0	if (RANGE_IS_NUMERIC(left,right)) {
	3	2	if (RANGE_IS_NUMERIC(left,right)) {
	3	0	if (RANGE_IS_NUMERIC(left,right)) {
	3	0	if (RANGE_IS_NUMERIC(left,right)) {
	3	227	if (RANGE_IS_NUMERIC(left,right)) {
	3	0	if (RANGE_IS_NUMERIC(left,right)) {
	0	3	if (RANGE_IS_NUMERIC(left,right)) {
	17	210	if (RANGE_IS_NUMERIC(left,right)) {
	17	3	if (RANGE_IS_NUMERIC(left,right)) {
	5	12	if (RANGE_IS_NUMERIC(left,right)) {
	1	6	if (RANGE_IS_NUMERIC(left,right)) {
	1	0	if (RANGE_IS_NUMERIC(left,right)) {
	0	1	if (RANGE_IS_NUMERIC(left,right)) {
	5	1	if (RANGE_IS_NUMERIC(left,right)) {
1230	6	88533	if ((SvOK(left) && !SvIOK(left) && SvNV_nomg(left) < IV_MIN) ||
	6	0	if ((SvOK(left) && !SvIOK(left) && SvNV_nomg(left) < IV_MIN) ||
	0	6	if ((SvOK(left) && !SvIOK(left) && SvNV_nomg(left) < IV_MIN) ||
	9	88524	if ((SvOK(left) && !SvIOK(left) && SvNV_nomg(left) < IV_MIN) ||
	0	9	if ((SvOK(left) && !SvIOK(left) && SvNV_nomg(left) < IV_MIN) ||
	0	0	if ((SvOK(left) && !SvIOK(left) && SvNV_nomg(left) < IV_MIN) ||
	9	0	if ((SvOK(left) && !SvIOK(left) && SvNV_nomg(left) < IV_MIN) ||
	6	88533	if ((SvOK(left) && !SvIOK(left) && SvNV_nomg(left) < IV_MIN) ||
	88520	13	if ((SvOK(left) && !SvIOK(left) && SvNV_nomg(left) < IV_MIN) ||
	5	8	if ((SvOK(left) && !SvIOK(left) && SvNV_nomg(left) < IV_MIN) ||
1231	6	0	(SvOK(right) && (SvIOK(right)
	0	6	(SvOK(right) && (SvIOK(right)
	0	88520	(SvOK(right) && (SvIOK(right)
	0	0	(SvOK(right) && (SvIOK(right)
	0	88520	(SvOK(right) && (SvIOK(right)
1232	0	0	? SvIsUV(right) && SvUV(right) > IV_MAX
	0	0	? SvIsUV(right) && SvUV(right) > IV_MAX
1235	88524	15	i = SvIV_nomg(left);
1236	88520	19	max = SvIV_nomg(right);
1237	87525	1014	if (max >= i) {
	106	87419	if (max >= i) {
1241	196	87329	EXTEND_MORTAL(j);
1246	623139	88539	while (j--) {
1253	219	7	const char * const lpv = SvPV_nomg_const(left, llen);
1254	221	5	const char * const tmps = SvPV_nomg_const(right, len);
1257	24115	2	while (!SvNIOKp(sv) && SvCUR(sv) <= len) {
	24107	8	while (!SvNIOKp(sv) && SvCUR(sv) <= len) {
1258	14	24093	XPUSHs(sv);
1259	23891	216	if (strEQ(SvPVX_const(sv),tmps))
1272	48	3883	if (PL_op->op_private & OPpFLIP_LINENUM) {
1273	44	4	if (GvIO(PL_last_in_gv)) {
	43	1	if (GvIO(PL_last_in_gv)) {
	43	0	if (GvIO(PL_last_in_gv)) {
	43	0	if (GvIO(PL_last_in_gv)) {
1274	43	0	flop = SvIV(sv) == (IV)IoLINES(GvIOp(PL_last_in_gv));
1278	5	0	if (gv && GvSV(gv)) flop = SvIV(sv) == SvIV(GvSV(gv));
	5	0	if (gv && GvSV(gv)) flop = SvIV(sv) == SvIV(GvSV(gv));
	4	1	if (gv && GvSV(gv)) flop = SvIV(sv) == SvIV(GvSV(gv));
	0	5	if (gv && GvSV(gv)) flop = SvIV(sv) == SvIV(GvSV(gv));
1282	3883	0	flop = SvTRUE(sv);
	0	3883	flop = SvTRUE(sv);
	0	0	flop = SvTRUE(sv);
	1	3882	flop = SvTRUE(sv);
	1	0	flop = SvTRUE(sv);
	0	1	flop = SvTRUE(sv);
	3365	517	flop = SvTRUE(sv);
	3365	0	flop = SvTRUE(sv);
	3365	0	flop = SvTRUE(sv);
	275	3090	flop = SvTRUE(sv);
	0	275	flop = SvTRUE(sv);
	275	3090	flop = SvTRUE(sv);
	517	0	flop = SvTRUE(sv);
	517	0	flop = SvTRUE(sv);
	516	1	flop = SvTRUE(sv);
	0	516	flop = SvTRUE(sv);
	0	0	flop = SvTRUE(sv);
	1	516	flop = SvTRUE(sv);
	0	0	flop = SvTRUE(sv);
1285	292	3639	if (flop) {
1320	331025	3	for (i = cxstack_ix; i >= 0; i--) {
1329	0	1263	Perl_ck_warner(aTHX_ packWARN(WARN_EXITING), "Exiting %s via %s",
1330	0	0	context_name[CxTYPE(cx)], OP_NAME(PL_op));
1331	1261	2	if (CxTYPE(cx) == CXt_NULL)
1342	164739	34406	if (!cx_label || !(
	2	164737	if (!cx_label || !(
	164446	291	if (!cx_label || !(
	305	164432	if (!cx_label || !(
1351	164446	0	: (len == cx_label_len && ((cx_label == label)
1352	164432	14	|| memEQ(cx_label, label, len))) )) {
1372	3944484	2104	return (gimme == G_VOID) ? G_SCALAR : gimme;
1380	48150355	12822	if (cxix < 0)
1404	249	116	if (CxLVAL(cxstack + cxix) && CvLVALUE(cxstack[cxix].blk_sub.cv))
	249	0	if (CxLVAL(cxstack + cxix) && CvLVALUE(cxstack[cxix].blk_sub.cv))
1418	11	5	if (CxLVAL(cxstack + cxix) && CvLVALUE(cxstack[cxix].blk_sub.cv))
	11	0	if (CxLVAL(cxstack + cxix) && CvLVALUE(cxstack[cxix].blk_sub.cv))
1432	225901217	934707	for (i = startingblock; i >= 0; i--) {
1442	53	192670710	if (cx->cx_type & CXp_SUB_RE_FAKE)
1458	282208	515	for (i = startingblock; i >= 0; i--) {
1460	121405	160803	switch (CxTYPE(cx)) {
1476	10103526	9	for (i = startingblock; i >= 0; i--) {
1485	0	31	Perl_ck_warner(aTHX_ packWARN(WARN_EXITING), "Exiting %s via %s",
1486	0	0	context_name[CxTYPE(cx)], OP_NAME(PL_op));
1487	29	2	if ((CxTYPE(cx)) == CXt_NULL)
1506	457	4	for (i = startingblock; i >= 0; i--) {
1520	15	0	if (CxFOREACHDEF(cx)) {
	15	0	if (CxFOREACHDEF(cx)) {
	0	15	if (CxFOREACHDEF(cx)) {
1534	72	2	for (i = startingblock; i >= 0; i--) {
1536	39	33	switch (CxTYPE(cx)) {
1553	13513046	0	if (!PL_curstackinfo) /* can happen if die during thread cloning */
1556	17573033	13513046	while (cxstack_ix > cxix) {
1566	100724	451	POPSUB(cx,sv);
	53	100671	POPSUB(cx,sv);
	101174	1	POPSUB(cx,sv);
	101175	0	POPSUB(cx,sv);
	2528	98647	POPSUB(cx,sv);
1570	121	46	POPEVAL(cx);
	0	121	POPEVAL(cx);
	11	156	POPEVAL(cx);
1576	0	1955242	POPLOOP(cx);
	479055	1476187	POPLOOP(cx);
1581	23	0	POPFORMAT(cx);
	23	0	POPFORMAT(cx);
1596	1060	132	if (PL_in_eval) {
1597	1	1059	if (PL_in_eval & EVAL_KEEPERR) {
1602	1059	0	sv_catsv(ERRSV, err);
1604	132	0	else if (PL_errors)
1608	1192	0	if (PL_parser)
1620	160803	545	if (in_eval) {
1653	160706	97	if (!(in_eval & EVAL_KEEPERR)) {
1655	160706	0	sv_setsv(ERRSV, exceptsv);
1658	97	160706	if (in_eval & EVAL_KEEPERR) {
1663	515	160803	while ((cxix = dopoptoeval(cxstack_ix)) < 0
1664	515	0	&& PL_curstackinfo->si_prev)
1667	0	515	POPSTACK;
1670	160803	0	if (cxix >= 0) {
1679	70691	90112	if (cxix < cxstack_ix)
1683	0	160803	if (CxTYPE(cx) != CXt_EVAL) {
1685	0	0	const char* message = SvPVx_const(exceptsv, msglen);
1686	0	0	PerlIO_write(Perl_error_log, (const char *)"panic: die ", 11);
	0	0	PerlIO_write(Perl_error_log, (const char *)"panic: die ", 11);
	0	0	PerlIO_write(Perl_error_log, (const char *)"panic: die ", 11);
	0	0	PerlIO_write(Perl_error_log, (const char *)"panic: die ", 11);
1687	0	0	PerlIO_write(Perl_error_log, message, msglen);
	0	0	PerlIO_write(Perl_error_log, message, msglen);
	0	0	PerlIO_write(Perl_error_log, message, msglen);
	0	0	PerlIO_write(Perl_error_log, message, msglen);
1690	79943	80860	POPEVAL(cx);
	0	79943	POPEVAL(cx);
	907	159896	POPEVAL(cx);
1696	101323	59480	if (gimme == G_SCALAR)
1708	898	159904	if (optype == OP_REQUIRE) {
1709	0	898	(void)hv_store(GvHVn(PL_incgv),
	898	0	(void)hv_store(GvHVn(PL_incgv),
1717	0	898	Perl_croak(aTHX_ "%"SVf"Compilation failed in require",
1721	159807	97	if (!(in_eval & EVAL_KEEPERR))
1722	159807	0	sv_setsv(ERRSV, exceptsv);
1725	159904	0	JMPENV_JUMP(3);
1738	54283	0	if (SvTRUE(left) != SvTRUE(right))
	0	54283	if (SvTRUE(left) != SvTRUE(right))
	0	0	if (SvTRUE(left) != SvTRUE(right))
	9	54274	if (SvTRUE(left) != SvTRUE(right))
	9	0	if (SvTRUE(left) != SvTRUE(right))
	0	9	if (SvTRUE(left) != SvTRUE(right))
	54251	23	if (SvTRUE(left) != SvTRUE(right))
	54251	0	if (SvTRUE(left) != SvTRUE(right))
	54136	115	if (SvTRUE(left) != SvTRUE(right))
	15243	38893	if (SvTRUE(left) != SvTRUE(right))
	0	15243	if (SvTRUE(left) != SvTRUE(right))
	15358	38893	if (SvTRUE(left) != SvTRUE(right))
	23	0	if (SvTRUE(left) != SvTRUE(right))
	23	0	if (SvTRUE(left) != SvTRUE(right))
	10	13	if (SvTRUE(left) != SvTRUE(right))
	0	10	if (SvTRUE(left) != SvTRUE(right))
	0	0	if (SvTRUE(left) != SvTRUE(right))
	13	10	if (SvTRUE(left) != SvTRUE(right))
	0	0	if (SvTRUE(left) != SvTRUE(right))
	54283	0	if (SvTRUE(left) != SvTRUE(right))
	0	54283	if (SvTRUE(left) != SvTRUE(right))
	0	0	if (SvTRUE(left) != SvTRUE(right))
	18	54265	if (SvTRUE(left) != SvTRUE(right))
	18	0	if (SvTRUE(left) != SvTRUE(right))
	0	18	if (SvTRUE(left) != SvTRUE(right))
	54258	7	if (SvTRUE(left) != SvTRUE(right))
	54258	0	if (SvTRUE(left) != SvTRUE(right))
	54245	13	if (SvTRUE(left) != SvTRUE(right))
	15284	38961	if (SvTRUE(left) != SvTRUE(right))
	1	15283	if (SvTRUE(left) != SvTRUE(right))
	15296	38962	if (SvTRUE(left) != SvTRUE(right))
	7	0	if (SvTRUE(left) != SvTRUE(right))
	7	0	if (SvTRUE(left) != SvTRUE(right))
	1	6	if (SvTRUE(left) != SvTRUE(right))
	0	1	if (SvTRUE(left) != SvTRUE(right))
	0	0	if (SvTRUE(left) != SvTRUE(right))
	6	1	if (SvTRUE(left) != SvTRUE(right))
	0	0	if (SvTRUE(left) != SvTRUE(right))
	509	53774	if (SvTRUE(left) != SvTRUE(right))
1773	67988	17853470	while (cxix < 0 && top_si->si_type != PERLSI_MAIN) {
	2754	65234	while (cxix < 0 && top_si->si_type != PERLSI_MAIN) {
1778	17853470	65234	if (cxix < 0)
1781	8117267	9736203	if (PL_DBsub && GvCV(PL_DBsub) && cxix >= 0 &&
	28010	8089257	if (PL_DBsub && GvCV(PL_DBsub) && cxix >= 0 &&
	8392	19618	if (PL_DBsub && GvCV(PL_DBsub) && cxix >= 0 &&
1784	14021071	3832399	if (!count--)
1790	3832264	135	if (dbcxp) *dbcxp = cx;
1792	3827025	5374	if (CxTYPE(cx) == CXt_SUB || CxTYPE(cx) == CXt_FORMAT) {
1797	1505960	2321065	if (PL_DBsub && GvCV(PL_DBsub) && dbcxix >= 0 && ccstack[dbcxix].blk_sub.cv == GvCV(PL_DBsub))
	2966	1502994	if (PL_DBsub && GvCV(PL_DBsub) && dbcxix >= 0 && ccstack[dbcxix].blk_sub.cv == GvCV(PL_DBsub))
	979	1987	if (PL_DBsub && GvCV(PL_DBsub) && dbcxix >= 0 && ccstack[dbcxix].blk_sub.cv == GvCV(PL_DBsub))
1805	0	2687292	{
1813	3061855	835633	bool has_arg = MAXARG && TOPs;
	2	3061853	bool has_arg = MAXARG && TOPs;
1816	3061855	835633	if (MAXARG) {
1817	3061853	2	if (has_arg)
1818	3061853	0	count = POPi;
1823	65232	3832256	if (!cx) {
1824	65232	0	if (GIMME != G_ARRAY) {
	164	65068	if (GIMME != G_ARRAY) {
	0	164	if (GIMME != G_ARRAY) {
1834	3832238	0	? HvNAME_HEK((HV*)CopSTASH(cx->blk_oldcop))
1835	3832240	16	: NULL;
	3832238	2	: NULL;
	19	3832219	: NULL;
1836	3832247	9	if (GIMME != G_ARRAY) {
	1144964	2687292	if (GIMME != G_ARRAY) {
	0	1144964	if (GIMME != G_ARRAY) {
1838	5	1144959	if (!stash_hek)
1850	14	2687278	if (!stash_hek)
1855	0	2687278	PUSHTARG;
1857	2687292	0	mPUSHs(newSVpv(OutCopFILE(cx->blk_oldcop), 0));
1860	1008	2686284	if (!lcop)
1863	155639	2531653	if (!has_arg)
1865	2529287	2366	if (CxTYPE(cx) == CXt_SUB || CxTYPE(cx) == CXt_FORMAT) {
1868	2529287	0	if (cvgv && isGV(cvgv)) {
	2529287	0	if (cvgv && isGV(cvgv)) {
1872	304	2528983	PUSHs(boolSV(CxHASARGS(cx)));
1876	0	0	PUSHs(boolSV(CxHASARGS(cx)));
1884	1632852	898801	if (gimme == G_VOID)
1887	344384	554417	PUSHs(boolSV((gimme & G_WANT) == G_ARRAY));
1888	2366	2529287	if (CxTYPE(cx) == CXt_EVAL) {
1890	198	2168	if (CxOLD_OP_TYPE(cx) == OP_ENTEREVAL) {
1897	1364	804	else if (cx->blk_eval.old_namesv) {
1911	2528983	2670	if (CxTYPE(cx) == CXt_SUB && CxHASARGS(cx)
1912	43672	2485311	&& CopSTASH_eq(PL_curcop, PL_debstash))
1919	211	43460	if (AvMAX(PL_dbargs) < AvFILLp(ary) + off)
1921	0	43671	Copy(AvALLOC(ary), AvARRAY(PL_dbargs), AvFILLp(ary) + 1 + off, SV*);
1929	2354	2529298	if (old_warnings == pWARN_NONE)
1931	526631	2002667	else if (old_warnings == pWARN_STD && (PL_dowarn & G_WARN_ON) == 0)
	352310	174321	else if (old_warnings == pWARN_STD && (PL_dowarn & G_WARN_ON) == 0)
1933	1340601	1014376	else if (old_warnings == pWARN_ALL ||
	352310	988291	else if (old_warnings == pWARN_ALL ||
1934	352310	0	(old_warnings == pWARN_STD && PL_dowarn & G_WARN_ON)) {
1939	1366536	150	if (bits && (bits_all=hv_fetchs(bits, "all", FALSE))) {
	1366536	0	if (bits && (bits_all=hv_fetchs(bits, "all", FALSE))) {
1951	373099	2158553	PUSHs(cx->blk_oldcop->cop_hints_hash ?
1963	17	12	if (MAXARG < 1 || (!TOPs && !POPs))
	1	16	if (MAXARG < 1 || (!TOPs && !POPs))
	1	0	if (MAXARG < 1 || (!TOPs && !POPs))
1966	14	2	tmps = SvPVx_const(POPs, len);
1980	43897	337462	FREETMPS;
1982	0	381359	PERL_ASYNC_CHECK();
1984	381271	88	if (PL_op->op_flags & OPf_SPECIAL /* breakpoint */
	381271	0	if (PL_op->op_flags & OPf_SPECIAL /* breakpoint */
	224414	0	if (PL_op->op_flags & OPf_SPECIAL /* breakpoint */
	224410	4	if (PL_op->op_flags & OPf_SPECIAL /* breakpoint */
1985	224414	156857	|| SvIV(PL_DBsingle) || SvIV(PL_DBsignal) || SvIV(PL_DBtrace))
	0	0	|| SvIV(PL_DBsingle) || SvIV(PL_DBsignal) || SvIV(PL_DBtrace))
	224414	0	|| SvIV(PL_DBsingle) || SvIV(PL_DBsignal) || SvIV(PL_DBtrace))
	0	0	|| SvIV(PL_DBsingle) || SvIV(PL_DBsignal) || SvIV(PL_DBtrace))
	7826	216584	|| SvIV(PL_DBsingle) || SvIV(PL_DBsignal) || SvIV(PL_DBtrace))
	4	0	|| SvIV(PL_DBsingle) || SvIV(PL_DBsignal) || SvIV(PL_DBtrace))
1994	164775	0	if (gv && isGV_with_GP(gv))
	164774	1	if (gv && isGV_with_GP(gv))
	164774	0	if (gv && isGV_with_GP(gv))
1997	164774	1	if (!cv || (!CvROOT(cv) && !CvXSUB(cv)))
	1	164773	if (!cv || (!CvROOT(cv) && !CvXSUB(cv)))
	1	0	if (!cv || (!CvROOT(cv) && !CvXSUB(cv)))
2000	163925	848	if (CvDEPTH(cv) >= 1 && !(PL_debug & DEBUG_DB_RECURSE_FLAG))
	163904	21	if (CvDEPTH(cv) >= 1 && !(PL_debug & DEBUG_DB_RECURSE_FLAG))
2008	0	869	SAVESTACK_POS();
2013	0	869	if (CvISXSUB(cv)) {
2014	0	0	PUSHMARK(SP);
2016	0	0	FREETMPS;
2021	869	0	PUSHBLOCK(cx, CXt_SUB, SP);
2022	848	21	PUSHSUB_DB(cx);
2025	21	848	if (CvDEPTH(cv) >= 2) {
2044	116278882	33327907	if (flags & SVs_PADTMP) {
2048	17774328	131832461	if (gimme == G_SCALAR) {
2049	17774311	17	if (MARK < SP)
2050	9455572	1914412	*++newsp = ((SvFLAGS(*SP) & flags) || (padtmp && SvPADTMP(*SP)))
	3501042	5954530	*++newsp = ((SvFLAGS(*SP) & flags) || (padtmp && SvPADTMP(*SP)))
2051	11369984	6404327	? *SP : sv_mortalcopy(*SP);
2055	0	17	MEXTEND(MARK, 1);
2060	16056859	115775602	else if (gimme == G_ARRAY) {
2062	16087022	16056859	while (++MARK <= SP) {
2063	15651563	435459	if ((SvFLAGS(*MARK) & flags) || (padtmp && SvPADTMP(*MARK)))
	1209085	14442478	if ((SvFLAGS(*MARK) & flags) || (padtmp && SvPADTMP(*MARK)))
	347208	861877	if ((SvFLAGS(*MARK) & flags) || (padtmp && SvPADTMP(*MARK)))
2081	110473451	13702144	I32 gimme = GIMME_V;
2086	124174011	1584	PUSHBLOCK(cx, CXt_BLOCK, SP);
2099	1489137	107196609	if (PL_op->op_flags & OPf_SPECIAL) {
2106	100979264	7706482	gimme = OP_GIMME(PL_op, (cxstack_ix >= 0) ? gimme : G_SCALAR);
	7706482	0	gimme = OP_GIMME(PL_op, (cxstack_ix >= 0) ? gimme : G_SCALAR);
2121	15466667	0	const I32 gimme = GIMME_V;
2128	6911281	8555386	if (PL_op->op_targ) { /* "my" variable */
2129	6481418	429863	if (PL_op->op_private & OPpLVAL_INTRO) { /* for my $x (...) */
2149	8548927	6917740	if (PL_op->op_private & OPpITER_DEF)
2154	15466667	0	PUSHBLOCK(cx, cxtype, SP);
2156	4189066	11277601	if (PL_op->op_flags & OPf_STACKED) {
2158	310553	3878513	if (SvTYPE(maybe_ary) != SVt_PVAV) {
	3	310550	if (SvTYPE(maybe_ary) != SVt_PVAV) {
	4	310549	if (SvTYPE(maybe_ary) != SVt_PVAV) {
2163	38	310515	if (RANGE_IS_NUMERIC(sv,right)) {
	7	31	if (RANGE_IS_NUMERIC(sv,right)) {
	7	0	if (RANGE_IS_NUMERIC(sv,right)) {
	0	7	if (RANGE_IS_NUMERIC(sv,right)) {
	31	0	if (RANGE_IS_NUMERIC(sv,right)) {
	35	3	if (RANGE_IS_NUMERIC(sv,right)) {
	5	30	if (RANGE_IS_NUMERIC(sv,right)) {
	5	0	if (RANGE_IS_NUMERIC(sv,right)) {
	0	5	if (RANGE_IS_NUMERIC(sv,right)) {
	30	0	if (RANGE_IS_NUMERIC(sv,right)) {
	5	30	if (RANGE_IS_NUMERIC(sv,right)) {
	5	0	if (RANGE_IS_NUMERIC(sv,right)) {
	5	0	if (RANGE_IS_NUMERIC(sv,right)) {
	1	4	if (RANGE_IS_NUMERIC(sv,right)) {
	1	0	if (RANGE_IS_NUMERIC(sv,right)) {
	1	0	if (RANGE_IS_NUMERIC(sv,right)) {
	1	30	if (RANGE_IS_NUMERIC(sv,right)) {
	1	0	if (RANGE_IS_NUMERIC(sv,right)) {
	0	1	if (RANGE_IS_NUMERIC(sv,right)) {
	4	26	if (RANGE_IS_NUMERIC(sv,right)) {
	4	1	if (RANGE_IS_NUMERIC(sv,right)) {
	3	1	if (RANGE_IS_NUMERIC(sv,right)) {
	2	5	if (RANGE_IS_NUMERIC(sv,right)) {
	2	0	if (RANGE_IS_NUMERIC(sv,right)) {
	0	2	if (RANGE_IS_NUMERIC(sv,right)) {
	3	2	if (RANGE_IS_NUMERIC(sv,right)) {
2176	4	310519	if ((SvOK(sv) && ((SvNV_nomg(sv) <= (NV)IV_MIN)
	4	0	if ((SvOK(sv) && ((SvNV_nomg(sv) <= (NV)IV_MIN)
	0	4	if ((SvOK(sv) && ((SvNV_nomg(sv) <= (NV)IV_MIN)
	254832	55687	if ((SvOK(sv) && ((SvNV_nomg(sv) <= (NV)IV_MIN)
	254829	3	if ((SvOK(sv) && ((SvNV_nomg(sv) <= (NV)IV_MIN)
	55684	3	if ((SvOK(sv) && ((SvNV_nomg(sv) <= (NV)IV_MIN)
	310483	30	if ((SvOK(sv) && ((SvNV_nomg(sv) <= (NV)IV_MIN)
	178856	0	if ((SvOK(sv) && ((SvNV_nomg(sv) <= (NV)IV_MIN)
	178838	15	if ((SvOK(sv) && ((SvNV_nomg(sv) <= (NV)IV_MIN)
	145219	165291	if ((SvOK(sv) && ((SvNV_nomg(sv) <= (NV)IV_MIN)
	310484	23	if ((SvOK(sv) && ((SvNV_nomg(sv) <= (NV)IV_MIN)
	275989	120	if ((SvOK(sv) && ((SvNV_nomg(sv) <= (NV)IV_MIN)
	276092	11	if ((SvOK(sv) && ((SvNV_nomg(sv) <= (NV)IV_MIN)
2177	178839	131644	||
2178	17	13	((SvNV_nomg(sv) > 0) &&
	178853	3	((SvNV_nomg(sv) > 0) &&
2179	0	0	((SvUV_nomg(sv) > (UV)IV_MAX) ||
	178838	0	((SvUV_nomg(sv) > (UV)IV_MAX) ||
2180	15	0	(SvNV_nomg(sv) > (NV)UV_MAX)))))
2181	4	310510	||
2182	4	0	(SvOK(right) && ((SvNV_nomg(right) <= (NV)IV_MIN)
	0	4	(SvOK(right) && ((SvNV_nomg(right) <= (NV)IV_MIN)
	145219	0	(SvOK(right) && ((SvNV_nomg(right) <= (NV)IV_MIN)
	165288	3	(SvOK(right) && ((SvNV_nomg(right) <= (NV)IV_MIN)
2183	276095	34389	||
2184	14	9	((SvNV_nomg(right) > 0) &&
	275985	4	((SvNV_nomg(right) > 0) &&
2185	118	2	((SvUV_nomg(right) > (UV)IV_MAX) ||
	0	276092	((SvUV_nomg(right) > (UV)IV_MAX) ||
2186	0	11	(SvNV_nomg(right) > (NV)UV_MAX))
2190	310497	8	cx->blk_loop.state_u.lazyiv.cur = SvIV_nomg(sv);
2191	310500	5	cx->blk_loop.state_u.lazyiv.end = SvIV_nomg(right);
2206	3	27	(void) SvPV_force_nolen(cx->blk_loop.state_u.lazysv.cur);
2209	5	25	(void) SvPV_nolen_const(right);
2212	3	27	if (!SvOK(right)) {
	3	0	if (!SvOK(right)) {
	3	0	if (!SvOK(right)) {
2223	6731	3871782	AvFILL(cx->blk_loop.state_u.ary.ary) + 1 :
	0	6731	AvFILL(cx->blk_loop.state_u.ary.ary) + 1 :
2229	3631	11273970	if (PL_op->op_private & OPpITER_REVERSED) {
2244	14112827	3546638	const I32 gimme = GIMME_V;
2250	17659429	36	PUSHBLOCK(cx, CXt_LOOP_PLAIN, SP);
2274	28	30138493	POPLOOP(cx); /* Stack values are safe: release loop vars ... */
	14588059	15550462	POPLOOP(cx); /* Stack values are safe: release loop vars ... */
2288	579	221	if (gimme == G_SCALAR) {
2289	420	159	if (CxLVAL(cx) && !ref) { /* Leave it as it is if we can. */
	270	150	if (CxLVAL(cx) && !ref) { /* Leave it as it is if we can. */
2292	268	2	if (MARK < SP) {
2294	265	3	if ((SvPADTMP(TOPs) ||
	4	261	if ((SvPADTMP(TOPs) ||
2297	7	0	) &&
2301	5	2	: "a readonly value" : "a temporary";
	3	2	: "a readonly value" : "a temporary";
2311	9	0	POPSUB(cx,sv);
	0	9	POPSUB(cx,sv);
	0	9	POPSUB(cx,sv);
	9	0	POPSUB(cx,sv);
	0	9	POPSUB(cx,sv);
2318	309	0	if (MARK < SP) {
	0	0	if (MARK < SP) {
2320	570	0	if (cx->blk_sub.cv && CvDEPTH(cx->blk_sub.cv) > 1) {
	7	563	if (cx->blk_sub.cv && CvDEPTH(cx->blk_sub.cv) > 1) {
2321	5	2	if (!SvPADTMP(*SP)) {
2323	4	1	FREETMPS;
2329	0	2	FREETMPS;
2338	119	444	: !SvTEMP(*SP)
2340	399	45	: *SP;
2346	12	558	if (CxLVAL(cx) & OPpDEREF) {
	0	12	if (CxLVAL(cx) & OPpDEREF) {
2348	12	0	if (!SvOK(TOPs)) {
	12	0	if (!SvOK(TOPs)) {
	12	0	if (!SvOK(TOPs)) {
2353	180	41	else if (gimme == G_ARRAY) {
2355	98	82	if (ref || !CxLVAL(cx))
	28	70	if (ref || !CxLVAL(cx))
2356	212	152	while (++MARK <= SP)
2360	44	168	: SvTEMP(*MARK)
2362	24	144	: sv_2mortal(SvREFCNT_inc_simple_NN(*MARK));
2363	28	24	else while (++MARK <= SP) {
2364	25	3	if (*MARK != &PL_sv_undef
2365	23	2	&& (SvPADTMP(*MARK)
2366	2	21	|| (SvFLAGS(*MARK) & (SVf_READONLY|SVf_FAKE))
2375	4	0	POPSUB(cx,sv);
	0	4	POPSUB(cx,sv);
	0	4	POPSUB(cx,sv);
	4	0	POPSUB(cx,sv);
	0	4	POPSUB(cx,sv);
2379	1	3	Perl_croak(aTHX_
2387	0	24	: sv_2mortal(SvREFCNT_inc_simple_NN(*MARK));
2410	6831	121378823	if (cxix < 0) {
2411	6831	0	if (CxMULTICALL(cxstack)) { /* In this case we must be in a
2422	9652768	111726055	if (cxix < cxstack_ix)
2425	17463	121361360	if (CxMULTICALL(&cxstack[cxix])) {
2427	0	17463	if (gimme == G_VOID)
2429	17463	0	else if (gimme == G_SCALAR) {
2445	4815	0	if (!(PL_in_eval & EVAL_KEEPERR))
2447	4806	9	POPEVAL(cx);
	0	4806	POPEVAL(cx);
	4788	27	POPEVAL(cx);
2450	4804	11	if (CxTRYBLOCK(cx))
2452	8	4796	if (optype == OP_REQUIRE &&
	8	0	if (optype == OP_REQUIRE &&
	0	8	if (optype == OP_REQUIRE &&
	0	8	if (optype == OP_REQUIRE &&
	1	7	if (optype == OP_REQUIRE &&
	7	0	if (optype == OP_REQUIRE &&
2453	8	0	(MARK == SP || (gimme == G_SCALAR && !SvTRUE(*SP))) )
	8	0	(MARK == SP || (gimme == G_SCALAR && !SvTRUE(*SP))) )
	0	0	(MARK == SP || (gimme == G_SCALAR && !SvTRUE(*SP))) )
	0	0	(MARK == SP || (gimme == G_SCALAR && !SvTRUE(*SP))) )
	0	0	(MARK == SP || (gimme == G_SCALAR && !SvTRUE(*SP))) )
	1	0	(MARK == SP || (gimme == G_SCALAR && !SvTRUE(*SP))) )
	0	1	(MARK == SP || (gimme == G_SCALAR && !SvTRUE(*SP))) )
	0	0	(MARK == SP || (gimme == G_SCALAR && !SvTRUE(*SP))) )
	0	0	(MARK == SP || (gimme == G_SCALAR && !SvTRUE(*SP))) )
	0	1	(MARK == SP || (gimme == G_SCALAR && !SvTRUE(*SP))) )
	7	0	(MARK == SP || (gimme == G_SCALAR && !SvTRUE(*SP))) )
	0	7	(MARK == SP || (gimme == G_SCALAR && !SvTRUE(*SP))) )
	0	0	(MARK == SP || (gimme == G_SCALAR && !SvTRUE(*SP))) )
	0	0	(MARK == SP || (gimme == G_SCALAR && !SvTRUE(*SP))) )
	0	7	(MARK == SP || (gimme == G_SCALAR && !SvTRUE(*SP))) )
	0	0	(MARK == SP || (gimme == G_SCALAR && !SvTRUE(*SP))) )
2456	0	0	(void)hv_delete(GvHVn(PL_incgv),
	0	0	(void)hv_delete(GvHVn(PL_incgv),
2465	32	0	POPFORMAT(cx);
	32	0	POPFORMAT(cx);
2472	83	121361277	if (lval) S_return_lvalues(aTHX_ MARK, SP, newsp, gimme, cx, newpm);
2474	101013929	20347348	if (gimme == G_SCALAR) {
2475	94595943	6417986	if (MARK < SP) {
2476	94591149	4794	if (popsub2) {
2477	94591149	0	if (cx->blk_sub.cv && CvDEPTH(cx->blk_sub.cv) > 1) {
	10280568	84310581	if (cx->blk_sub.cv && CvDEPTH(cx->blk_sub.cv) > 1) {
2478	4719522	5561046	if (SvTEMP(TOPs) && SvREFCNT(TOPs) == 1
2481	4719522	0	FREETMPS;
2486	320408	5240638	FREETMPS;
2491	7767498	76543083	else if (SvTEMP(*SP) && SvREFCNT(*SP) == 1
2504	8721378	11625970	else if (gimme == G_ARRAY) {
2505	14188007	8721376	while (++MARK <= SP) {
2507	1956066	12231941	&& !SvGMAGICAL(*MARK)
2508	14188007	0	? *MARK : sv_mortalcopy(*MARK);
2517	121356506	4847	if (popsub2) {
2519	120179059	1177447	POPSUB(cx,sv); /* release CV and @_ ... */
	37439	120141620	POPSUB(cx,sv); /* release CV and @_ ... */
	0	121356506	POPSUB(cx,sv); /* release CV and @_ ... */
	121356506	0	POPSUB(cx,sv); /* release CV and @_ ... */
	10393001	110963505	POPSUB(cx,sv); /* release CV and @_ ... */
2526	4815	121356538	if (clear_errsv) {
2527	0	4815	CLEAR_ERRSV();
	0	4815	CLEAR_ERRSV();
	0	4815	CLEAR_ERRSV();
2543	717	0	if (CxMULTICALL(&cxstack[cxstack_ix]))
2554	667	40	POPSUB(cx,sv); /* Stack values are safe: release CV and @_ ... */
	0	667	POPSUB(cx,sv); /* Stack values are safe: release CV and @_ ... */
	0	707	POPSUB(cx,sv); /* Stack values are safe: release CV and @_ ... */
	707	0	POPSUB(cx,sv); /* Stack values are safe: release CV and @_ ... */
	6	701	POPSUB(cx,sv); /* Stack values are safe: release CV and @_ ... */
2567	5818233	164439	if (PL_op->op_flags & OPf_SPECIAL) {
2569	11	5818222	if (cxix < 0)
2579	3	164436	: (label_len = strlen(cPVOP->op_pv), cPVOP->op_pv);
	3	0	: (label_len = strlen(cPVOP->op_pv), cPVOP->op_pv);
2583	3	164436	: (cPVOP->op_private & OPpPV_IS_UTF8) ? SVf_UTF8 : 0;
	164431	5	: (cPVOP->op_private & OPpPV_IS_UTF8) ? SVf_UTF8 : 0;
2586	5	164434	if (cxix < 0)
2588	0	5	Perl_croak(aTHX_ "Label not found for \"%s %"SVf"\"",
2590	0	0	SVfARG(PL_op->op_flags & OPf_STACKED
2597	3766484	2216172	if (cxix < cxstack_ix)
2634	0	0	POPEVAL(cx);
	0	0	POPEVAL(cx);
	0	0	POPEVAL(cx);
2638	0	0	POPFORMAT(cx);
	0	0	POPFORMAT(cx);
2646	1032369	0	PL_stack_sp = adjust_stack_on_leave(newsp, PL_stack_sp, MARK, gimme,
2657	2	1032367	POPLOOP(cx); /* release loop vars ... */
	89000	943369	POPLOOP(cx); /* release loop vars ... */
2661	0	0	POPSUB(cx,sv); /* release CV and @_ ... */
	0	0	POPSUB(cx,sv); /* release CV and @_ ... */
	0	0	POPSUB(cx,sv); /* release CV and @_ ... */
	0	0	POPSUB(cx,sv); /* release CV and @_ ... */
	0	0	POPSUB(cx,sv); /* release CV and @_ ... */
2683	2797924	2019325	if (PL_scopestack_ix < inner)
2686	0	4817249	PERL_ASYNC_CHECK();
2698	26528	106510	if (redo_op->op_type == OP_ENTER) {
2707	133014	24	LEAVE_SCOPE(oldsave);
2708	33895	99143	FREETMPS;
2710	0	133038	PERL_ASYNC_CHECK();
2723	0	474187	if (ops >= oplimit)
2725	451507	22680	if (o->op_type == OP_LEAVE ||
2727	450507	1000	o->op_type == OP_LEAVELOOP ||
2728	41	450466	o->op_type == OP_LEAVESUB ||
2732	0	23721	if (ops >= oplimit)
2736	239077	235110	if (o->op_flags & OPf_KIDS) {
2739	516876	236475	for (kid = cUNOPo->op_first; kid; kid = kid->op_sibling) {
2740	66948	449928	if (kid->op_type == OP_NEXTSTATE || kid->op_type == OP_DBSTATE) {
2745	4280	62668	if (kid_label && (
	0	4280	if (kid_label && (
	0	0	if (kid_label && (
	3767	513	if (kid_label && (
	1678	2602	if (kid_label && (
2754	3767	0	: ( len == kid_label_len && ((kid_label == label)
2755	1165	2602	|| memEQ(kid_label, label, len)))))
2759	469038	232201	for (kid = cUNOPo->op_first; kid; kid = kid->op_sibling) {
2760	1429	467609	if (kid == PL_lastgotoprobe)
2762	42328	425281	if (kid->op_type == OP_NEXTSTATE || kid->op_type == OP_DBSTATE) {
2763	2978	39350	if (ops == opstack)
2765	22913	16437	else if (ops[-1]->op_type == OP_NEXTSTATE ||
2771	463335	4274	if ((o = dofindlabel(kid, label, len, flags, ops, oplimit)))
2793	60103	2609	if (PL_op->op_flags & OPf_STACKED) {
	1	60102	if (PL_op->op_flags & OPf_STACKED) {
2798	60092	11	if (SvROK(sv) && SvTYPE(SvRV(sv)) == SVt_PVCV) {
	60092	0	if (SvROK(sv) && SvTYPE(SvRV(sv)) == SVt_PVCV) {
2806	3	60090	if (!CvROOT(cv) && !CvXSUB(cv)) {
	3	0	if (!CvROOT(cv) && !CvXSUB(cv)) {
2808	3	0	if (gv) {
2812	0	3	if (cv != GvCV(gv) && (cv = GvCV(gv)))
	0	0	if (cv != GvCV(gv) && (cv = GvCV(gv)))
2814	2	1	autogv = gv_autoload_pvn(GvSTASH(gv), GvNAME(gv),
2817	1	2	if (autogv && (cv = GvCV(autogv)))
	1	0	if (autogv && (cv = GvCV(autogv)))
2827	60090	0	SvREFCNT_inc_simple_void(cv); /* avoid premature free during unwind */
2828	59948	142	FREETMPS;
2830	286	59804	if (cxix < cxstack_ix) {
2831	5	281	if (cxix < 0) {
2840	4	60081	if (CxTYPE(cx) == CXt_EVAL) {
2842	3	1	if (CxREALEVAL(cx))
2849	3	60078	else if (CxMULTICALL(cx))
2854	60039	39	if (CxTYPE(cx) == CXt_SUB && CxHASARGS(cx)) {
2859	60037	2	if (AvREAL(av) || av == arg) {
2868	60078	0	SvREFCNT_inc_simple_void(arg);
2869	60078	0	if (CxTYPE(cx) == CXt_SUB &&
	60077	1	if (CxTYPE(cx) == CXt_SUB &&
2873	60078	0	LEAVE_SCOPE(oldsave);
2877	1	60077	if (!CvROOT(cv) && !CvXSUB(cv)) {
	1	0	if (!CvROOT(cv) && !CvXSUB(cv)) {
2880	1	0	if (gv) {
2892	18	60059	if (CvISXSUB(cv)) {
	0	18	if (CvISXSUB(cv)) {
2904	0	18	Copy(AvARRAY(arg), SP + 1, items, SV*);
2907	2	16	if (AvREAL(arg)) {
2909	2	2	for (index=0; index
2913	15	3	if (CxTYPE(cx) == CXt_SUB && CxHASARGS(cx)) {
2923	0	18	PUSHMARK(mark);
2927	0	14	PERL_ASYNC_CHECK();
2936	59393	666	if (CvDEPTH(cv) < 2)
2939	1	665	if (CvDEPTH(cv) == PERL_SUB_DEPTH_WARN && ckWARN(WARN_RECURSION))
	0	1	if (CvDEPTH(cv) == PERL_SUB_DEPTH_WARN && ckWARN(WARN_RECURSION))
2946	60023	36	if (CxHASARGS(cx))
2961	1	60022	if (arg != GvAV(PL_defgv)) {
2968	34444	25615	if (PERLDB_SUB) { /* Checking curstash breaks DProf. */
	21	34423	if (PERLDB_SUB) { /* Checking curstash breaks DProf. */
2970	21	0	if (PERLDB_GOTO) {
	0	21	if (PERLDB_GOTO) {
2972	0	0	if (gotocv) {
2973	0	0	PUSHMARK( PL_stack_sp );
2979	0	60059	PERL_ASYNC_CHECK();
2984	11	0	label = SvPV_nomg_const(sv, label_len);
2988	2608	1	else if (!(PL_op->op_flags & OPf_SPECIAL)) {
2990	2599	9	label_flags = (cPVOP->op_private & OPpPV_IS_UTF8) ? SVf_UTF8 : 0;
2993	2619	1	if (!(do_dump || label_len)) DIE(aTHX_ "%s", must_have_label);
	3	2616	if (!(do_dump || label_len)) DIE(aTHX_ "%s", must_have_label);
2995	0	2617	PERL_ASYNC_CHECK();
2997	2617	0	if (label_len) {
3007	6577	8	for (ix = cxstack_ix; ix >= 0; ix--) {
3012	37	8	if (!CxTRYBLOCK(cx)) {
3014	1	36	last_eval_cx->blk_eval.old_eval_root :
3031	5046	33	if (ix) {
3038	1006	0	if (CvDEPTH(cx->blk_sub.cv) && !CxMULTICALL(cx)) {
	1000	6	if (CvDEPTH(cx->blk_sub.cv) && !CxMULTICALL(cx)) {
3047	0	0	if (ix)
3053	6570	0	if (gotoprobe) {
3056	3974	2596	if (retop)
3058	2587	1387	if (gotoprobe->op_sibling &&
	109	2478	if (gotoprobe->op_sibling &&
3059	8	101	gotoprobe->op_sibling->op_type == OP_UNSTACK &&
3064	2	6	if (retop)
3070	8	2602	if (!retop)
3078	40	2562	if (leaving_eval && *enterops && enterops[1]) {
	16	24	if (leaving_eval && *enterops && enterops[1]) {
	4	12	if (leaving_eval && *enterops && enterops[1]) {
3080	6	2	for (i = 1; enterops[i]; i++)
3081	2	4	if (enterops[i]->op_type == OP_ENTERITER)
3085	2576	24	if (*enterops && enterops[1]) {
	14	2562	if (*enterops && enterops[1]) {
3086	8	6	I32 i = enterops[1]->op_type == OP_ENTER && in_block ? 2 : 1;
	1	7	I32 i = enterops[1]->op_type == OP_ENTER && in_block ? 2 : 1;
3087	7	7	if (enterops[i])
3093	2521	79	if (ix < cxstack_ix) {
3096	0	2521	if (ix < 0)
3101	2518	3	LEAVE_SCOPE(oldsave);
3106	2576	24	if (*enterops && enterops[1]) {
	14	2562	if (*enterops && enterops[1]) {
3108	8	6	ix = enterops[1]->op_type == OP_ENTER && in_block ? 2 : 1;
	1	7	ix = enterops[1]->op_type == OP_ENTER && in_block ? 2 : 1;
3109	15	14	for (; enterops[ix]; ix++) {
3113	0	15	if (PL_op->op_type == OP_ENTERITER)
3121	0	2600	if (do_dump) {
3134	0	2600	PERL_ASYNC_CHECK();
3144	538	96	if (MAXARG < 1)
3146	537	1	else if (!TOPs) {
3150	446	91	anum = SvIVx(POPs);
3180	1193	470	while (s && s < send) {
3185	723	470	if (t)
3234	610	93	if (PL_restartop && PL_restartjmpenv == PL_top_env) {
	433	177	if (PL_restartop && PL_restartjmpenv == PL_top_env) {
3244	274	0	JMPENV_JUMP(ret);
	0	0	JMPENV_JUMP(ret);
3279	1891095	1597871	if (db_seqp)
3283	1891090	5	: PL_curcop->cop_seq;
3285	3489031	142411	for (si = PL_curstackinfo; si; si = si->si_prev) {
3287	4682534	142476	for (ix = si->si_cxix; ix >= 0; ix--) {
3290	3213942	1468592	if (CxTYPE(cx) == CXt_SUB || CxTYPE(cx) == CXt_FORMAT) {
3293	1650213	1563729	if (db_seqp && PL_debstash && CvSTASH(cv) == PL_debstash) {
	1650213	0	if (db_seqp && PL_debstash && CvSTASH(cv) == PL_debstash) {
	447	1649766	if (db_seqp && PL_debstash && CvSTASH(cv) == PL_debstash) {
3297	4	3213491	if (cx->cx_type & CXp_SUB_RE)
3300	138170	1330422	else if (CxTYPE(cx) == CXt_EVAL && !CxTRYBLOCK(cx))
	133135	5035	else if (CxTYPE(cx) == CXt_EVAL && !CxTRYBLOCK(cx))
3302	3346626	1335457	if (cv) {
3305	10	0	if (!CvPADLIST(cv)
3306	6	4	|| PadlistNAMES(CvPADLIST(cv)) != INT2PTR(PADNAMELIST *, arg))
3310	65	60	if (level++ != arg) continue;
3318	142405	6	return cond == FIND_RUNCV_padid_eq ? NULL : PL_main_cv;
3343	0	0	JMPENV_JUMP(ret);
	0	0	JMPENV_JUMP(ret);
3376	295325	1902123	PL_in_eval = (in_require
	1902079	44	PL_in_eval = (in_require
3382	0	2197448	PUSHMARK(SP);
3404	1470523	726925	if (CopSTASH_ne(PL_curcop, PL_curstash)) {
3407	1	1470522	if (SvTYPE(PL_curstash) != SVt_PVHV) PL_curstash = NULL;
3408	1470522	0	else SvREFCNT_inc_simple_void(PL_curstash);
3431	1902123	295325	if ((saveop->op_type != OP_REQUIRE) && (saveop->op_flags & OPf_SPECIAL))
	12	1902111	if ((saveop->op_type != OP_REQUIRE) && (saveop->op_flags & OPf_SPECIAL))
3434	559	2196877	CLEAR_ERRSV();
	0	2196877	CLEAR_ERRSV();
	4	2196873	CLEAR_ERRSV();
3437	306353	1891095	if (clear_hints) {
3442	47	1891048	PL_hints = saveop->op_private & OPpEVAL_COPHH
3450	44	1891051	if (PL_in_eval & EVAL_RE_REPARSING)
3453	152399	1738696	if (hh) {
3460	306353	1891095	if (clear_hints) {
3461	47	306306	if (PL_dowarn & G_WARN_ALL_ON)
3463	59	306247	else if (PL_dowarn & G_WARN_ALL_OFF)
3470	202733	1688362	DUP_WARNINGS(oldcurcop->cop_warnings);
	180	202553	DUP_WARNINGS(oldcurcop->cop_warnings);
3472	13	1891082	if (Perl_cop_fetch_label(aTHX_ oldcurcop, NULL, NULL)) {
3485	139339	2058109	CALL_BLOCK_HOOKS(bhk_eval, saveop);
	0	278678	CALL_BLOCK_HOOKS(bhk_eval, saveop);
	139339	139339	CALL_BLOCK_HOOKS(bhk_eval, saveop);
	139339	0	CALL_BLOCK_HOOKS(bhk_eval, saveop);
	139339	0	CALL_BLOCK_HOOKS(bhk_eval, saveop);
	278678	139339	CALL_BLOCK_HOOKS(bhk_eval, saveop);
3490	1902123	295325	yystatus = (!in_require && CATCH_GET) ? S_try_yyparse(aTHX_ GRAMPROG) : yyparse(GRAMPROG);
	4331	1897792	yystatus = (!in_require && CATCH_GET) ? S_try_yyparse(aTHX_ GRAMPROG) : yyparse(GRAMPROG);
3492	2165989	38	if (yystatus || PL_parser->error_count || !PL_eval_root) {
	2165396	593	if (yystatus || PL_parser->error_count || !PL_eval_root) {
	0	2165396	if (yystatus || PL_parser->error_count || !PL_eval_root) {
3507	624	7	if (yystatus != 3) {
3508	593	31	if (PL_eval_root) {
3514	624	0	POPEVAL(cx);
	0	624	POPEVAL(cx);
	11	613	POPEVAL(cx);
3520	631	0	errsv = ERRSV;
3521	11	620	if (in_require) {
3522	0	11	if (!cx) {
3529	0	11	(void)hv_store(GvHVn(PL_incgv),
	11	0	(void)hv_store(GvHVn(PL_incgv),
3533	0	11	Perl_croak(aTHX_ "%"SVf"Compilation failed in require",
3539	620	0	if (!*(SvPV_nolen_const(errsv))) {
	0	620	if (!*(SvPV_nolen_const(errsv))) {
3543	616	4	if (gimme != G_ARRAY) PUSHs(&PL_sv_undef);
3557	1678917	486479	if (PERLDB_INTER && saveop->op_type == OP_REQUIRE) {
	2292	1676625	if (PERLDB_INTER && saveop->op_type == OP_REQUIRE) {
	1575	717	if (PERLDB_INTER && saveop->op_type == OP_REQUIRE) {
3559	384	1191	if (cv) {
3561	0	384	PUSHMARK(SP);
3562	0	384	XPUSHs(MUTABLE_SV(CopFILEGV(&PL_compiling)));
3568	2165396	0	if (PL_unitcheckav) {
3589	1583582	0	const char *p = SvPV_nolen_const(name);
3600	1583582	0	if (!IS_SAFE_PATHNAME(name, "require"))
3605	306271	1277311	if (st_rc < 0 || S_ISDIR(st.st_mode) || S_ISBLK(st.st_mode)) {
	306269	2	if (st_rc < 0 || S_ISDIR(st.st_mode) || S_ISBLK(st.st_mode)) {
	306269	0	if (st_rc < 0 || S_ISDIR(st.st_mode) || S_ISBLK(st.st_mode)) {
3621	1583583	0	const char *p = SvPV_const(name, namelen);
3629	1583582	1	if (!IS_SAFE_PATHNAME(name, "require"))
3632	1583581	1	if (namelen > 3 && memEQs(p + namelen - 3, 3, ".pm")) {
	1508367	75214	if (namelen > 3 && memEQs(p + namelen - 3, 3, ".pm")) {
3636	1508367	0	SvSetSV_nosteal(pmcsv,name);
3639	1508367	0	if (PerlLIO_stat(SvPV_nolen_const(pmcsv), &pmcstat) >= 0)
	4	1508363	if (PerlLIO_stat(SvPV_nolen_const(pmcsv), &pmcstat) >= 0)
3655	3343260	34	if (PERL_FILE_IS_ABSOLUTE(name)
3663	6223	3337037	|| (*name == '.' && (name[1] == '/' ||
	1603	4620	|| (*name == '.' && (name[1] == '/' ||
	1601	2	|| (*name == '.' && (name[1] == '/' ||
3664	0	1601	(name[1] == '.' && name[2] == '/')))
3691	3425343	7	const I32 gimme = GIMME_V;
3704	3343306	82044	if ( (SvNIOKp(sv) || SvVOK(sv)) && PL_op->op_type != OP_DOFILE) {
	228	3343078	if ( (SvNIOKp(sv) || SvVOK(sv)) && PL_op->op_type != OP_DOFILE) {
	0	228	if ( (SvNIOKp(sv) || SvVOK(sv)) && PL_op->op_type != OP_DOFILE) {
	82043	1	if ( (SvNIOKp(sv) || SvVOK(sv)) && PL_op->op_type != OP_DOFILE) {
3706	8799	73244	if (!Perl_sv_derived_from_pvn(aTHX_ PL_patchlevel, STR_WITH_LEN("version"), 0))
3708	82040	3	if (cUNOP->op_first->op_type == OP_CONST && cUNOP->op_first->op_private & OPpCONST_NOVER) {
	17	82023	if (cUNOP->op_first->op_type == OP_CONST && cUNOP->op_first->op_private & OPpCONST_NOVER) {
3709	9	8	if ( vcmp(sv,PL_patchlevel) <= 0 )
3716	18	82008	if ( vcmp(sv,PL_patchlevel) > 0 ) {
3725	18	0	first = SvIV(*av_fetch(lav,0,0));
3726	10	8	if ( first > (int)PERL_REVISION /* probably 'use 6.0' */
3727	8	2	|| hv_exists(MUTABLE_HV(req), "qv", 2 ) /* qv style */
3728	5	3	|| av_len(lav) > 1 /* FP with > 3 digits */
3729	0	5	|| strstr(SvPVX(pv),".0") /* FP with leading 0 */
3741	5	0	if (av_len(lav)>=1)
3742	5	0	second = SvIV(*av_fetch(lav,1,0));
3744	2	3	second /= second >= 600 ? 100 : 10;
3761	3343265	42	name = SvPV_const(sv, len);
3762	3343307	0	if (!(name && len > 0 && *name))
	3343297	10	if (!(name && len > 0 && *name))
	0	3343297	if (!(name && len > 0 && *name))
3764	3	3343294	if (!IS_SAFE_PATHNAME(sv, "require")) {
3765	3	0	DIE(aTHX_ "Can't locate %s: %s",
3770	19513	3323781	TAINT_PROPER("require");
3796	3332255	11039	if (PL_op->op_type == OP_REQUIRE) {
3797	3332255	0	SV * const * const svp = hv_fetch(GvHVn(PL_incgv),
3799	3015307	316948	if ( svp ) {
3800	3014984	323	if (*svp != &PL_sv_undef)
3812	6255	321732	if (!path_searchable) {
3817	321742	6245	if (!tryrsfp && !(errno == EACCES && !path_searchable)) {
	1	321741	if (!tryrsfp && !(errno == EACCES && !path_searchable)) {
	0	1	if (!tryrsfp && !(errno == EACCES && !path_searchable)) {
3818	321741	0	AV * const ar = GvAVn(PL_incgv);
3825	114	1598987	for (i = 0; i <= AvFILL(ar); i++) {
	1577473	21628	for (i = 0; i <= AvFILL(ar); i++) {
3828	107	1577366	if (SvTIED_mg((const SV *)ar, PERL_MAGIC_tied))
	107	0	if (SvTIED_mg((const SV *)ar, PERL_MAGIC_tied))
3835	10	108	if (SvTYPE(SvRV(loader)) == SVt_PVAV
3836	8	2	&& !sv_isobject(loader))
3850	0	118	PUSHMARK(SP);
3854	6	112	if (sv_isobject(loader))
3860	112	2	if (count > 0) {
3867	86	26	if (SvROK(arg) && (SvTYPE(SvRV(arg)) <= SVt_PVLV)
	72	14	if (SvROK(arg) && (SvTYPE(SvRV(arg)) <= SVt_PVLV)
3868	62	10	&& !isGV_with_GP(SvRV(arg))) {
	0	62	&& !isGV_with_GP(SvRV(arg))) {
3871	5	5	if (i < count) {
3876	86	26	if (SvROK(arg) && isGV_with_GP(SvRV(arg))) {
	65	21	if (SvROK(arg) && isGV_with_GP(SvRV(arg))) {
	65	0	if (SvROK(arg) && isGV_with_GP(SvRV(arg))) {
3880	65	47	if (isGV_with_GP(arg)) {
	65	0	if (isGV_with_GP(arg)) {
3881	65	0	IO * const io = GvIO((const GV *)arg);
	65	0	IO * const io = GvIO((const GV *)arg);
	65	0	IO * const io = GvIO((const GV *)arg);
3885	65	0	if (io) {
3887	0	65	if (IoOFP(io) && IoOFP(io) != IoIFP(io)) {
	0	0	if (IoOFP(io) && IoOFP(io) != IoIFP(io)) {
3894	22	43	if (i < count) {
3899	43	69	if (SvROK(arg) && SvTYPE(SvRV(arg)) == SVt_PVCV) {
	38	5	if (SvROK(arg) && SvTYPE(SvRV(arg)) == SVt_PVCV) {
3903	21	17	if (i < count) {
3905	21	0	SvREFCNT_inc_simple_void(filter_state);
3909	47	65	if (!tryrsfp && (filter_cache || filter_sub)) {
	21	26	if (!tryrsfp && (filter_cache || filter_sub)) {
3917	113	1	FREETMPS;
3922	114	0	svp = hv_fetch(GvHVn(PL_incgv), name, len, 0);
3923	12	102	if (svp)
3924	4	8	tryname = SvPV_nolen_const(*svp);
3926	28	86	if (tryrsfp) {
3933	0	28	if (filter_state) {
3937	0	28	if (filter_sub) {
3943	1577328	27	if (path_searchable) {
3947	0	1577328	if (SvOK(dirsv)) {
	0	0	if (SvOK(dirsv)) {
	0	0	if (SvOK(dirsv)) {
3948	1577328	0	dir = SvPV_const(dirsv, dirlen);
3980	374983	1202345	char *tmp = SvGROW(namesv, dirlen + len + 2);
	327988	46995	char *tmp = SvGROW(namesv, dirlen + len + 2);
3986	1577328	0	if (!dirlen || *(tmp-1) != '/') {
	1577083	245	if (!dirlen || *(tmp-1) != '/') {
3999	16382	1560946	TAINT_PROPER("require");
4002	300022	1277306	if (tryrsfp) {
4003	72710	227312	if (tryname[0] == '.' && tryname[1] == '/') {
	2388	70322	if (tryname[0] == '.' && tryname[1] == '/') {
4005	0	2388	while (*++tryname == '/') {}
4009	1277305	1	else if (errno == EMFILE || errno == EACCES) {
4024	21630	306353	if (!tryrsfp) {
4025	21619	11	if (PL_op->op_type == OP_REQUIRE) {
4026	2	21617	if(saved_errno == EMFILE || saved_errno == EACCES) {
4030	21617	0	if (namesv) { /* did we lookup @INC? */
4031	21617	0	AV * const ar = GvAVn(PL_incgv);
4035	30	255233	for (i = 0; i <= AvFILL(ar); i++) {
	233646	21617	for (i = 0; i <= AvFILL(ar); i++) {
4039	21614	3	if (len >= 4 && memEQ(name + len - 3, ".pm", 4)) {
	21602	12	if (len >= 4 && memEQ(name + len - 3, ".pm", 4)) {
4042	260372	21602	for (c = name; c < e; c++) {
4043	21377	238995	if (*c == '/') {
4052	14	1	else if (len >= 2 && memEQ(name + len - 2, ".h", 3)) {
	2	12	else if (len >= 2 && memEQ(name + len - 2, ".h", 3)) {
4055	12	1	else if (len >= 3 && memEQ(name + len - 3, ".ph", 4)) {
	5	7	else if (len >= 3 && memEQ(name + len - 3, ".ph", 4)) {
4068	0	11	CLEAR_ERRSV();
	0	11	CLEAR_ERRSV();
	0	11	CLEAR_ERRSV();
4077	306267	86	if (!hook_sv) {
4078	306267	0	(void)hv_store(GvHVn(PL_incgv),
4081	86	0	SV** const svp = hv_fetch(GvHVn(PL_incgv), unixname, unixlen, 0);
4082	74	12	if (!svp)
4083	74	0	(void)hv_store(GvHVn(PL_incgv),
4093	44	306309	if (filter_sub || filter_cache) {
4098	10	34	SV * const fc = filter_cache ? newSV(0) : NULL;
4100	10	34	if (fc) sv_copypv(fc, filter_cache);
4108	306353	0	PUSHBLOCK(cx, CXt_EVAL, SP);
4109	306353	0	PUSHEVAL(cx, name);
	306353	0	PUSHEVAL(cx, name);
4121	305905	0	if (doeval(gimme, NULL, PL_curcop->cop_seq, NULL))
4122	6135	299770	op = DOCATCH(PL_eval_start);
4142	0	142120	mXPUSHs(MUTABLE_SV(hv_copy_hints_hv(MUTABLE_HV(cSVOP_sv))));
4152	1884429	6797	const I32 gimme = GIMME_V;
4163	142120	1749106	if (PL_op->op_private & OPpEVAL_HAS_HH) {
4166	1738848	10258	else if (PL_hints & HINT_LOCALIZE_HH || (
	41	1738807	else if (PL_hints & HINT_LOCALIZE_HH || (
4168	22	19	&& PL_curcop->cop_hints & HINT_LOCALIZE_HH
4174	154	1891072	if (!SvPOK(sv)) {
4179	0	154	const char * const p = SvPV_const(sv, len);
4184	0	154	if (bytes && SvUTF8(sv))
	0	0	if (bytes && SvUTF8(sv))
4185	0	0	SvPVbyte_force(sv, len);
4187	357	1890715	else if (bytes && SvUTF8(sv)) {
	4	353	else if (bytes && SvUTF8(sv)) {
4192	0	4	SvPVbyte_force(sv,len);
4196	1377	1889848	TAINT_IF(SvTAINTED(sv));
	130	1247	TAINT_IF(SvTAINTED(sv));
4197	4593	1886632	TAINT_PROPER("eval");
4200	1822343	68752	lex_start(sv, NULL, lex_flags | (PL_op->op_private & OPpEVAL_UNICODE
	1821987	356	lex_start(sv, NULL, lex_flags | (PL_op->op_private & OPpEVAL_UNICODE
4209	1646260	244835	if (PERLDB_NAMEEVAL && CopLINE(PL_curcop)) {
	1646153	107	if (PERLDB_NAMEEVAL && CopLINE(PL_curcop)) {
	1646153	0	if (PERLDB_NAMEEVAL && CopLINE(PL_curcop)) {
4211	1646153	0	Perl_sv_setpvf(aTHX_ temp_sv, "_<(eval %lu)[%s:%"IVdf"]",
4218	0	244942	len = my_snprintf(tmpbuf, sizeof(tbuf), "_<(eval %lu)", (unsigned long)++PL_evalseq);
4230	1891095	0	PUSHBLOCK(cx, (CXt_EVAL|CXp_REAL), SP);
4231	1891095	0	PUSHEVAL(cx, 0);
4236	1646260	244835	if ((PERLDB_LINE || PERLDB_SAVESRC) && PL_curstash != PL_debstash)
	858	1645402	if ((PERLDB_LINE || PERLDB_SAVESRC) && PL_curstash != PL_debstash)
	470	388	if ((PERLDB_LINE || PERLDB_SAVESRC) && PL_curstash != PL_debstash)
4237	470	0	save_lines(CopFILEAV(&PL_compiling), PL_parser->linestr);
4251	1859491	620	if (doeval(gimme, runcv, seq, saved_hh)) {
4252	1238196	621295	if (was != PL_breakable_sub_gen /* Some subs defined here. */
	1173172	65024	if (was != PL_breakable_sub_gen /* Some subs defined here. */
	451599	169696	if (was != PL_breakable_sub_gen /* Some subs defined here. */
	1858958	533	if (was != PL_breakable_sub_gen /* Some subs defined here. */
4253	1172641	531	? (PERLDB_LINE || PERLDB_SAVESRC)
4254	451597	2	: PERLDB_SAVESRC_NOSUBS) {
4256	128	1858830	} else if (!saved_delete) {
4260	2511	1856980	return DOCATCH(PL_eval_start);
4264	131	489	if (was != PL_breakable_sub_gen /* Some subs defined here. */
	125	6	if (was != PL_breakable_sub_gen /* Some subs defined here. */
	470	19	if (was != PL_breakable_sub_gen /* Some subs defined here. */
	617	3	if (was != PL_breakable_sub_gen /* Some subs defined here. */
4265	124	1	? (PERLDB_LINE || PERLDB_SAVESRC)
4266	468	2	: PERLDB_SAVESRC_INVALID) {
4268	2	615	} else if (!saved_delete) {
4288	1	2157017	PERL_ASYNC_CHECK();
4290	2157017	0	POPEVAL(cx);
	79	2156938	POPEVAL(cx);
	300636	1856381	POPEVAL(cx);
4296	1949343	207674	SP = adjust_stack_on_leave((gimme == G_VOID) ? SP : newsp, SP, newsp,
4305	294398	1862619	if (optype == OP_REQUIRE &&
	294398	0	if (optype == OP_REQUIRE &&
	294398	0	if (optype == OP_REQUIRE &&
	0	294398	if (optype == OP_REQUIRE &&
	0	294398	if (optype == OP_REQUIRE &&
	8395	286003	if (optype == OP_REQUIRE &&
	276950	9053	if (optype == OP_REQUIRE &&
	2	294396	if (optype == OP_REQUIRE &&
	0	0	if (optype == OP_REQUIRE &&
4306	0	0	!(gimme == G_SCALAR ? SvTRUE(*SP) : SP > newsp))
	0	0	!(gimme == G_SCALAR ? SvTRUE(*SP) : SP > newsp))
	0	0	!(gimme == G_SCALAR ? SvTRUE(*SP) : SP > newsp))
	8395	0	!(gimme == G_SCALAR ? SvTRUE(*SP) : SP > newsp))
	576	7819	!(gimme == G_SCALAR ? SvTRUE(*SP) : SP > newsp))
	576	0	!(gimme == G_SCALAR ? SvTRUE(*SP) : SP > newsp))
	576	0	!(gimme == G_SCALAR ? SvTRUE(*SP) : SP > newsp))
	0	8395	!(gimme == G_SCALAR ? SvTRUE(*SP) : SP > newsp))
	276827	123	!(gimme == G_SCALAR ? SvTRUE(*SP) : SP > newsp))
	2	276825	!(gimme == G_SCALAR ? SvTRUE(*SP) : SP > newsp))
	123	2	!(gimme == G_SCALAR ? SvTRUE(*SP) : SP > newsp))
	123	0	!(gimme == G_SCALAR ? SvTRUE(*SP) : SP > newsp))
	2	276948	!(gimme == G_SCALAR ? SvTRUE(*SP) : SP > newsp))
	0	9053	!(gimme == G_SCALAR ? SvTRUE(*SP) : SP > newsp))
4309	0	2	(void)hv_delete(GvHVn(PL_incgv),
	2	0	(void)hv_delete(GvHVn(PL_incgv),
4319	2157014	1	if (!(save_flags & OPf_SPECIAL)) {
4320	0	2157014	CLEAR_ERRSV();
	0	2157014	CLEAR_ERRSV();
	0	2157014	CLEAR_ERRSV();
4339	5696514	838807	POPEVAL(cx);
	0	5696514	POPEVAL(cx);
	0	6535321	POPEVAL(cx);
4353	14250114	3998	const I32 gimme = GIMME_V;
4358	14253648	464	PUSHBLOCK(cx, (CXt_EVAL|CXp_TRYBLOCK), PL_stack_sp);
4359	5913293	8340819	PUSHEVAL(cx, 0);
4362	849763	13404349	if (flags & G_KEEPERR)
4365	554	13403795	CLEAR_ERRSV();
	1	13403794	CLEAR_ERRSV();
	73	13403721	CLEAR_ERRSV();
4366	6549212	7704900	if (flags & G_FAKINGEVAL) {
4377	4550	7700350	return DOCATCH(PL_op->op_next);
4389	1	7592813	PERL_ASYNC_CHECK();
4391	171716	7421097	POPEVAL(cx);
	0	171716	POPEVAL(cx);
	0	7592813	POPEVAL(cx);
4399	1	7592812	CLEAR_ERRSV();
	1	7592811	CLEAR_ERRSV();
	3	7592808	CLEAR_ERRSV();
4407	165	28	const I32 gimme = GIMME_V;
4412	4	189	if (PL_op->op_targ) {
4422	193	0	PUSHBLOCK(cx, CXt_GIVEN, SP);
4474	0	174	XPUSHs(sv);
4478	174	0	return (SvTRUEx(POPs));
	0	174	return (SvTRUEx(POPs));
	0	0	return (SvTRUEx(POPs));
	0	174	return (SvTRUEx(POPs));
	0	0	return (SvTRUEx(POPs));
	0	0	return (SvTRUEx(POPs));
	174	0	return (SvTRUEx(POPs));
	174	0	return (SvTRUEx(POPs));
	174	0	return (SvTRUEx(POPs));
	32	142	return (SvTRUEx(POPs));
	0	32	return (SvTRUEx(POPs));
	142	32	return (SvTRUEx(POPs));
	0	0	return (SvTRUEx(POPs));
	0	0	return (SvTRUEx(POPs));
	0	0	return (SvTRUEx(POPs));
	0	0	return (SvTRUEx(POPs));
	0	0	return (SvTRUEx(POPs));
	0	0	return (SvTRUEx(POPs));
	0	0	return (SvTRUEx(POPs));
4489	18	29	FREETMPS;
4515	933	0	if (d) {
4516	819	114	if (!copied && SvGMAGICAL(d))
	44	775	if (!copied && SvGMAGICAL(d))
4523	43	890	if (SvGMAGICAL(e))
4527	349	584	if (SvAMAGIC(e)) {
	72	277	if (SvAMAGIC(e)) {
	26	46	if (SvAMAGIC(e)) {
4533	12	14	if (tmpsv) {
4546	67	854	if (!SvOK(e)) {
	67	0	if (!SvOK(e)) {
	67	0	if (!SvOK(e)) {
4548	21	46	if (SvOK(d))
	21	0	if (SvOK(d))
	0	21	if (SvOK(d))
4554	60	794	if (sv_isobject(e) && (SvTYPE(SvRV(e)) != SVt_REGEXP)) {
	29	31	if (sv_isobject(e) && (SvTYPE(SvRV(e)) != SVt_REGEXP)) {
4558	49	776	if (sv_isobject(d) && (SvTYPE(SvRV(d)) != SVt_REGEXP))
	27	22	if (sv_isobject(d) && (SvTYPE(SvRV(d)) != SVt_REGEXP))
4562	308	517	if (SvROK(e) && SvTYPE(SvRV(e)) == SVt_PVCV) {
	59	249	if (SvROK(e) && SvTYPE(SvRV(e)) == SVt_PVCV) {
4564	54	5	if (object_on_left) {
4567	35	19	else if (SvROK(d) && SvTYPE(SvRV(d)) == SVt_PVHV) {
	14	21	else if (SvROK(d) && SvTYPE(SvRV(d)) == SVt_PVHV) {
4574	10	4	if (numkeys == 0)
4576	24	9	while ( (he = hv_iternext(hv)) ) {
4580	0	24	PUSHMARK(SP);
4585	23	0	if (c == 0)
4588	23	0	andedresults = SvTRUEx(POPs) && andedresults;
	0	23	andedresults = SvTRUEx(POPs) && andedresults;
	0	0	andedresults = SvTRUEx(POPs) && andedresults;
	1	22	andedresults = SvTRUEx(POPs) && andedresults;
	1	0	andedresults = SvTRUEx(POPs) && andedresults;
	0	1	andedresults = SvTRUEx(POPs) && andedresults;
	21	1	andedresults = SvTRUEx(POPs) && andedresults;
	21	0	andedresults = SvTRUEx(POPs) && andedresults;
	21	0	andedresults = SvTRUEx(POPs) && andedresults;
	18	3	andedresults = SvTRUEx(POPs) && andedresults;
	0	18	andedresults = SvTRUEx(POPs) && andedresults;
	18	3	andedresults = SvTRUEx(POPs) && andedresults;
	1	0	andedresults = SvTRUEx(POPs) && andedresults;
	1	0	andedresults = SvTRUEx(POPs) && andedresults;
	0	1	andedresults = SvTRUEx(POPs) && andedresults;
	0	0	andedresults = SvTRUEx(POPs) && andedresults;
	0	0	andedresults = SvTRUEx(POPs) && andedresults;
	1	0	andedresults = SvTRUEx(POPs) && andedresults;
	0	0	andedresults = SvTRUEx(POPs) && andedresults;
	19	4	andedresults = SvTRUEx(POPs) && andedresults;
	4	15	andedresults = SvTRUEx(POPs) && andedresults;
4589	23	0	FREETMPS;
4592	5	4	if (andedresults)
4597	21	19	else if (SvROK(d) && SvTYPE(SvRV(d)) == SVt_PVAV) {
	14	7	else if (SvROK(d) && SvTYPE(SvRV(d)) == SVt_PVAV) {
4604	10	4	if (len == -1)
4606	24	9	for (i = 0; i <= len; ++i) {
4611	0	24	PUSHMARK(SP);
4612	24	0	if (svp)
4617	23	0	if (c == 0)
4620	23	0	andedresults = SvTRUEx(POPs) && andedresults;
	0	23	andedresults = SvTRUEx(POPs) && andedresults;
	0	0	andedresults = SvTRUEx(POPs) && andedresults;
	1	22	andedresults = SvTRUEx(POPs) && andedresults;
	1	0	andedresults = SvTRUEx(POPs) && andedresults;
	0	1	andedresults = SvTRUEx(POPs) && andedresults;
	21	1	andedresults = SvTRUEx(POPs) && andedresults;
	21	0	andedresults = SvTRUEx(POPs) && andedresults;
	21	0	andedresults = SvTRUEx(POPs) && andedresults;
	18	3	andedresults = SvTRUEx(POPs) && andedresults;
	0	18	andedresults = SvTRUEx(POPs) && andedresults;
	18	3	andedresults = SvTRUEx(POPs) && andedresults;
	1	0	andedresults = SvTRUEx(POPs) && andedresults;
	1	0	andedresults = SvTRUEx(POPs) && andedresults;
	0	1	andedresults = SvTRUEx(POPs) && andedresults;
	0	0	andedresults = SvTRUEx(POPs) && andedresults;
	0	0	andedresults = SvTRUEx(POPs) && andedresults;
	1	0	andedresults = SvTRUEx(POPs) && andedresults;
	0	0	andedresults = SvTRUEx(POPs) && andedresults;
	19	4	andedresults = SvTRUEx(POPs) && andedresults;
	0	19	andedresults = SvTRUEx(POPs) && andedresults;
4621	22	1	FREETMPS;
4624	5	4	if (andedresults)
4634	0	31	PUSHMARK(SP);
4639	0	25	if (c == 0)
4641	22	3	else if (SvTEMP(TOPs))
4643	22	3	FREETMPS;
4649	249	517	else if (SvROK(e) && SvTYPE(SvRV(e)) == SVt_PVHV) {
	85	164	else if (SvROK(e) && SvTYPE(SvRV(e)) == SVt_PVHV) {
4650	84	1	if (object_on_left) {
4653	4	80	else if (!SvOK(d)) {
	4	0	else if (!SvOK(d)) {
	4	0	else if (!SvOK(d)) {
4657	61	19	else if (SvROK(d) && SvTYPE(SvRV(d)) == SVt_PVHV) {
	26	35	else if (SvROK(d) && SvTYPE(SvRV(d)) == SVt_PVHV) {
4669	9	17	if (SvTIED_mg((SV*)hv, PERL_MAGIC_tied)) {
	0	9	if (SvTIED_mg((SV*)hv, PERL_MAGIC_tied)) {
4672	4	13	else if (SvTIED_mg((const SV *)other_hv, PERL_MAGIC_tied)) {
	4	0	else if (SvTIED_mg((const SV *)other_hv, PERL_MAGIC_tied)) {
4678	4	22	if (SvTIED_mg((const SV *)other_hv, PERL_MAGIC_tied))
	4	0	if (SvTIED_mg((const SV *)other_hv, PERL_MAGIC_tied))
4681	13	13	if (!tied && HvUSEDKEYS((const HV *) hv) != HvUSEDKEYS(other_hv))
	0	13	if (!tied && HvUSEDKEYS((const HV *) hv) != HvUSEDKEYS(other_hv))
	0	13	if (!tied && HvUSEDKEYS((const HV *) hv) != HvUSEDKEYS(other_hv))
	3	10	if (!tied && HvUSEDKEYS((const HV *) hv) != HvUSEDKEYS(other_hv))
4687	319	17	while ( (he = hv_iternext(hv)) ) {
4693	6	313	if(!hv_exists_ent(other_hv, key, 0)) {
4699	4	13	if (other_tied) {
4701	7	4	while ( hv_iternext(other_hv) )
4705	0	13	other_key_count = HvUSEDKEYS(other_hv);
4707	0	17	if (this_key_count != other_key_count)
4712	35	19	else if (SvROK(d) && SvTYPE(SvRV(d)) == SVt_PVAV) {
	25	10	else if (SvROK(d) && SvTYPE(SvRV(d)) == SVt_PVAV) {
4719	33	8	for (i = 0; i < other_len; ++i) {
4722	33	0	if (svp) { /* ??? When can this not happen? */
4723	17	16	if (hv_exists_ent(hv, *svp, 0))
4729	10	19	else if (SvROK(d) && SvTYPE(SvRV(d)) == SVt_REGEXP) {
	10	0	else if (SvROK(d) && SvTYPE(SvRV(d)) == SVt_REGEXP) {
4738	118	6	while ( (he = hv_iternext(hv)) ) {
4740	13	105	if (matcher_matches_sv(matcher, hv_iterkeysv(he))) {
4753	11	9	if (hv_exists_ent(MUTABLE_HV(SvRV(e)), d, 0))
4760	164	517	else if (SvROK(e) && SvTYPE(SvRV(e)) == SVt_PVAV) {
	132	32	else if (SvROK(e) && SvTYPE(SvRV(e)) == SVt_PVAV) {
4761	130	2	if (object_on_left) {
4764	66	64	else if (SvROK(d) && SvTYPE(SvRV(d)) == SVt_PVHV) {
	18	48	else if (SvROK(d) && SvTYPE(SvRV(d)) == SVt_PVHV) {
4770	15	5	for (i = 0; i < other_len; ++i) {
4774	15	0	if (svp) { /* ??? When can this not happen? */
4775	13	2	if (hv_exists_ent(MUTABLE_HV(SvRV(d)), *svp, 0))
4781	48	64	if (SvROK(d) && SvTYPE(SvRV(d)) == SVt_PVAV) {
	42	6	if (SvROK(d) && SvTYPE(SvRV(d)) == SVt_PVAV) {
4784	3	39	if (av_len(MUTABLE_AV(SvRV(e))) != av_len(other_av))
4790	36	3	if (NULL == seen_this) {
4794	36	3	if (NULL == seen_other) {
4798	147	31	for(i = 0; i <= other_len; ++i) {
4802	0	147	if (!this_elem || !other_elem) {
4803	0	0	if ((this_elem && SvOK(*this_elem))
	0	0	if ((this_elem && SvOK(*this_elem))
	0	0	if ((this_elem && SvOK(*this_elem))
	0	0	if ((this_elem && SvOK(*this_elem))
4804	0	0	|| (other_elem && SvOK(*other_elem)))
	0	0	|| (other_elem && SvOK(*other_elem)))
	0	0	|| (other_elem && SvOK(*other_elem)))
	0	0	|| (other_elem && SvOK(*other_elem)))
4807	144	3	else if (hv_exists_ent(seen_this,
4808	0	144	sv_2mortal(newSViv(PTR2IV(*this_elem))), 0) ||
4812	1	2	if (*this_elem != *other_elem)
4831	144	0	if (!SvTRUEx(POPs))
	0	144	if (!SvTRUEx(POPs))
	0	0	if (!SvTRUEx(POPs))
	0	144	if (!SvTRUEx(POPs))
	0	0	if (!SvTRUEx(POPs))
	0	0	if (!SvTRUEx(POPs))
	144	0	if (!SvTRUEx(POPs))
	144	0	if (!SvTRUEx(POPs))
	144	0	if (!SvTRUEx(POPs))
	137	7	if (!SvTRUEx(POPs))
	0	137	if (!SvTRUEx(POPs))
	137	7	if (!SvTRUEx(POPs))
	0	0	if (!SvTRUEx(POPs))
	0	0	if (!SvTRUEx(POPs))
	0	0	if (!SvTRUEx(POPs))
	0	0	if (!SvTRUEx(POPs))
	0	0	if (!SvTRUEx(POPs))
	0	0	if (!SvTRUEx(POPs))
	0	0	if (!SvTRUEx(POPs))
	7	137	if (!SvTRUEx(POPs))
4838	6	64	else if (SvROK(d) && SvTYPE(SvRV(d)) == SVt_REGEXP) {
	6	0	else if (SvROK(d) && SvTYPE(SvRV(d)) == SVt_REGEXP) {
4846	43	7	for(i = 0; i <= this_len; ++i) {
4849	43	0	if (svp && matcher_matches_sv(matcher, *svp)) {
	8	35	if (svp && matcher_matches_sv(matcher, *svp)) {
4858	9	55	else if (!SvOK(d)) {
	9	0	else if (!SvOK(d)) {
	9	0	else if (!SvOK(d)) {
4864	15	5	for (i = 0; i <= this_len; ++i) {
4867	14	1	if (!svp || !SvOK(*svp))
	3	11	if (!svp || !SvOK(*svp))
	3	0	if (!svp || !SvOK(*svp))
	3	0	if (!svp || !SvOK(*svp))
4879	114	24	for (i = 0; i <= this_len; ++i) {
4881	0	114	if (!svp)
4892	114	0	if (SvTRUEx(POPs))
	0	114	if (SvTRUEx(POPs))
	0	0	if (SvTRUEx(POPs))
	0	114	if (SvTRUEx(POPs))
	0	0	if (SvTRUEx(POPs))
	0	0	if (SvTRUEx(POPs))
	114	0	if (SvTRUEx(POPs))
	114	0	if (SvTRUEx(POPs))
	113	1	if (SvTRUEx(POPs))
	32	81	if (SvTRUEx(POPs))
	0	32	if (SvTRUEx(POPs))
	33	81	if (SvTRUEx(POPs))
	0	0	if (SvTRUEx(POPs))
	0	0	if (SvTRUEx(POPs))
	0	0	if (SvTRUEx(POPs))
	0	0	if (SvTRUEx(POPs))
	0	0	if (SvTRUEx(POPs))
	0	0	if (SvTRUEx(POPs))
	0	0	if (SvTRUEx(POPs))
	33	81	if (SvTRUEx(POPs))
4900	32	517	else if (SvROK(e) && SvTYPE(SvRV(e)) == SVt_REGEXP) {
	31	1	else if (SvROK(e) && SvTYPE(SvRV(e)) == SVt_REGEXP) {
4901	29	2	if (!object_on_left && SvROK(d) && SvTYPE(SvRV(d)) == SVt_PVHV) {
	19	10	if (!object_on_left && SvROK(d) && SvTYPE(SvRV(d)) == SVt_PVHV) {
	9	10	if (!object_on_left && SvROK(d) && SvTYPE(SvRV(d)) == SVt_PVHV) {
4906	20	2	else if (!object_on_left && SvROK(d) && SvTYPE(SvRV(d)) == SVt_PVAV) {
	10	10	else if (!object_on_left && SvROK(d) && SvTYPE(SvRV(d)) == SVt_PVAV) {
	9	1	else if (!object_on_left && SvROK(d) && SvTYPE(SvRV(d)) == SVt_PVAV) {
4916	2	11	PUSHs(matcher_matches_sv(matcher, d)
4925	17	501	else if (object_on_left && SvAMAGIC(d)) {
	17	0	else if (object_on_left && SvAMAGIC(d)) {
	17	0	else if (object_on_left && SvAMAGIC(d)) {
	14	3	else if (object_on_left && SvAMAGIC(d)) {
4932	13	1	if (tmpsv) {
4942	11	493	else if (!SvOK(d)) {
	11	0	else if (!SvOK(d)) {
	11	0	else if (!SvOK(d)) {
4949	109	385	if (SvNIOK(e) || (SvPOK(e) && looks_like_number(e) && SvNIOK(d))) {
	108	1	if (SvNIOK(e) || (SvPOK(e) && looks_like_number(e) && SvNIOK(d))) {
	13	95	if (SvNIOK(e) || (SvPOK(e) && looks_like_number(e) && SvNIOK(d))) {
	10	3	if (SvNIOK(e) || (SvPOK(e) && looks_like_number(e) && SvNIOK(d))) {
4958	2	393	if (CopHINTS_get(PL_curcop) & HINT_INTEGER)
4963	395	0	if (SvTRUEx(POPs))
	0	395	if (SvTRUEx(POPs))
	0	0	if (SvTRUEx(POPs))
	0	395	if (SvTRUEx(POPs))
	0	0	if (SvTRUEx(POPs))
	0	0	if (SvTRUEx(POPs))
	395	0	if (SvTRUEx(POPs))
	395	0	if (SvTRUEx(POPs))
	395	0	if (SvTRUEx(POPs))
	210	185	if (SvTRUEx(POPs))
	0	210	if (SvTRUEx(POPs))
	210	185	if (SvTRUEx(POPs))
	0	0	if (SvTRUEx(POPs))
	0	0	if (SvTRUEx(POPs))
	0	0	if (SvTRUEx(POPs))
	0	0	if (SvTRUEx(POPs))
	0	0	if (SvTRUEx(POPs))
	0	0	if (SvTRUEx(POPs))
	0	0	if (SvTRUEx(POPs))
	210	185	if (SvTRUEx(POPs))
4980	80	344	const I32 gimme = GIMME_V;
4988	398	26	if ((0 == (PL_op->op_flags & OPf_SPECIAL)) && !SvTRUEx(POPs))
	398	0	if ((0 == (PL_op->op_flags & OPf_SPECIAL)) && !SvTRUEx(POPs))
	0	398	if ((0 == (PL_op->op_flags & OPf_SPECIAL)) && !SvTRUEx(POPs))
	0	0	if ((0 == (PL_op->op_flags & OPf_SPECIAL)) && !SvTRUEx(POPs))
	0	398	if ((0 == (PL_op->op_flags & OPf_SPECIAL)) && !SvTRUEx(POPs))
	0	0	if ((0 == (PL_op->op_flags & OPf_SPECIAL)) && !SvTRUEx(POPs))
	0	0	if ((0 == (PL_op->op_flags & OPf_SPECIAL)) && !SvTRUEx(POPs))
	385	13	if ((0 == (PL_op->op_flags & OPf_SPECIAL)) && !SvTRUEx(POPs))
	385	0	if ((0 == (PL_op->op_flags & OPf_SPECIAL)) && !SvTRUEx(POPs))
	378	7	if ((0 == (PL_op->op_flags & OPf_SPECIAL)) && !SvTRUEx(POPs))
	151	227	if ((0 == (PL_op->op_flags & OPf_SPECIAL)) && !SvTRUEx(POPs))
	0	151	if ((0 == (PL_op->op_flags & OPf_SPECIAL)) && !SvTRUEx(POPs))
	158	227	if ((0 == (PL_op->op_flags & OPf_SPECIAL)) && !SvTRUEx(POPs))
	13	0	if ((0 == (PL_op->op_flags & OPf_SPECIAL)) && !SvTRUEx(POPs))
	13	0	if ((0 == (PL_op->op_flags & OPf_SPECIAL)) && !SvTRUEx(POPs))
	6	7	if ((0 == (PL_op->op_flags & OPf_SPECIAL)) && !SvTRUEx(POPs))
	0	6	if ((0 == (PL_op->op_flags & OPf_SPECIAL)) && !SvTRUEx(POPs))
	0	0	if ((0 == (PL_op->op_flags & OPf_SPECIAL)) && !SvTRUEx(POPs))
	7	6	if ((0 == (PL_op->op_flags & OPf_SPECIAL)) && !SvTRUEx(POPs))
	0	0	if ((0 == (PL_op->op_flags & OPf_SPECIAL)) && !SvTRUEx(POPs))
	233	165	if ((0 == (PL_op->op_flags & OPf_SPECIAL)) && !SvTRUEx(POPs))
4994	191	0	PUSHBLOCK(cx, CXt_WHEN, SP);
5010	2	140	if (cxix < 0)
5012	1	1	DIE(aTHX_ "Can't \"%s\" outside a topicalizer",
5024	123	17	if (cxix < cxstack_ix)
5029	10	130	if (CxFOREACH(cx)) {
	10	0	if (CxFOREACH(cx)) {
5034	0	10	if (PL_scopestack_ix < inner)
5038	0	10	PERL_ASYNC_CHECK();
5042	0	130	PERL_ASYNC_CHECK();
5059	2	33	if (cxix < 0)
5062	33	0	if (cxix < cxstack_ix)
5082	2	12	if (cxix < 0)
5086	5	7	if (CxFOREACH(cx))
	5	0	if (CxFOREACH(cx))
5089	6	1	if (cxix < cxstack_ix)
5102	1654	14	char *s = SvPV(sv, len);
5121	1	1667	if (len == 0)
5124	1478	189	if (SvTYPE(sv) >= SVt_PVMG) {
5131	790	877	if (mg) {
5134	790	0	if ( !(!!SvUTF8(old) ^ !!SvUTF8(sv))
5135	790	0	&& len == SvCUR(old)
5136	6	784	&& strnEQ(SvPVX(old), SvPVX(sv), len)
5154	883	0	s = SvPV(sv_copy, len); /* work on the copy, not the original */
5159	140764	883	for (base = s; s <= send; s++) {
5160	139910	854	if (*s == '\n' || *s == '@' || *s == '^')
	1093	138817	if (*s == '\n' || *s == '@' || *s == '^')
5166	0	883	Newx(fops, maxops, U32);
5169	883	0	if (s < send) {
5176	136871	883	while (s <= send) {
5183	80	64	if (*s == '~') {
5194	4	480	if (s < send) {
5202	501	399	if (arg) {
5203	77	424	if (postspace)
5209	420	480	if (s <= send)
5211	584	316	if (skipspaces) {
5216	420	480	if (s <= send)
5218	144	756	if (noblank) {
5220	80	64	if (repeat)
5226	17	883	if (s < send) {
5240	271	1256	if (postspace) {
5245	1077	450	if (arg) {
5252	740	787	if (*s == '*') { /* @* or ^* */
5255	543	197	if (ischop) {
5261	745	42	else if (*s == '#' || (*s == '.' && s[1] == '#')) { /* @###, ^### */
	0	745	else if (*s == '#' || (*s == '.' && s[1] == '#')) { /* @###, ^### */
	0	0	else if (*s == '#' || (*s == '.' && s[1] == '#')) { /* @###, ^### */
5262	38	4	arg = ischop ? FORM_NUM_BLANK : 0;
5264	130	42	while (*s == '#')
5266	22	20	if (*s == '.') {
5268	24	22	while (*s == '#')
5277	30	715	else if (*s == '0' && s[1] == '#') { /* Zero padded decimals */
	28	2	else if (*s == '0' && s[1] == '#') { /* Zero padded decimals */
5278	24	4	arg = ischop ? FORM_NUM_BLANK : 0;
5281	52	28	while (*s == '#')
5283	12	16	if (*s == '.') {
5285	24	12	while (*s == '#')
5298	149	568	if (*s == '>') {
5299	394	149	while (*++s == '>') ;
5302	96	472	else if (*s == '|') {
5303	200	96	while (*++s == '|') ;
5308	450	22	if (*s == '<')
5309	1077	450	while (*++s == '<') ;
5312	4	713	if (*s == '.' && s[1] == '.' && s[2] == '.') {
	4	0	if (*s == '.' && s[1] == '.' && s[2] == '.') {
	4	0	if (*s == '.' && s[1] == '.' && s[2] == '.') {
5318	175	542	*fpc++ = ischop ? FF_CHECKCHOP : FF_CHECKNL;
5320	245	472	if (prespace)
5323	4	713	if (ismore)
5325	542	175	if (ischop)
5343	60	823	if (unchopnum && repeat)
	2	58	if (unchopnum && repeat)
5359	34	30	if (frcsize & FORM_NUM_POINT)
5364	234	64	while (intsize--) pwr *= 10.0;
5365	48	64	while (frcsize--) eps /= 10.0;
5367	52	12	if( value >= 0 ){
5368	12	40	if (value + eps >= pwr)
5371	8	4	if (value - eps <= -pwr)
5379	18	107	{
5381	222	0	SV * const datasv = FILTER_DATA(idx);
5406	107	115	if (SvOK(cache)) {
	107	0	if (SvOK(cache)) {
	0	107	if (SvOK(cache)) {
5408	115	0	const char *cache_p = SvPV(cache, cache_len);
5411	87	28	if (umaxlen) {
5414	83	4	if (cache_len >= umaxlen) {
5422	14	14	if (first_nl) {
5426	97	18	if (take) {
5434	4	14	if (umaxlen) {
5437	9	9	SvOK_off(cache);
5447	0	0	upstream = ((SvOK(buf_sv) && sv_len(buf_sv)) || SvGMAGICAL(buf_sv))
	0	0	upstream = ((SvOK(buf_sv) && sv_len(buf_sv)) || SvGMAGICAL(buf_sv))
	107	18	upstream = ((SvOK(buf_sv) && sv_len(buf_sv)) || SvGMAGICAL(buf_sv))
	0	107	upstream = ((SvOK(buf_sv) && sv_len(buf_sv)) || SvGMAGICAL(buf_sv))
5448	0	125	? sv_newmortal() : buf_sv;
5451	74	51	if (filter_has_file) {
5465	0	118	PUSHMARK(SP);
5467	62	56	if (filter_state) {
5474	118	0	if (count > 0) {
	2	116	if (count > 0) {
5477	76	42	if (SvOK(out)) {
	76	0	if (SvOK(out)) {
	0	76	if (SvOK(out)) {
5478	40	2	status = SvIV(out);
5481	76	0	SV * const errsv = ERRSV;
5482	0	76	if (SvTRUE_NN(errsv))
	0	76	if (SvTRUE_NN(errsv))
	0	0	if (SvTRUE_NN(errsv))
	0	0	if (SvTRUE_NN(errsv))
	76	0	if (SvTRUE_NN(errsv))
	76	0	if (SvTRUE_NN(errsv))
	72	4	if (SvTRUE_NN(errsv))
	0	72	if (SvTRUE_NN(errsv))
	0	0	if (SvTRUE_NN(errsv))
	0	0	if (SvTRUE_NN(errsv))
	0	0	if (SvTRUE_NN(errsv))
	0	0	if (SvTRUE_NN(errsv))
	0	0	if (SvTRUE_NN(errsv))
	0	0	if (SvTRUE_NN(errsv))
	4	72	if (SvTRUE_NN(errsv))
5488	118	0	FREETMPS;
5492	1	124	if (SvGMAGICAL(upstream)) {
5494	1	0	if (upstream == buf_sv) mg_free(buf_sv);
5496	16	109	if (SvIsCOW(upstream)) sv_force_normal(upstream);
5497	121	4	if(!err && SvOK(upstream)) {
	14	107	if(!err && SvOK(upstream)) {
	14	0	if(!err && SvOK(upstream)) {
	0	14	if(!err && SvOK(upstream)) {
5498	104	3	got_p = SvPV_nomg(upstream, got_len);
5499	5	102	if (umaxlen) {
5500	3	2	if (got_len > umaxlen) {
5505	43	59	if (first_nl && first_nl + 1 < got_p + got_len) {
	5	38	if (first_nl && first_nl + 1 < got_p + got_len) {
5511	8	117	if (!err && prune_from) {
5526	0	8	if (SvUTF8(upstream)) {
5529	7	1	if (SvPOK(upstream)) SvCUR_set(upstream, got_len - cached_len);
5537	0	8	if (status == 0)
5545	18	107	if (!err && upstream != buf_sv &&
	6	12	if (!err && upstream != buf_sv &&
5546	6	0	SvOK(upstream)) {
	0	6	SvOK(upstream)) {
5549	14	99	else if (SvOK(upstream)) (void)SvPV_force_nolen(buf_sv);
	14	0	else if (SvOK(upstream)) (void)SvPV_force_nolen(buf_sv);
	0	14	else if (SvOK(upstream)) (void)SvPV_force_nolen(buf_sv);
	2	97	else if (SvOK(upstream)) (void)SvPV_force_nolen(buf_sv);
5551	44	81	if (status <= 0) {
5553	21	23	if (filter_state) {
5557	38	6	if (filter_sub) {
5564	4	121	if (err)
5567	40	81	if (status == 0 && read_from_cache) {
	31	9	if (status == 0 && read_from_cache) {