Branch Coverage

ListUtil.xs

Criterion	Covered	Total	%
branch	0	964	0.0

line	true	false	branch
184	0	0	if(SvAMAGIC(sv))
	0	0	if(SvAMAGIC(sv))
	0	0	if(SvAMAGIC(sv))
187	0	0	if(SvIOK(sv) && !SvNOK(sv) && !SvUOK(sv))
	0	0	if(SvIOK(sv) && !SvNOK(sv) && !SvUOK(sv))
	0	0	if(SvIOK(sv) && !SvNOK(sv) && !SvUOK(sv))
215	0	0	if(!PL_srand_called) {
228	0	0	PUSHMARK(SP);
236	0	0	if(ret < 0) ret += 1.0; /* bound to 0 <= ret < 1 */
250	0	0	if(cv == Nullcv)
253	0	0	if(!CvROOT(cv) && !CvXSUB(cv))
	0	0	if(!CvROOT(cv) && !CvXSUB(cv))
283	0	0	if(!items)
287	0	0	SvGETMAGIC(retsv);
	0	0	SvGETMAGIC(retsv);
288	0	0	magic = SvAMAGIC(retsv);
	0	0	magic = SvAMAGIC(retsv);
	0	0	magic = SvAMAGIC(retsv);
289	0	0	if(!magic)
290	0	0	retval = slu_sv_value(retsv);
	0	0	retval = slu_sv_value(retsv);
292	0	0	for(index = 1 ; index < items ; index++) {
295	0	0	SvGETMAGIC(stacksv);
	0	0	SvGETMAGIC(stacksv);
296	0	0	if((magic || SvAMAGIC(stacksv)) && (tmpsv = amagic_call(retsv, stacksv, gt_amg, 0))) {
	0	0	if((magic || SvAMAGIC(stacksv)) && (tmpsv = amagic_call(retsv, stacksv, gt_amg, 0))) {
	0	0	if((magic || SvAMAGIC(stacksv)) && (tmpsv = amagic_call(retsv, stacksv, gt_amg, 0))) {
	0	0	if((magic || SvAMAGIC(stacksv)) && (tmpsv = amagic_call(retsv, stacksv, gt_amg, 0))) {
	0	0	if((magic || SvAMAGIC(stacksv)) && (tmpsv = amagic_call(retsv, stacksv, gt_amg, 0))) {
297	0	0	if(SvTRUE(tmpsv) ? !ix : ix) {
	0	0	if(SvTRUE(tmpsv) ? !ix : ix) {
299	0	0	magic = SvAMAGIC(retsv);
	0	0	magic = SvAMAGIC(retsv);
	0	0	magic = SvAMAGIC(retsv);
300	0	0	if(!magic) {
301	0	0	retval = slu_sv_value(retsv);
	0	0	retval = slu_sv_value(retsv);
306	0	0	NV val = slu_sv_value(stacksv);
	0	0	NV val = slu_sv_value(stacksv);
307	0	0	if(magic) {
308	0	0	retval = slu_sv_value(retsv);
	0	0	retval = slu_sv_value(retsv);
311	0	0	if(val < retval ? !ix : ix) {
	0	0	if(val < retval ? !ix : ix) {
331	0	0	dXSTARG;
341	0	0	if(!items)
349	0	0	SvGETMAGIC(sv);
	0	0	SvGETMAGIC(sv);
359	0	0	retnv = slu_sv_value(sv);
	0	0	retnv = slu_sv_value(sv);
363	0	0	for(index = 1 ; index < items ; index++) {
365	0	0	SvGETMAGIC(sv);
	0	0	SvGETMAGIC(sv);
366	0	0	if(accum < ACC_SV && SvAMAGIC(sv)){
	0	0	if(accum < ACC_SV && SvAMAGIC(sv)){
	0	0	if(accum < ACC_SV && SvAMAGIC(sv)){
	0	0	if(accum < ACC_SV && SvAMAGIC(sv)){
367	0	0	if(!retsv)
369	0	0	sv_setnv(retsv, accum == ACC_NV ? retnv : retiv);
374	0	0	tmpsv = amagic_call(retsv, sv,
	0	0	tmpsv = amagic_call(retsv, sv,
	0	0	tmpsv = amagic_call(retsv, sv,
	0	0	tmpsv = amagic_call(retsv, sv,
377	0	0	if(tmpsv) {
386	0	0	retnv = slu_sv_value(tmpsv);
	0	0	retnv = slu_sv_value(tmpsv);
394	0	0	: (retnv = SvNV(retsv) + SvNV(sv));
398	0	0	if(is_product) {
405	0	0	if(!SvNOK(sv) && SvIOK(sv)) {
	0	0	if(!SvNOK(sv) && SvIOK(sv)) {
407	0	0	if (retiv == 0) /* avoid later division by zero */
409	0	0	if (retiv < -1) { /* avoid -1 because that causes SIGFPE */
410	0	0	if (i < 0) {
411	0	0	if (i >= IV_MAX / retiv) {
417	0	0	if (i <= IV_MIN / retiv) {
423	0	0	else if (retiv > 0) {
424	0	0	if (i < 0) {
425	0	0	if (i >= IV_MIN / retiv) {
431	0	0	if (i <= IV_MAX / retiv) {
444	0	0	if(!SvNOK(sv) && SvIOK(sv)) {
	0	0	if(!SvNOK(sv) && SvIOK(sv)) {
446	0	0	if (retiv >= 0 && i >= 0) {
	0	0	if (retiv >= 0 && i >= 0) {
447	0	0	if (retiv <= IV_MAX - i) {
453	0	0	else if (retiv < 0 && i < 0) {
	0	0	else if (retiv < 0 && i < 0) {
454	0	0	if (retiv >= IV_MIN - i) {
473	0	0	is_product ? (retnv *= slu_sv_value(sv))
	0	0	is_product ? (retnv *= slu_sv_value(sv))
474	0	0	: (retnv += slu_sv_value(sv));
	0	0	: (retnv += slu_sv_value(sv));
	0	0	: (retnv += slu_sv_value(sv));
479	0	0	if(!retsv)
511	0	0	if(!items)
525	0	0	for(index = 1 ; index < items ; index++) {
527	0	0	if(sv_cmp(left, right) == ix)
554	0	0	CV *cv = sv_to_cv(block, ix ? "reductions" : "reduce");
556	0	0	if(items <= 1) {
557	0	0	if(ix)
568	0	0	SvSetMagicSV(ret, args[1]);
	0	0	SvSetMagicSV(ret, args[1]);
570	0	0	if(ix) {
582	0	0	if(!CvISXSUB(cv)) {
587	0	0	PUSH_MULTICALL(cv);
588	0	0	for(index = 2 ; index < items ; index++) {
591	0	0	SvSetMagicSV(ret, *PL_stack_sp);
	0	0	SvSetMagicSV(ret, *PL_stack_sp);
592	0	0	if(ix)
599	0	0	POP_MULTICALL;
604	0	0	for(index = 2 ; index < items ; index++) {
608	0	0	PUSHMARK(SP);
611	0	0	SvSetMagicSV(ret, *PL_stack_sp);
	0	0	SvSetMagicSV(ret, *PL_stack_sp);
612	0	0	if(ix)
617	0	0	if(ix) {
621	0	0	for(i = 0; i < items-1; i++) {
644	0	0	if(items <= 1)
650	0	0	if(!CvISXSUB(cv)) {
655	0	0	PUSH_MULTICALL(cv);
657	0	0	for(index = 1 ; index < items ; index++) {
663	0	0	if(SvTRUEx(*PL_stack_sp)) {
668	0	0	POP_MULTICALL;
677	0	0	POP_MULTICALL;
682	0	0	for(index = 1 ; index < items ; index++) {
686	0	0	PUSHMARK(SP);
688	0	0	if(SvTRUEx(*PL_stack_sp)) {
712	0	0	CV *cv = sv_to_cv(block,
	0	0	CV *cv = sv_to_cv(block,
	0	0	CV *cv = sv_to_cv(block,
	0	0	CV *cv = sv_to_cv(block,
722	0	0	if(!CvISXSUB(cv)) {
728	0	0	PUSH_MULTICALL(cv);
729	0	0	for(index = 1; index < items; index++) {
736	0	0	if(SvTRUEx(*PL_stack_sp) ^ invert) {
737	0	0	POP_MULTICALL;
738	0	0	ST(0) = ret_true ? &PL_sv_no : &PL_sv_yes;
742	0	0	POP_MULTICALL;
748	0	0	for(index = 1; index < items; index++) {
752	0	0	PUSHMARK(SP);
754	0	0	if(SvTRUEx(*PL_stack_sp) ^ invert) {
755	0	0	ST(0) = ret_true ? &PL_sv_no : &PL_sv_yes;
761	0	0	ST(0) = ret_true ? &PL_sv_yes : &PL_sv_no;
780	0	0	if ( ix == 0 ) {
783	0	0	if ( size < 0 ) {
786	0	0	if ( end > items ) {
792	0	0	if ( size < 0 ) {
798	0	0	if ( start < 1 ) {
803	0	0	if ( end <= start ) {
807	0	0	EXTEND( SP, end - start );
	0	0	EXTEND( SP, end - start );
808	0	0	for ( i = start; i < end; i++ ) {
824	0	0	if(items % 2 && ckWARN(WARN_MISC))
	0	0	if(items % 2 && ckWARN(WARN_MISC))
828	0	0	for(; argi < items; argi += 2) {
830	0	0	SV *b = argi < items-1 ? ST(argi+1) : &PL_sv_undef;
860	0	0	for(i = 0; i < items; i++) {
864	0	0	SvGETMAGIC(pair);
	0	0	SvGETMAGIC(pair);
866	0	0	if(SvTYPE(pair) != SVt_RV)
868	0	0	if(SvTYPE(SvRV(pair)) != SVt_PVAV)
874	0	0	EXTEND(SP, 2);
876	0	0	if(AvFILL(pairav) >= 0)
	0	0	if(AvFILL(pairav) >= 0)
881	0	0	if(AvFILL(pairav) >= 1)
	0	0	if(AvFILL(pairav) >= 1)
898	0	0	if(items % 2 && ckWARN(WARN_MISC))
	0	0	if(items % 2 && ckWARN(WARN_MISC))
902	0	0	for(; argi < items; argi += 2) {
920	0	0	if(items % 2 && ckWARN(WARN_MISC))
	0	0	if(items % 2 && ckWARN(WARN_MISC))
924	0	0	for(; argi < items; argi += 2) {
925	0	0	SV *b = argi < items-1 ? ST(argi+1) : &PL_sv_undef;
945	0	0	if(!(items % 2) && ckWARN(WARN_MISC))
	0	0	if(!(items % 2) && ckWARN(WARN_MISC))
954	0	0	if(!CvISXSUB(cv)) {
962	0	0	PUSH_MULTICALL(cv);
963	0	0	for(; argi < items; argi += 2) {
965	0	0	SV *b = GvSV(bgv) = argi < items-1 ? stack[argi+1] : &PL_sv_undef;
969	0	0	if(!SvTRUEx(*PL_stack_sp))
972	0	0	POP_MULTICALL;
973	0	0	if(ret_gimme == G_LIST) {
981	0	0	POP_MULTICALL;
987	0	0	for(; argi < items; argi += 2) {
990	0	0	SV *b = GvSV(bgv) = argi < items-1 ? ST(argi+1) : &PL_sv_undef;
992	0	0	PUSHMARK(SP);
997	0	0	if(!SvTRUEx(*PL_stack_sp))
1000	0	0	if(ret_gimme == G_LIST) {
1029	0	0	if(!(items % 2) && ckWARN(WARN_MISC))
	0	0	if(!(items % 2) && ckWARN(WARN_MISC))
1038	0	0	if(!CvISXSUB(cv)) {
1047	0	0	PUSH_MULTICALL(cv);
1048	0	0	for(; argi < items; argi += 2) {
1050	0	0	SV *b = GvSV(bgv) = argi < items-1 ? stack[argi+1] : &PL_sv_undef;
1054	0	0	if(SvTRUEx(*PL_stack_sp)) {
1055	0	0	if(ret_gimme == G_LIST) {
1060	0	0	else if(ret_gimme == G_SCALAR)
1064	0	0	POP_MULTICALL;
1066	0	0	if(ret_gimme == G_LIST)
1067	0	0	for(i = 0; i < reti; i++)
1073	0	0	for(; argi < items; argi += 2) {
1076	0	0	SV *b = GvSV(bgv) = argi < items-1 ? ST(argi+1) : &PL_sv_undef;
1078	0	0	PUSHMARK(SP);
1083	0	0	if(SvTRUEx(*PL_stack_sp)) {
1084	0	0	if(ret_gimme == G_LIST) {
1088	0	0	else if(ret_gimme == G_SCALAR)
1094	0	0	if(ret_gimme == G_LIST)
1096	0	0	else if(ret_gimme == G_SCALAR) {
1116	0	0	if(!(items % 2) && ckWARN(WARN_MISC))
	0	0	if(!(items % 2) && ckWARN(WARN_MISC))
1128	0	0	if(!CvISXSUB(cv)) {
1139	0	0	PUSH_MULTICALL(cv);
1140	0	0	for(; argi < items; argi += 2) {
1144	0	0	GvSV(bgv) = argi < items-1 ? stack[argi+1]: &PL_sv_undef;
1149	0	0	if (count > 2 || spill) {
	0	0	if (count > 2 || spill) {
1161	0	0	if (!spill) {
1169	0	0	fill = (int)AvFILL(spill);
1171	0	0	for(i = 0; i < count; i++)
1176	0	0	for(i = 0; i < count; i++)
1180	0	0	if (spill) {
1187	0	0	POP_MULTICALL;
1189	0	0	if (spill) {
1190	0	0	int n = (int)AvFILL(spill) + 1;
1192	0	0	EXTEND(SP, n);
	0	0	EXTEND(SP, n);
1193	0	0	for (i = 0; i < n; i++)
1199	0	0	if(ret_gimme == G_LIST)
1200	0	0	for(i = 0; i < reti; i++)
1206	0	0	for(; argi < items; argi += 2) {
1211	0	0	GvSV(agv) = args_copy ? args_copy[argi] : ST(argi);
1213	0	0	(args_copy ? args_copy[argi+1] : ST(argi+1)) :
	0	0	(args_copy ? args_copy[argi+1] : ST(argi+1)) :
1216	0	0	PUSHMARK(SP);
1221	0	0	if(count > 2 && !args_copy && ret_gimme == G_LIST) {
	0	0	if(count > 2 && !args_copy && ret_gimme == G_LIST) {
	0	0	if(count > 2 && !args_copy && ret_gimme == G_LIST) {
1232	0	0	if(ret_gimme == G_LIST)
1233	0	0	for(i = 0; i < count; i++)
1242	0	0	if(ret_gimme == G_LIST)
1256	0	0	CV * const randcv = randsv && SvROK(randsv) && SvTYPE(SvRV(randsv)) == SVt_PVCV ?
	0	0	CV * const randcv = randsv && SvROK(randsv) && SvTYPE(SvRV(randsv)) == SVt_PVCV ?
1257	0	0	(CV *)SvRV(randsv) : NULL;
1259	0	0	if(!randcv)
1262	0	0	for (index = items ; index > 1 ; ) {
1264	0	0	(randcv ? MY_callrand(aTHX_ randcv) : Drand01()) * (double)(index--)
1279	0	0	IV count = items ? SvUV(ST(0)) : 0;
1282	0	0	CV * const randcv = randsv && SvROK(randsv) && SvTYPE(SvRV(randsv)) == SVt_PVCV ?
	0	0	CV * const randcv = randsv && SvROK(randsv) && SvTYPE(SvRV(randsv)) == SVt_PVCV ?
1283	0	0	(CV *)SvRV(randsv) : NULL;
1285	0	0	if(!count)
1294	0	0	if(count > items)
1297	0	0	if(!randcv)
1303	0	0	while(reti < count) {
1305	0	0	(randcv ? MY_callrand(aTHX_ randcv) : Drand01()) * (double)(items - reti)
1336	0	0	if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) {
	0	0	if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) {
	0	0	if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) {
	0	0	if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) {
	0	0	if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) {
	0	0	if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) {
	0	0	if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) {
1345	0	0	for(index = 0 ; index < items ; index++) {
1351	0	0	if(SvGAMAGIC(arg))
	0	0	if(SvGAMAGIC(arg))
	0	0	if(SvGAMAGIC(arg))
	0	0	if(SvGAMAGIC(arg))
1355	0	0	if(ix == 2 && !SvOK(arg)) {
	0	0	if(ix == 2 && !SvOK(arg)) {
1357	0	0	if(seen_undef)
1362	0	0	if(GIMME_V == G_LIST)
1367	0	0	if(ix == 0) {
1372	0	0	if(SvAMAGIC(arg) && (arg = AMG_CALLun(arg, int)))
	0	0	if(SvAMAGIC(arg) && (arg = AMG_CALLun(arg, int)))
	0	0	if(SvAMAGIC(arg) && (arg = AMG_CALLun(arg, int)))
	0	0	if(SvAMAGIC(arg) && (arg = AMG_CALLun(arg, int)))
1376	0	0	if(!SvOK(arg) || SvNOK(arg) || SvPOK(arg))
	0	0	if(!SvOK(arg) || SvNOK(arg) || SvPOK(arg))
	0	0	if(!SvOK(arg) || SvNOK(arg) || SvPOK(arg))
1381	0	0	if(nv > (NV)UV_MAX)
1384	0	0	else if(nv < (NV)IV_MIN)
1387	0	0	else if(nv > 0 && (UV)nv > (UV)IV_MAX)
	0	0	else if(nv > 0 && (UV)nv > (UV)IV_MAX)
1399	0	0	if (HeVAL(he))
1410	0	0	if(GIMME_V == G_LIST)
1411	0	0	ST(retcount) = SvOK(arg) ? arg : sv_2mortal(newSVpvn("", 0));
1416	0	0	if(GIMME_V == G_LIST)
1434	0	0	if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) {
	0	0	if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) {
	0	0	if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) {
	0	0	if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) {
	0	0	if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) {
	0	0	if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) {
	0	0	if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) {
1443	0	0	for(index = 0 ; index < items ; index++) {
1450	0	0	if(SvGAMAGIC(arg))
	0	0	if(SvGAMAGIC(arg))
	0	0	if(SvGAMAGIC(arg))
	0	0	if(SvGAMAGIC(arg))
1454	0	0	if(SvOK(arg) && !(SvUOK(arg) || SvIOK(arg) || SvNOK(arg))) {
	0	0	if(SvOK(arg) && !(SvUOK(arg) || SvIOK(arg) || SvNOK(arg))) {
	0	0	if(SvOK(arg) && !(SvUOK(arg) || SvIOK(arg) || SvNOK(arg))) {
	0	0	if(SvOK(arg) && !(SvUOK(arg) || SvIOK(arg) || SvNOK(arg))) {
1490	0	0	if( SvIOK(arg) || !SvOK(arg) ) {
	0	0	if( SvIOK(arg) || !SvOK(arg) ) {
1496	0	0	if(iv == 0) sv_setpvs(keysv, "0");
1500	0	0	int sign = ( iv > 0 || uok ) ? 1 : -1;
	0	0	int sign = ( iv > 0 || uok ) ? 1 : -1;
1526	0	0	if( !((iv * sign) & (~valid_bits)) ) {
1528	0	0	nv_arg = uok ? (NV)SvUV(arg) : (NV)SvIV(arg);
1537	0	0	if(uok) sv_catpvn(keysv, "U", 1);
1546	0	0	if (nv_arg != nv_arg) sv_setpvf(keysv, "%" NVgf, nv_arg);
1549	0	0	else if(nv_arg == 0) sv_setpvs(keysv, "0");
1555	0	0	if (HeVAL(he))
1566	0	0	if(GIMME_V == G_LIST)
1567	0	0	ST(retcount) = SvOK(arg) ? arg : sv_2mortal(newSViv(0));
1572	0	0	if(GIMME_V == G_LIST)
1594	0	0	if(!nlists)
1597	0	0	Newx(lists, nlists, AV *);
1603	0	0	for(i = 0; i < nlists; i++) {
1607	0	0	if(!SvROK(arg) || SvTYPE(SvRV(arg)) != SVt_PVAV)
	0	0	if(!SvROK(arg) || SvTYPE(SvRV(arg)) != SVt_PVAV)
1608	0	0	croak("Expected an ARRAY reference to %s",
1612	0	0	if(!i) {
1620	0	0	if(av_count(av) > len)
1625	0	0	if(av_count(av) < len)
1631	0	0	if(is_mesh) {
1634	0	0	EXTEND(SP, retcount);
	0	0	EXTEND(SP, retcount);
1636	0	0	for(i = 0; i < len; i++) {
1639	0	0	for(listi = 0; listi < nlists; listi++) {
1641	0	0	AvARRAY(lists[listi])[i] :
1651	0	0	EXTEND(SP, (SSize_t)len);
	0	0	EXTEND(SP, (SSize_t)len);
1653	0	0	for(i = 0; i < len; i++) {
1658	0	0	for(listi = 0; listi < nlists; listi++) {
1660	0	0	AvARRAY(lists[listi])[i] :
1681	0	0	dXSTARG;
1683	0	0	(void)SvUPGRADE(TARG, SVt_PVNV);
1687	0	0	if(SvNOK(num) || SvPOK(num) || SvMAGICAL(num)) {
	0	0	if(SvNOK(num) || SvPOK(num) || SvMAGICAL(num)) {
	0	0	if(SvNOK(num) || SvPOK(num) || SvMAGICAL(num)) {
1692	0	0	else if(SvUOK(num)) {
1703	0	0	if(PL_tainting && (SvTAINTED(num) || SvTAINTED(str)))
	0	0	if(PL_tainting && (SvTAINTED(num) || SvTAINTED(str)))
	0	0	if(PL_tainting && (SvTAINTED(num) || SvTAINTED(str)))
	0	0	if(PL_tainting && (SvTAINTED(num) || SvTAINTED(str)))
	0	0	if(PL_tainting && (SvTAINTED(num) || SvTAINTED(str)))
1704	0	0	SvTAINTED_on(TARG);
1715	0	0	if(SvMAGICAL(sv))
1718	0	0	ST(0) = boolSV((SvPOK(sv) || SvPOKp(sv)) && (SvNIOK(sv) || SvNIOKp(sv)));
	0	0	ST(0) = boolSV((SvPOK(sv) || SvPOKp(sv)) && (SvNIOK(sv) || SvNIOKp(sv)));
	0	0	ST(0) = boolSV((SvPOK(sv) || SvPOKp(sv)) && (SvNIOK(sv) || SvNIOKp(sv)));
	0	0	ST(0) = boolSV((SvPOK(sv) || SvPOKp(sv)) && (SvNIOK(sv) || SvNIOKp(sv)));
1832	0	0	SvGETMAGIC(sv);
	0	0	SvGETMAGIC(sv);
1833	0	0	RETVAL = SvREADONLY(sv);
1842	0	0	SvGETMAGIC(sv);
	0	0	SvGETMAGIC(sv);
1843	0	0	RETVAL = SvTAINTED(sv);
	0	0	RETVAL = SvTAINTED(sv);
	0	0	RETVAL = SvTAINTED(sv);
1853	0	0	SvGETMAGIC(sv);
	0	0	SvGETMAGIC(sv);
1854	0	0	ST(0) = boolSV(SvVOK(sv));
	0	0	ST(0) = boolSV(SvVOK(sv));
1866	0	0	SvGETMAGIC(sv);
	0	0	SvGETMAGIC(sv);
1867	0	0	if(SvAMAGIC(sv) && (tempsv = AMG_CALLun(sv, numer))) {
	0	0	if(SvAMAGIC(sv) && (tempsv = AMG_CALLun(sv, numer))) {
	0	0	if(SvAMAGIC(sv) && (tempsv = AMG_CALLun(sv, numer))) {
	0	0	if(SvAMAGIC(sv) && (tempsv = AMG_CALLun(sv, numer))) {
1878	0	0	RETVAL = looks_like_number(sv) ? &PL_sv_yes : &PL_sv_no;
1889	0	0	SvGETMAGIC(sv);
	0	0	SvGETMAGIC(sv);
1890	0	0	if(SvROK(sv)){
1896	0	0	if(isGV(sv)){
1897	0	0	io = GvIO((GV*)sv);
	0	0	io = GvIO((GV*)sv);
	0	0	io = GvIO((GV*)sv);
	0	0	io = GvIO((GV*)sv);
1899	0	0	else if(SvTYPE(sv) == SVt_PVIO){
1903	0	0	if(io){
1905	0	0	if(IoIFP(io) || SvTIED_mg((SV*)io, PERL_MAGIC_tiedscalar)){
	0	0	if(IoIFP(io) || SvTIED_mg((SV*)io, PERL_MAGIC_tiedscalar)){
	0	0	if(IoIFP(io) || SvTIED_mg((SV*)io, PERL_MAGIC_tiedscalar)){
1921	0	0	SvGETMAGIC(code);
	0	0	SvGETMAGIC(code);
1922	0	0	if(!SvROK(code))
1926	0	0	if(SvTYPE(cv) != SVt_PVCV)
1929	0	0	if(SvPOK(proto)) {
1959	0	0	if (!SvROK(sub) && SvGMAGICAL(sub))
	0	0	if (!SvROK(sub) && SvGMAGICAL(sub))
1961	0	0	if (SvROK(sub))
1963	0	0	else if (SvTYPE(sub) == SVt_PVGV)
1964	0	0	cv = GvCVu(sub);
1965	0	0	else if (!SvOK(sub))
1967	0	0	else if (PL_op->op_private & HINT_STRICT_REFS)
1970	0	0	else if ((gv = gv_fetchsv(sub, FALSE, SVt_PVCV)))
1971	0	0	cv = GvCVu(gv);
1972	0	0	if (!cv)
1974	0	0	if (SvTYPE(cv) != SVt_PVCV && SvTYPE(cv) != SVt_PVFM)
	0	0	if (SvTYPE(cv) != SVt_PVCV && SvTYPE(cv) != SVt_PVFM)
1976	0	0	for (s = nameptr; s <= nameptr + namelen; s++) {
1977	0	0	if (s > nameptr && *s == ':' && s[-1] == ':') {
	0	0	if (s > nameptr && *s == ':' && s[-1] == ':') {
	0	0	if (s > nameptr && *s == ':' && s[-1] == ':') {
1981	0	0	if (quotes_seen)
1986	0	0	else if (s > nameptr && *s != '\0' && s[-1] == '\'') {
	0	0	else if (s > nameptr && *s != '\0' && s[-1] == '\'') {
	0	0	else if (s > nameptr && *s != '\0' && s[-1] == '\'') {
1989	0	0	if (quotes_seen++)
1995	0	0	if (end) {
1998	0	0	if (need_subst) {
1999	0	0	STRLEN length = end - nameptr + quotes_seen - (*end == '\'' ? 1 : 0);
2004	0	0	for (i = 0, j = 0; j < end - nameptr; ++i, ++j) {
2005	0	0	if (nameptr[j] == '\'') {
2023	0	0	if (PL_DBsub && CvGV(cv)) {
	0	0	if (PL_DBsub && CvGV(cv)) {
2030	0	0	if (oldhv) {
2031	0	0	SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0));
	0	0	SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0));
	0	0	SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0));
	0	0	SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0));
	0	0	SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0));
	0	0	SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0));
	0	0	SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0));
	0	0	SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0));
	0	0	SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0));
	0	0	SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0));
	0	0	SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0));
	0	0	SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0));
	0	0	SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0));
	0	0	SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0));
	0	0	SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0));
	0	0	SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0));
	0	0	SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0));
	0	0	SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0));
	0	0	SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0));
	0	0	SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0));
2033	0	0	sv_catpvn_flags(old_full_name, GvNAME(oldgv), GvNAMELEN(oldgv), GvNAMEUTF8(oldgv) ? SV_CATUTF8 : SV_CATBYTES);
2038	0	0	if (old_data && HeVAL(old_data)) {
	0	0	if (old_data && HeVAL(old_data)) {
2040	0	0	SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0));
	0	0	SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0));
	0	0	SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0));
	0	0	SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0));
	0	0	SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0));
	0	0	SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0));
	0	0	SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0));
	0	0	SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0));
	0	0	SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0));
	0	0	SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0));
	0	0	SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0));
	0	0	SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0));
	0	0	SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0));
	0	0	SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0));
	0	0	SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0));
	0	0	SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0));
	0	0	SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0));
	0	0	SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0));
	0	0	SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0));
	0	0	SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0));
2042	0	0	sv_catpvn_flags(new_full_name, nameptr, s - nameptr, utf8flag ? SV_CATUTF8 : SV_CATBYTES);
2044	0	0	if (!hv_store_ent(DBsub, new_full_name, old_val, 0))
2060	0	0	while (mg && mg->mg_virtual != &subname_vtbl)
	0	0	while (mg && mg->mg_virtual != &subname_vtbl)
2062	0	0	if (!mg) {
2069	0	0	if (mg->mg_flags & MGf_REFCOUNTED)
2090	0	0	if (!SvROK(code) && SvGMAGICAL(code))
	0	0	if (!SvROK(code) && SvGMAGICAL(code))
2093	0	0	if(!SvROK(code) || SvTYPE(cv = (CV *)SvRV(code)) != SVt_PVCV)
	0	0	if(!SvROK(code) || SvTYPE(cv = (CV *)SvRV(code)) != SVt_PVCV)
2096	0	0	if(!(gv = CvGV(cv)))
2099	0	0	if(GvSTASH(gv))
2100	0	0	stashname = HvNAME(GvSTASH(gv));
	0	0	stashname = HvNAME(GvSTASH(gv));
	0	0	stashname = HvNAME(GvSTASH(gv));
	0	0	stashname = HvNAME(GvSTASH(gv));
	0	0	stashname = HvNAME(GvSTASH(gv));
	0	0	stashname = HvNAME(GvSTASH(gv));
2112	0	0	if(SvTYPE(rmcgv) != SVt_PVGV)
2114	0	0	rmcsv = GvSVn(rmcgv);