| line |
true |
false |
branch |
|
79
|
240 |
2108 |
if (flags & start->flag) |
|
81
|
2058 |
290 |
} while (++start < end); |
|
120
|
0 |
0 |
if (PL_main_root) |
|
140
|
0 |
0 |
if (!HvARRAY(stash)) |
|
142
|
0 |
0 |
for (i = 0; i <= (I32) HvMAX(stash); i++) { |
|
144
|
0 |
0 |
for (entry = HvARRAY(stash)[i]; entry; entry = HeNEXT(entry)) { |
|
146
|
0 |
0 |
if (SvTYPE(gv) != SVt_PVGV || !GvGP(gv)) |
|
|
0 |
0 |
if (SvTYPE(gv) != SVt_PVGV || !GvGP(gv)) |
|
148
|
0 |
0 |
if (GvCVu(gv)) |
|
|
0 |
0 |
if (GvCVu(gv)) |
|
150
|
0 |
0 |
if (GvFORM(gv)) |
|
152
|
0 |
0 |
if (HeKEY(entry)[HeKLEN(entry)-1] == ':') { |
|
154
|
0 |
0 |
if (hv && (hv != PL_defstash)) |
|
|
0 |
0 |
if (hv && (hv != PL_defstash)) |
|
175
|
0 |
0 |
if (justperl && (CvISXSUB(GvCV(gv)) || !CvROOT(GvCV(gv)))) |
|
|
0 |
0 |
if (justperl && (CvISXSUB(GvCV(gv)) || !CvROOT(GvCV(gv)))) |
|
|
0 |
0 |
if (justperl && (CvISXSUB(GvCV(gv)) || !CvROOT(GvCV(gv)))) |
|
181
|
0 |
0 |
if (CvISXSUB(GvCV(gv))) |
|
185
|
0 |
0 |
else if (CvROOT(GvCV(gv))) |
|
200
|
0 |
0 |
if (CvROOT(GvFORM(gv))) |
|
260
|
76004 |
597 |
const char esc = (flags & PERL_PV_ESCAPE_RE) ? '%' : '\\'; |
|
261
|
76144 |
457 |
const char dq = (flags & PERL_PV_ESCAPE_QUOTE) ? '"' : esc; |
|
273
|
3 |
76598 |
if (!(flags & PERL_PV_ESCAPE_NOCLEAR)) { |
|
278
|
158 |
76443 |
if ((flags & PERL_PV_ESCAPE_UNI_DETECT) && is_utf8_string((U8*)pv, count)) |
|
|
158 |
0 |
if ((flags & PERL_PV_ESCAPE_UNI_DETECT) && is_utf8_string((U8*)pv, count)) |
|
281
|
108263 |
76543 |
for ( ; (pv < end && (!max || (wrote < max))) ; pv += readsize ) { |
|
|
108252 |
11 |
for ( ; (pv < end && (!max || (wrote < max))) ; pv += readsize ) { |
|
282
|
506 |
107746 |
const UV u= (isuni) ? utf8_to_uvchr_buf((U8*)pv, (U8*) end, &readsize) : (U8)*pv; |
|
|
138 |
368 |
const UV u= (isuni) ? utf8_to_uvchr_buf((U8*)pv, (U8*) end, &readsize) : (U8)*pv; |
|
285
|
108193 |
59 |
if ( ( u > 255 ) |
|
286
|
108193 |
0 |
|| (flags & PERL_PV_ESCAPE_ALL) |
|
287
|
54 |
108139 |
|| (( ! isASCII(u) ) && (flags & PERL_PV_ESCAPE_NONASCII))) |
|
|
49 |
5 |
|| (( ! isASCII(u) ) && (flags & PERL_PV_ESCAPE_NONASCII))) |
|
289
|
0 |
108 |
if (flags & PERL_PV_ESCAPE_FIRSTCHAR) |
|
290
|
0 |
0 |
chsize = my_snprintf( octbuf, PV_ESCAPE_OCTBUFSIZE, |
|
293
|
0 |
108 |
chsize = my_snprintf( octbuf, PV_ESCAPE_OCTBUFSIZE, |
|
295
|
108144 |
0 |
} else if (flags & PERL_PV_ESCAPE_NOBACKSLASH) { |
|
298
|
106480 |
1664 |
if ( (c == dq) || (c == esc) || !isPRINT(c) ) { |
|
|
106479 |
1 |
if ( (c == dq) || (c == esc) || !isPRINT(c) ) { |
|
|
25 |
106454 |
if ( (c == dq) || (c == esc) || !isPRINT(c) ) { |
|
303
|
1663 |
0 |
case '%' : if ( c == esc ) { |
|
315
|
2 |
0 |
if ( dq == '"' ) |
|
321
|
11 |
6 |
if ( (pv+readsize < end) && isDIGIT((U8)*(pv+readsize)) ) |
|
|
1 |
10 |
if ( (pv+readsize < end) && isDIGIT((U8)*(pv+readsize)) ) |
|
322
|
0 |
1 |
chsize = my_snprintf( octbuf, PV_ESCAPE_OCTBUFSIZE, |
|
325
|
0 |
16 |
chsize = my_snprintf( octbuf, PV_ESCAPE_OCTBUFSIZE, |
|
332
|
108082 |
170 |
if ( max && (wrote + chsize > max) ) { |
|
|
108082 |
0 |
if ( max && (wrote + chsize > max) ) { |
|
334
|
1798 |
106454 |
} else if (chsize > 1) { |
|
347
|
108205 |
47 |
if ( flags & PERL_PV_ESCAPE_FIRSTCHAR ) |
|
350
|
76598 |
3 |
if (escaped != NULL) |
|
384
|
76141 |
457 |
const U8 dq = (flags & PERL_PV_PRETTY_QUOTE) ? '"' : '%'; |
|
389
|
76480 |
118 |
if (!(flags & PERL_PV_PRETTY_NOCLEAR)) { |
|
394
|
457 |
76141 |
if ( dq == '"' ) |
|
396
|
137 |
76004 |
else if ( flags & PERL_PV_PRETTY_LTGT ) |
|
399
|
783 |
75815 |
if ( start_color != NULL ) |
|
404
|
783 |
75815 |
if ( end_color != NULL ) |
|
407
|
457 |
76141 |
if ( dq == '"' ) |
|
409
|
137 |
76004 |
else if ( flags & PERL_PV_PRETTY_LTGT ) |
|
412
|
594 |
76004 |
if ( (flags & PERL_PV_PRETTY_ELLIPSES) && ( escaped < count ) ) |
|
|
6 |
588 |
if ( (flags & PERL_PV_PRETTY_ELLIPSES) && ( escaped < count ) ) |
|
439
|
4 |
78 |
if (len > cur && pv[cur] == '\0') |
|
|
4 |
0 |
if (len > cur && pv[cur] == '\0') |
|
454
|
0 |
0 |
if (!sv) { |
|
458
|
0 |
0 |
else if (sv == (const SV *)0x55555555 || ((char)SvTYPE(sv)) == 'U') { |
|
|
0 |
0 |
else if (sv == (const SV *)0x55555555 || ((char)SvTYPE(sv)) == 'U') { |
|
463
|
0 |
0 |
else if (sv == &PL_sv_undef || sv == &PL_sv_no || sv == &PL_sv_yes || sv == &PL_sv_placeholder) { |
|
|
0 |
0 |
else if (sv == &PL_sv_undef || sv == &PL_sv_no || sv == &PL_sv_yes || sv == &PL_sv_placeholder) { |
|
|
0 |
0 |
else if (sv == &PL_sv_undef || sv == &PL_sv_no || sv == &PL_sv_yes || sv == &PL_sv_placeholder) { |
|
|
0 |
0 |
else if (sv == &PL_sv_undef || sv == &PL_sv_no || sv == &PL_sv_yes || sv == &PL_sv_placeholder) { |
|
464
|
0 |
0 |
if (sv == &PL_sv_undef) { |
|
466
|
0 |
0 |
if (!(SvFLAGS(sv) & (SVf_OK|SVf_OOK|SVs_OBJECT| |
|
471
|
0 |
0 |
else if (sv == &PL_sv_no) { |
|
473
|
0 |
0 |
if (!(SvFLAGS(sv) & (SVf_ROK|SVf_OOK|SVs_OBJECT| |
|
474
|
0 |
0 |
SVs_GMG|SVs_SMG|SVs_RMG)) && |
|
476
|
0 |
0 |
SVp_POK|SVp_NOK)) && |
|
477
|
0 |
0 |
SvCUR(sv) == 0 && |
|
481
|
0 |
0 |
else if (sv == &PL_sv_yes) { |
|
483
|
0 |
0 |
if (!(SvFLAGS(sv) & (SVf_ROK|SVf_OOK|SVs_OBJECT| |
|
484
|
0 |
0 |
SVs_GMG|SVs_SMG|SVs_RMG)) && |
|
486
|
0 |
0 |
SVp_POK|SVp_NOK)) && |
|
487
|
0 |
0 |
SvCUR(sv) == 1 && |
|
488
|
0 |
0 |
SvPVX_const(sv) && *SvPVX_const(sv) == '1' && |
|
|
0 |
0 |
SvPVX_const(sv) && *SvPVX_const(sv) == '1' && |
|
494
|
0 |
0 |
if (!(SvFLAGS(sv) & (SVf_OK|SVf_OOK|SVs_OBJECT| |
|
501
|
0 |
0 |
else if (SvREFCNT(sv) == 0) { |
|
505
|
0 |
0 |
else if (DEBUG_R_TEST_) { |
|
509
|
0 |
0 |
for (ix=PL_tmps_ix; ix>=0; ix--) { |
|
510
|
0 |
0 |
if (PL_tmps_stack[ix] == sv) { |
|
515
|
0 |
0 |
if (SvREFCNT(sv) > 1) |
|
516
|
0 |
0 |
Perl_sv_catpvf(aTHX_ t, "<%"UVuf"%s>", (UV)SvREFCNT(sv), |
|
518
|
0 |
0 |
else if (is_tmp) |
|
522
|
0 |
0 |
if (SvROK(sv)) { |
|
524
|
0 |
0 |
if (SvCUR(t) + unref > 10) { |
|
534
|
0 |
0 |
if (type == SVt_PVCV) { |
|
535
|
0 |
0 |
Perl_sv_catpvf(aTHX_ t, "CV(%s)", CvGV(sv) ? GvNAME(CvGV(sv)) : ""); |
|
537
|
0 |
0 |
} else if (type < SVt_LAST) { |
|
540
|
0 |
0 |
if (type == SVt_NULL) |
|
547
|
0 |
0 |
if (SvPOKp(sv)) { |
|
548
|
0 |
0 |
if (!SvPVX_const(sv)) |
|
553
|
0 |
0 |
if (SvOOK(sv)) { |
|
555
|
0 |
0 |
SvOOK_offset(sv, delta); |
|
|
0 |
0 |
SvOOK_offset(sv, delta); |
|
559
|
0 |
0 |
if (SvUTF8(sv)) |
|
566
|
0 |
0 |
else if (SvNOKp(sv)) { |
|
567
|
0 |
0 |
STORE_NUMERIC_LOCAL_SET_STANDARD(); |
|
|
0 |
0 |
STORE_NUMERIC_LOCAL_SET_STANDARD(); |
|
|
0 |
0 |
STORE_NUMERIC_LOCAL_SET_STANDARD(); |
|
|
0 |
0 |
STORE_NUMERIC_LOCAL_SET_STANDARD(); |
|
|
0 |
0 |
STORE_NUMERIC_LOCAL_SET_STANDARD(); |
|
569
|
0 |
0 |
RESTORE_NUMERIC_LOCAL(); |
|
571
|
0 |
0 |
else if (SvIOKp(sv)) { |
|
572
|
0 |
0 |
if (SvIsUV(sv)) |
|
581
|
0 |
0 |
while (unref--) |
|
583
|
0 |
0 |
if (TAINTING_get && SvTAINTED(sv)) |
|
|
0 |
0 |
if (TAINTING_get && SvTAINTED(sv)) |
|
|
0 |
0 |
if (TAINTING_get && SvTAINTED(sv)) |
|
585
|
0 |
0 |
return SvPV_nolen(t); |
|
595
|
0 |
0 |
if (!pm) { |
|
601
|
0 |
0 |
if (pm->op_pmflags & PMf_ONCE) |
|
605
|
0 |
0 |
if (PM_GETRE(pm)) |
|
606
|
0 |
0 |
Perl_dump_indent(aTHX_ level, file, "PMf_PRE %c%s%c%s\n", |
|
611
|
0 |
0 |
if (pm->op_type != OP_PUSHRE && pm->op_pmreplrootu.op_pmreplroot) { |
|
|
0 |
0 |
if (pm->op_type != OP_PUSHRE && pm->op_pmreplrootu.op_pmreplroot) { |
|
615
|
0 |
0 |
if (pm->op_code_list) { |
|
616
|
0 |
0 |
if (pm->op_pmflags & PMf_CODELIST_PRIVATE) { |
|
624
|
0 |
0 |
if (pm->op_pmflags || (PM_GETRE(pm) && RX_CHECK_SUBSTR(PM_GETRE(pm)))) { |
|
|
0 |
0 |
if (pm->op_pmflags || (PM_GETRE(pm) && RX_CHECK_SUBSTR(PM_GETRE(pm)))) { |
|
|
0 |
0 |
if (pm->op_pmflags || (PM_GETRE(pm) && RX_CHECK_SUBSTR(PM_GETRE(pm)))) { |
|
626
|
0 |
0 |
Perl_dump_indent(aTHX_ level, file, "PMFLAGS = (%s)\n", SvCUR(tmpsv) ? SvPVX_const(tmpsv) + 1 : ""); |
|
655
|
0 |
0 |
if (pmflags & PMf_ONCE) |
|
661
|
0 |
0 |
if (pmflags & PMf_USED) |
|
665
|
0 |
0 |
if (regex) { |
|
666
|
0 |
0 |
if (RX_ISTAINTED(regex)) |
|
668
|
0 |
0 |
if (RX_CHECK_SUBSTR(regex)) { |
|
669
|
0 |
0 |
if (!(RX_EXTFLAGS(regex) & RXf_NOSCAN)) |
|
671
|
0 |
0 |
if (RX_EXTFLAGS(regex) & RXf_CHECK_ALL) |
|
674
|
0 |
0 |
if (RX_EXTFLAGS(regex) & RXf_SKIPWHITE) |
|
701
|
0 |
0 |
if (!o) |
|
705
|
0 |
0 |
key = SvPV_const(op, len); |
|
706
|
0 |
0 |
if (!PL_op_sequence) |
|
709
|
0 |
0 |
if (seq) |
|
710
|
0 |
0 |
return SvUV(*seq); |
|
834
|
0 |
0 |
if (optype == start->op_type) { |
|
839
|
0 |
0 |
} while (++start < end); |
|
981
|
0 |
0 |
if (seq) |
|
985
|
0 |
0 |
PerlIO_printf(file, |
|
987
|
0 |
0 |
(int)(PL_dumpindent*level-4), "", OP_NAME(o)); |
|
988
|
0 |
0 |
if (o->op_next) |
|
989
|
0 |
0 |
PerlIO_printf(file, |
|
994
|
0 |
0 |
if (o->op_targ) { |
|
995
|
0 |
0 |
if (optype == OP_NULL) { |
|
997
|
0 |
0 |
if (o->op_targ == OP_NEXTSTATE) { |
|
998
|
0 |
0 |
if (CopLINE(cCOPo)) |
|
1001
|
0 |
0 |
if (CopSTASHPV(cCOPo)) |
|
|
0 |
0 |
if (CopSTASHPV(cCOPo)) |
|
|
0 |
0 |
if (CopSTASHPV(cCOPo)) |
|
|
0 |
0 |
if (CopSTASHPV(cCOPo)) |
|
|
0 |
0 |
if (CopSTASHPV(cCOPo)) |
|
|
0 |
0 |
if (CopSTASHPV(cCOPo)) |
|
|
0 |
0 |
if (CopSTASHPV(cCOPo)) |
|
1002
|
0 |
0 |
Perl_dump_indent(aTHX_ level, file, "PACKAGE = \"%s\"\n", |
|
1003
|
0 |
0 |
CopSTASHPV(cCOPo)); |
|
|
0 |
0 |
CopSTASHPV(cCOPo)); |
|
|
0 |
0 |
CopSTASHPV(cCOPo)); |
|
|
0 |
0 |
CopSTASHPV(cCOPo)); |
|
|
0 |
0 |
CopSTASHPV(cCOPo)); |
|
|
0 |
0 |
CopSTASHPV(cCOPo)); |
|
1004
|
0 |
0 |
if (CopLABEL(cCOPo)) |
|
1016
|
0 |
0 |
DUMP_OP_FLAGS(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_FLAGS(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_FLAGS(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_FLAGS(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_FLAGS(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_FLAGS(o,0,level,file); |
|
1017
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
|
0 |
0 |
DUMP_OP_PRIVATE(o,0,level,file); |
|
1069
|
0 |
0 |
if ( ! (o->op_flags & OPf_SPECIAL)) { /* not lexical */ |
|
1070
|
0 |
0 |
if (cSVOPo->op_sv) { |
|
1080
|
0 |
0 |
Perl_dump_indent(aTHX_ level, file, "GV = %s\n", |
|
1100
|
0 |
0 |
if (CopLINE(cCOPo)) |
|
1103
|
0 |
0 |
if (CopSTASHPV(cCOPo)) |
|
|
0 |
0 |
if (CopSTASHPV(cCOPo)) |
|
|
0 |
0 |
if (CopSTASHPV(cCOPo)) |
|
|
0 |
0 |
if (CopSTASHPV(cCOPo)) |
|
|
0 |
0 |
if (CopSTASHPV(cCOPo)) |
|
|
0 |
0 |
if (CopSTASHPV(cCOPo)) |
|
|
0 |
0 |
if (CopSTASHPV(cCOPo)) |
|
1104
|
0 |
0 |
Perl_dump_indent(aTHX_ level, file, "PACKAGE = \"%s\"\n", |
|
1105
|
0 |
0 |
CopSTASHPV(cCOPo)); |
|
|
0 |
0 |
CopSTASHPV(cCOPo)); |
|
|
0 |
0 |
CopSTASHPV(cCOPo)); |
|
|
0 |
0 |
CopSTASHPV(cCOPo)); |
|
|
0 |
0 |
CopSTASHPV(cCOPo)); |
|
|
0 |
0 |
CopSTASHPV(cCOPo)); |
|
1106
|
0 |
0 |
if (CopLABEL(cCOPo)) |
|
1112
|
0 |
0 |
if (cLOOPo->op_redoop) |
|
1117
|
0 |
0 |
if (cLOOPo->op_nextop) |
|
1122
|
0 |
0 |
if (cLOOPo->op_lastop) |
|
1134
|
0 |
0 |
if (cLOGOPo->op_other) |
|
1151
|
0 |
0 |
if (o->op_private & OPpREFCOUNTED) |
|
1157
|
0 |
0 |
if (o->op_flags & OPf_KIDS) { |
|
1159
|
0 |
0 |
for (kid = cUNOPo->op_first; kid; kid = kid->op_sibling) |
|
1179
|
0 |
0 |
if (!gv) { |
|
1187
|
0 |
0 |
if (gv != GvEGV(gv)) { |
|
1211
|
0 |
0 |
for (; mg; mg = mg->mg_moremagic) { |
|
1214
|
0 |
0 |
if (mg->mg_virtual) { |
|
1216
|
0 |
0 |
if (v >= PL_magic_vtables |
|
1217
|
0 |
0 |
&& v < PL_magic_vtables + magic_vtable_max) { |
|
1227
|
0 |
0 |
if (mg->mg_private) |
|
1233
|
0 |
0 |
for (n = 0; magic_names[n].name; n++) { |
|
1234
|
0 |
0 |
if (mg->mg_type == magic_names[n].type) { |
|
1239
|
0 |
0 |
if (name) |
|
1247
|
0 |
0 |
if (mg->mg_flags) { |
|
1249
|
0 |
0 |
if (mg->mg_type == PERL_MAGIC_envelem && |
|
|
0 |
0 |
if (mg->mg_type == PERL_MAGIC_envelem && |
|
1252
|
0 |
0 |
if (mg->mg_type == PERL_MAGIC_regex_global && |
|
|
0 |
0 |
if (mg->mg_type == PERL_MAGIC_regex_global && |
|
1255
|
0 |
0 |
if (mg->mg_flags & MGf_REFCOUNTED) |
|
1257
|
0 |
0 |
if (mg->mg_flags & MGf_GSKIP) |
|
1259
|
0 |
0 |
if (mg->mg_flags & MGf_COPY) |
|
1261
|
0 |
0 |
if (mg->mg_flags & MGf_DUP) |
|
1263
|
0 |
0 |
if (mg->mg_flags & MGf_LOCAL) |
|
1265
|
0 |
0 |
if (mg->mg_type == PERL_MAGIC_regex_global && |
|
|
0 |
0 |
if (mg->mg_type == PERL_MAGIC_regex_global && |
|
1269
|
0 |
0 |
if (mg->mg_obj) { |
|
1272
|
0 |
0 |
if (mg->mg_type == PERL_MAGIC_qr) { |
|
1276
|
0 |
0 |
= pv_pretty(dsv, RX_WRAPPED(re), RX_WRAPLEN(re), |
|
1285
|
0 |
0 |
if (mg->mg_flags & MGf_REFCOUNTED) |
|
1288
|
0 |
0 |
if (mg->mg_len) |
|
1290
|
0 |
0 |
if (mg->mg_ptr) { |
|
1292
|
0 |
0 |
if (mg->mg_len >= 0) { |
|
1293
|
0 |
0 |
if (mg->mg_type != PERL_MAGIC_utf8) { |
|
1299
|
0 |
0 |
else if (mg->mg_len == HEf_SVKEY) { |
|
1305
|
0 |
0 |
else if (mg->mg_len == -1 && mg->mg_type == PERL_MAGIC_utf8); |
|
|
0 |
0 |
else if (mg->mg_len == -1 && mg->mg_type == PERL_MAGIC_utf8); |
|
1314
|
0 |
0 |
if (mg->mg_type == PERL_MAGIC_utf8) { |
|
1316
|
0 |
0 |
if (cache) { |
|
1318
|
0 |
0 |
for (i = 0; i < PERL_MAGIC_UTF8_CACHESIZE; i++) |
|
1343
|
0 |
0 |
if (sv && (hvname = HvNAME_get(sv))) |
|
|
0 |
0 |
if (sv && (hvname = HvNAME_get(sv))) |
|
|
0 |
0 |
if (sv && (hvname = HvNAME_get(sv))) |
|
|
0 |
0 |
if (sv && (hvname = HvNAME_get(sv))) |
|
|
0 |
0 |
if (sv && (hvname = HvNAME_get(sv))) |
|
|
0 |
0 |
if (sv && (hvname = HvNAME_get(sv))) |
|
|
0 |
0 |
if (sv && (hvname = HvNAME_get(sv))) |
|
|
0 |
0 |
if (sv && (hvname = HvNAME_get(sv))) |
|
1350
|
0 |
0 |
PerlIO_printf(file, "\t%s\n", pv_display(tmpsv, hvname, HvNAMELEN_get(sv), 0, 1024)); |
|
|
0 |
0 |
PerlIO_printf(file, "\t%s\n", pv_display(tmpsv, hvname, HvNAMELEN_get(sv), 0, 1024)); |
|
|
0 |
0 |
PerlIO_printf(file, "\t%s\n", pv_display(tmpsv, hvname, HvNAMELEN_get(sv), 0, 1024)); |
|
|
0 |
0 |
PerlIO_printf(file, "\t%s\n", pv_display(tmpsv, hvname, HvNAMELEN_get(sv), 0, 1024)); |
|
|
0 |
0 |
PerlIO_printf(file, "\t%s\n", pv_display(tmpsv, hvname, HvNAMELEN_get(sv), 0, 1024)); |
|
|
0 |
0 |
PerlIO_printf(file, "\t%s\n", pv_display(tmpsv, hvname, HvNAMELEN_get(sv), 0, 1024)); |
|
1362
|
0 |
0 |
if (sv && GvNAME(sv)) |
|
|
0 |
0 |
if (sv && GvNAME(sv)) |
|
1374
|
0 |
0 |
if (sv && GvNAME(sv)) { |
|
|
0 |
0 |
if (sv && GvNAME(sv)) { |
|
1377
|
0 |
0 |
if (GvSTASH(sv) && (hvname = HvNAME_get(GvSTASH(sv)))) |
|
|
0 |
0 |
if (GvSTASH(sv) && (hvname = HvNAME_get(GvSTASH(sv)))) |
|
|
0 |
0 |
if (GvSTASH(sv) && (hvname = HvNAME_get(GvSTASH(sv)))) |
|
|
0 |
0 |
if (GvSTASH(sv) && (hvname = HvNAME_get(GvSTASH(sv)))) |
|
|
0 |
0 |
if (GvSTASH(sv) && (hvname = HvNAME_get(GvSTASH(sv)))) |
|
|
0 |
0 |
if (GvSTASH(sv) && (hvname = HvNAME_get(GvSTASH(sv)))) |
|
|
0 |
0 |
if (GvSTASH(sv) && (hvname = HvNAME_get(GvSTASH(sv)))) |
|
|
0 |
0 |
if (GvSTASH(sv) && (hvname = HvNAME_get(GvSTASH(sv)))) |
|
1489
|
0 |
132 |
if (!sv) { |
|
1505
|
0 |
132 |
if (!((flags & SVpad_NAME) == SVpad_NAME |
|
|
0 |
0 |
if (!((flags & SVpad_NAME) == SVpad_NAME |
|
1507
|
0 |
132 |
if ((flags & SVs_PADMY) && (flags & SVs_PADSTALE)) |
|
1510
|
132 |
0 |
if (!((flags & SVpad_NAME) == SVpad_NAME && type == SVt_PVMG)) { |
|
1511
|
0 |
132 |
if (!(flags & SVs_PADMY) && (flags & SVs_PADTMP)) |
|
1513
|
26 |
106 |
if (flags & SVs_PADMY) sv_catpv(d, "PADMY,"); |
|
1516
|
26 |
106 |
if (flags & SVf_ROK) { |
|
1518
|
0 |
26 |
if (SvWEAKREF(sv)) sv_catpv(d, "WEAKREF,"); |
|
1521
|
0 |
132 |
if (flags & SVp_SCREAM && type != SVt_PVHV && !isGV_with_GP(sv) |
|
|
0 |
0 |
if (flags & SVp_SCREAM && type != SVt_PVHV && !isGV_with_GP(sv) |
|
|
0 |
0 |
if (flags & SVp_SCREAM && type != SVt_PVHV && !isGV_with_GP(sv) |
|
1522
|
0 |
0 |
&& type != SVt_PVAV) { |
|
1523
|
0 |
0 |
if (SvPCS_IMPORTED(sv)) |
|
1541
|
0 |
0 |
if (isGV_with_GP(sv)) { |
|
|
0 |
0 |
if (isGV_with_GP(sv)) { |
|
1544
|
0 |
0 |
if (isGV_with_GP(sv) && GvIMPORTED(sv)) { |
|
|
0 |
0 |
if (isGV_with_GP(sv) && GvIMPORTED(sv)) { |
|
|
0 |
0 |
if (isGV_with_GP(sv) && GvIMPORTED(sv)) { |
|
1546
|
0 |
0 |
if (GvIMPORTED(sv) == GVf_IMPORTED) |
|
1557
|
0 |
106 |
if (SvEVALED(sv)) sv_catpv(d, "EVALED,"); |
|
1558
|
0 |
106 |
if (SvIsUV(sv) && !(flags & SVf_ROK)) sv_catpv(d, "IsUV,"); |
|
|
0 |
0 |
if (SvIsUV(sv) && !(flags & SVf_ROK)) sv_catpv(d, "IsUV,"); |
|
1561
|
0 |
2 |
if (SvTAIL(sv)) sv_catpv(d, "TAIL,"); |
|
1562
|
0 |
2 |
if (SvVALID(sv)) sv_catpv(d, "VALID,"); |
|
1563
|
0 |
2 |
if (SvPAD_TYPED(sv)) sv_catpv(d, "TYPED,"); |
|
1564
|
0 |
2 |
if (SvPAD_OUR(sv)) sv_catpv(d, "OUR,"); |
|
1567
|
2 |
0 |
if (SvPAD_STATE(sv)) sv_catpv(d, "STATE,"); |
|
1570
|
0 |
0 |
if (AvPAD_NAMELIST(sv)) sv_catpvs(d, "NAMELIST,"); |
|
1574
|
106 |
26 |
if ((type != SVt_PVHV) && SvUTF8(sv)) |
|
|
0 |
106 |
if ((type != SVt_PVHV) && SvUTF8(sv)) |
|
1577
|
132 |
0 |
if (*(SvEND(d) - 1) == ',') { |
|
1601
|
132 |
0 |
if (type < SVt_LAST) { |
|
1604
|
0 |
132 |
if (type == SVt_NULL) { |
|
1616
|
28 |
104 |
if ((type >= SVt_PVIV && type != SVt_PVAV && type != SVt_PVHV |
|
1617
|
2 |
26 |
&& type != SVt_PVCV && type != SVt_PVFM && type != SVt_PVIO |
|
|
2 |
0 |
&& type != SVt_PVCV && type != SVt_PVFM && type != SVt_PVIO |
|
1618
|
2 |
0 |
&& type != SVt_REGEXP && !isGV_with_GP(sv) && !SvVALID(sv)) |
|
|
0 |
2 |
&& type != SVt_REGEXP && !isGV_with_GP(sv) && !SvVALID(sv)) |
|
|
0 |
0 |
&& type != SVt_REGEXP && !isGV_with_GP(sv) && !SvVALID(sv)) |
|
|
0 |
2 |
&& type != SVt_REGEXP && !isGV_with_GP(sv) && !SvVALID(sv)) |
|
1619
|
104 |
26 |
|| (type == SVt_IV && !SvROK(sv))) { |
|
|
78 |
26 |
|| (type == SVt_IV && !SvROK(sv))) { |
|
1620
|
0 |
80 |
if (SvIsUV(sv) |
|
1637
|
2 |
130 |
if ((type == SVt_PVNV || type == SVt_PVMG) |
|
1638
|
0 |
2 |
&& (SvFLAGS(sv) & SVpad_NAME) == SVpad_NAME) { |
|
1643
|
28 |
104 |
} else if ((type >= SVt_PVNV && type != SVt_PVAV && type != SVt_PVHV |
|
1644
|
2 |
26 |
&& type != SVt_PVCV && type != SVt_PVFM && type != SVt_REGEXP |
|
|
2 |
0 |
&& type != SVt_PVCV && type != SVt_PVFM && type != SVt_REGEXP |
|
1645
|
2 |
0 |
&& type != SVt_PVIO && !isGV_with_GP(sv) && !SvVALID(sv)) |
|
|
0 |
2 |
&& type != SVt_PVIO && !isGV_with_GP(sv) && !SvVALID(sv)) |
|
|
0 |
0 |
&& type != SVt_PVIO && !isGV_with_GP(sv) && !SvVALID(sv)) |
|
|
0 |
2 |
&& type != SVt_PVIO && !isGV_with_GP(sv) && !SvVALID(sv)) |
|
1646
|
0 |
130 |
|| type == SVt_NV) { |
|
1647
|
0 |
2 |
STORE_NUMERIC_LOCAL_SET_STANDARD(); |
|
|
0 |
0 |
STORE_NUMERIC_LOCAL_SET_STANDARD(); |
|
|
0 |
0 |
STORE_NUMERIC_LOCAL_SET_STANDARD(); |
|
|
0 |
0 |
STORE_NUMERIC_LOCAL_SET_STANDARD(); |
|
|
0 |
2 |
STORE_NUMERIC_LOCAL_SET_STANDARD(); |
|
1654
|
0 |
2 |
RESTORE_NUMERIC_LOCAL(); |
|
1657
|
26 |
106 |
if (SvROK(sv)) { |
|
1659
|
26 |
0 |
if (nest < maxnest) |
|
1663
|
104 |
28 |
if (type < SVt_PV) { |
|
1668
|
2 |
26 |
if ((type <= SVt_PVLV && !isGV_with_GP(sv)) |
|
|
0 |
2 |
if ((type <= SVt_PVLV && !isGV_with_GP(sv)) |
|
|
0 |
0 |
if ((type <= SVt_PVLV && !isGV_with_GP(sv)) |
|
1669
|
0 |
26 |
|| (type == SVt_PVIO && IoFLAGS(sv) & IOf_FAKE_DIRP)) { |
|
|
0 |
0 |
|| (type == SVt_PVIO && IoFLAGS(sv) & IOf_FAKE_DIRP)) { |
|
1670
|
2 |
0 |
const bool re = isREGEXP(sv); |
|
|
2 |
0 |
const bool re = isREGEXP(sv); |
|
1672
|
0 |
2 |
re ? RX_WRAPPED((REGEXP*)sv) : SvPVX_const(sv); |
|
1673
|
2 |
0 |
if (ptr) { |
|
1675
|
0 |
2 |
if (SvOOK(sv)) { |
|
1676
|
0 |
0 |
SvOOK_offset(sv, delta); |
|
|
0 |
0 |
SvOOK_offset(sv, delta); |
|
1683
|
0 |
2 |
if (SvOOK(sv)) { |
|
1688
|
0 |
2 |
if (type == SVt_INVLIST) { |
|
1694
|
2 |
0 |
PerlIO_printf(file, "%s", pv_display(d, ptr, SvCUR(sv), |
|
1697
|
0 |
2 |
if (SvUTF8(sv)) /* the 6? \x{....} */ |
|
1704
|
2 |
0 |
if (!re) |
|
1708
|
0 |
2 |
if (SvIsCOW(sv) && SvLEN(sv)) |
|
|
0 |
0 |
if (SvIsCOW(sv) && SvLEN(sv)) |
|
1717
|
28 |
0 |
if (type >= SVt_PVMG) { |
|
1718
|
2 |
26 |
if (type == SVt_PVMG && SvPAD_OUR(sv)) { |
|
|
0 |
2 |
if (type == SVt_PVMG && SvPAD_OUR(sv)) { |
|
1719
|
0 |
0 |
HV * const ost = SvOURSTASH(sv); |
|
1720
|
0 |
0 |
if (ost) |
|
1722
|
0 |
28 |
} else if (SvTYPE(sv) == SVt_PVAV && AvPAD_NAMELIST(sv)) { |
|
1726
|
0 |
28 |
if (SvMAGIC(sv)) |
|
1729
|
0 |
28 |
if (SvSTASH(sv)) |
|
1732
|
2 |
26 |
if ((type == SVt_PVMG || type == SVt_PVLV) && SvVALID(sv)) { |
|
|
0 |
2 |
if ((type == SVt_PVMG || type == SVt_PVLV) && SvVALID(sv)) { |
|
1742
|
0 |
0 |
if (AvARRAY(sv) != AvALLOC(sv)) { |
|
1752
|
0 |
0 |
if (!AvPAD_NAMELIST(sv)) |
|
1753
|
0 |
0 |
Perl_dump_indent(aTHX_ level, file, " ARYLEN = 0x%"UVxf"\n", |
|
1756
|
0 |
0 |
if (AvREAL(sv)) sv_catpv(d, ",REAL"); |
|
1757
|
0 |
0 |
if (AvREIFY(sv)) sv_catpv(d, ",REIFY"); |
|
1758
|
0 |
0 |
Perl_dump_indent(aTHX_ level, file, " FLAGS = (%s)\n", |
|
1760
|
0 |
0 |
if (nest < maxnest && av_len(MUTABLE_AV(sv)) >= 0) { |
|
|
0 |
0 |
if (nest < maxnest && av_len(MUTABLE_AV(sv)) >= 0) { |
|
1762
|
0 |
0 |
for (count = 0; count <= av_len(MUTABLE_AV(sv)) && count < maxnest; count++) { |
|
|
0 |
0 |
for (count = 0; count <= av_len(MUTABLE_AV(sv)) && count < maxnest; count++) { |
|
1766
|
0 |
0 |
if (elt) |
|
1773
|
26 |
0 |
if (HvARRAY(sv) && HvUSEDKEYS(sv)) { |
|
|
0 |
26 |
if (HvARRAY(sv) && HvUSEDKEYS(sv)) { |
|
|
26 |
0 |
if (HvARRAY(sv) && HvUSEDKEYS(sv)) { |
|
1779
|
0 |
26 |
U32 pow2 = 2, keys = HvUSEDKEYS(sv); |
|
1784
|
832 |
26 |
for (i = 0; (STRLEN)i <= HvMAX(sv); i++) { |
|
1787
|
676 |
832 |
for (h = HvARRAY(sv)[i]; h; h = HeNEXT(h)) |
|
1789
|
0 |
832 |
if (count > FREQ_MAX) |
|
1792
|
52 |
780 |
if (max < count) |
|
1795
|
78 |
26 |
for (i = 0; i <= max; i++) { |
|
1796
|
78 |
0 |
if (freq[i]) { |
|
1797
|
78 |
0 |
PerlIO_printf(file, "%d%s:%d", i, |
|
1800
|
52 |
26 |
if (i != max) |
|
1816
|
52 |
26 |
for (i = max; i > 0; i--) { /* Precision: count down. */ |
|
1819
|
104 |
26 |
while ((keys = keys >> 1)) |
|
1821
|
0 |
26 |
theoret = HvUSEDKEYS(sv); |
|
1827
|
0 |
26 |
Perl_dump_indent(aTHX_ level, file, " KEYS = %"IVdf"\n", (IV)HvUSEDKEYS(sv)); |
|
1832
|
26 |
0 |
if (ents) { |
|
1837
|
312 |
520 |
if (!*ents) |
|
1839
|
806 |
26 |
} while (++ents <= last); |
|
1842
|
26 |
0 |
if (SvOOK(sv)) { |
|
1853
|
26 |
0 |
if (SvOOK(sv)) { |
|
1854
|
26 |
0 |
Perl_dump_indent(aTHX_ level, file, " RITER = %"IVdf"\n", (IV)HvRITER_get(sv)); |
|
1855
|
26 |
0 |
Perl_dump_indent(aTHX_ level, file, " EITER = 0x%"UVxf"\n", PTR2UV(HvEITER_get(sv))); |
|
1857
|
26 |
0 |
Perl_dump_indent(aTHX_ level, file, " RAND = 0x%"UVxf, (UV)HvRAND_get(sv)); |
|
1858
|
26 |
0 |
if (HvRAND_get(sv) != HvLASTRAND_get(sv) && HvRITER_get(sv) != -1 ) { |
|
|
26 |
0 |
if (HvRAND_get(sv) != HvLASTRAND_get(sv) && HvRITER_get(sv) != -1 ) { |
|
|
0 |
26 |
if (HvRAND_get(sv) != HvLASTRAND_get(sv) && HvRITER_get(sv) != -1 ) { |
|
|
0 |
0 |
if (HvRAND_get(sv) != HvLASTRAND_get(sv) && HvRITER_get(sv) != -1 ) { |
|
|
0 |
0 |
if (HvRAND_get(sv) != HvLASTRAND_get(sv) && HvRITER_get(sv) != -1 ) { |
|
1859
|
0 |
0 |
PerlIO_printf(file, " (LAST = 0x%"UVxf")", (UV)HvLASTRAND_get(sv)); |
|
1866
|
0 |
26 |
if (mg && mg->mg_obj) { |
|
|
0 |
0 |
if (mg && mg->mg_obj) { |
|
1871
|
26 |
0 |
const char * const hvname = HvNAME_get(sv); |
|
|
0 |
26 |
const char * const hvname = HvNAME_get(sv); |
|
|
0 |
0 |
const char * const hvname = HvNAME_get(sv); |
|
|
0 |
0 |
const char * const hvname = HvNAME_get(sv); |
|
|
0 |
0 |
const char * const hvname = HvNAME_get(sv); |
|
|
0 |
0 |
const char * const hvname = HvNAME_get(sv); |
|
1872
|
0 |
26 |
if (hvname) |
|
1875
|
26 |
0 |
if (SvOOK(sv)) { |
|
1879
|
0 |
26 |
if (HvAUX(sv)->xhv_name_count) |
|
1884
|
0 |
26 |
if (HvAUX(sv)->xhv_name_u.xhvnameu_name && HvENAME_HEK_NN(sv)) { |
|
|
0 |
0 |
if (HvAUX(sv)->xhv_name_u.xhvnameu_name && HvENAME_HEK_NN(sv)) { |
|
|
0 |
0 |
if (HvAUX(sv)->xhv_name_u.xhvnameu_name && HvENAME_HEK_NN(sv)) { |
|
|
0 |
0 |
if (HvAUX(sv)->xhv_name_u.xhvnameu_name && HvENAME_HEK_NN(sv)) { |
|
|
0 |
0 |
if (HvAUX(sv)->xhv_name_u.xhvnameu_name && HvENAME_HEK_NN(sv)) { |
|
|
0 |
0 |
if (HvAUX(sv)->xhv_name_u.xhvnameu_name && HvENAME_HEK_NN(sv)) { |
|
1886
|
0 |
0 |
if (count) { |
|
1891
|
0 |
0 |
+ (count < 0 ? 1 : 0); |
|
1893
|
0 |
0 |
+ (count < 0 ? -count : count); |
|
1894
|
0 |
0 |
while (hekp < endp) { |
|
1895
|
0 |
0 |
if (*hekp) { |
|
1905
|
0 |
0 |
Perl_dump_indent(aTHX_ |
|
1910
|
0 |
0 |
Perl_dump_indent(aTHX_ |
|
1911
|
0 |
0 |
level, file, " ENAME = \"%s\"\n", HvENAME_get(sv) |
|
|
0 |
0 |
level, file, " ENAME = \"%s\"\n", HvENAME_get(sv) |
|
|
0 |
0 |
level, file, " ENAME = \"%s\"\n", HvENAME_get(sv) |
|
|
0 |
0 |
level, file, " ENAME = \"%s\"\n", HvENAME_get(sv) |
|
|
0 |
0 |
level, file, " ENAME = \"%s\"\n", HvENAME_get(sv) |
|
1914
|
0 |
26 |
if (backrefs) { |
|
1920
|
0 |
26 |
if (meta) { |
|
1930
|
0 |
0 |
if (meta->mro_linear_all) { |
|
1936
|
0 |
0 |
if (meta->mro_linear_current) { |
|
1942
|
0 |
0 |
if (meta->mro_nextmethod) { |
|
1948
|
0 |
0 |
if (meta->isa) { |
|
1956
|
26 |
0 |
if (nest < maxnest) { |
|
1961
|
26 |
0 |
if (HvARRAY(hv)) { |
|
1963
|
130 |
0 |
for (i=0; i <= HvMAX(hv); i++) { |
|
1964
|
104 |
104 |
for (he = HvARRAY(hv)[i]; he; he = HeNEXT(he)) { |
|
1971
|
78 |
26 |
if (count-- <= 0) goto DONEHV; |
|
1975
|
78 |
0 |
keypv = SvPV_const(keysv, len); |
|
1979
|
0 |
78 |
if (SvUTF8(keysv)) |
|
1981
|
78 |
0 |
if (HvEITER_get(hv) == he) |
|
|
3 |
75 |
if (HvEITER_get(hv) == he) |
|
1993
|
0 |
0 |
if (CvAUTOLOAD(sv)) { |
|
1995
|
0 |
0 |
const char *const name = SvPV_const(sv, len); |
|
1999
|
0 |
0 |
if (SvPOK(sv)) { |
|
2000
|
0 |
0 |
Perl_dump_indent(aTHX_ level, file, " PROTOTYPE = \"%.*s\"\n", |
|
|
0 |
0 |
Perl_dump_indent(aTHX_ level, file, " PROTOTYPE = \"%.*s\"\n", |
|
|
0 |
0 |
Perl_dump_indent(aTHX_ level, file, " PROTOTYPE = \"%.*s\"\n", |
|
2001
|
0 |
0 |
(int) CvPROTOLEN(sv), CvPROTO(sv)); |
|
|
0 |
0 |
(int) CvPROTOLEN(sv), CvPROTO(sv)); |
|
|
0 |
0 |
(int) CvPROTOLEN(sv), CvPROTO(sv)); |
|
2006
|
0 |
0 |
if (!CvISXSUB(sv)) { |
|
2007
|
0 |
0 |
if (CvSTART(sv)) { |
|
2015
|
0 |
0 |
if (CvROOT(sv) && dumpops) { |
|
|
0 |
0 |
if (CvROOT(sv) && dumpops) { |
|
2023
|
0 |
0 |
if (constant) { |
|
2034
|
0 |
0 |
if (CvNAMED(sv)) |
|
2043
|
0 |
0 |
if (nest < maxnest) { |
|
2048
|
0 |
0 |
Perl_dump_indent(aTHX_ level, file, " OUTSIDE = 0x%"UVxf" (%s)\n", |
|
2052
|
0 |
0 |
: (outside == PL_main_cv) ? "MAIN" |
|
2053
|
0 |
0 |
: CvUNIQUE(outside) ? "UNIQUE" |
|
2054
|
0 |
0 |
: CvGV(outside) ? GvNAME(CvGV(outside)) : "UNDEFINED")); |
|
|
0 |
0 |
: CvGV(outside) ? GvNAME(CvGV(outside)) : "UNDEFINED")); |
|
2056
|
0 |
0 |
if (nest < maxnest && (CvCLONE(sv) || CvCLONED(sv))) |
|
|
0 |
0 |
if (nest < maxnest && (CvCLONE(sv) || CvCLONED(sv))) |
|
|
0 |
0 |
if (nest < maxnest && (CvCLONE(sv) || CvCLONED(sv))) |
|
2062
|
0 |
0 |
if (type == SVt_PVLV) { |
|
2068
|
0 |
0 |
if (LvTYPE(sv) != 't' && LvTYPE(sv) != 'T') |
|
2072
|
0 |
0 |
if (isREGEXP(sv)) goto dumpregexp; |
|
|
0 |
0 |
if (isREGEXP(sv)) goto dumpregexp; |
|
2073
|
0 |
0 |
if (!isGV_with_GP(sv)) |
|
|
0 |
0 |
if (!isGV_with_GP(sv)) |
|
2079
|
0 |
0 |
if (!GvGP(sv)) |
|
2090
|
0 |
0 |
Perl_dump_indent(aTHX_ level, file, " FILE = \"%s\"\n", GvFILE(sv)); |
|
2102
|
0 |
0 |
if (IoTOP_NAME(sv)) |
|
2104
|
0 |
0 |
if (!IoTOP_GV(sv) || SvTYPE(IoTOP_GV(sv)) == SVt_PVGV) |
|
|
0 |
0 |
if (!IoTOP_GV(sv) || SvTYPE(IoTOP_GV(sv)) == SVt_PVGV) |
|
2114
|
0 |
0 |
if (IoFMT_NAME(sv)) |
|
2116
|
0 |
0 |
if (!IoFMT_GV(sv) || SvTYPE(IoFMT_GV(sv)) == SVt_PVGV) |
|
|
0 |
0 |
if (!IoFMT_GV(sv) || SvTYPE(IoFMT_GV(sv)) == SVt_PVGV) |
|
2124
|
0 |
0 |
if (IoBOTTOM_NAME(sv)) |
|
2126
|
0 |
0 |
if (!IoBOTTOM_GV(sv) || SvTYPE(IoBOTTOM_GV(sv)) == SVt_PVGV) |
|
|
0 |
0 |
if (!IoBOTTOM_GV(sv) || SvTYPE(IoBOTTOM_GV(sv)) == SVt_PVGV) |
|
2134
|
0 |
0 |
if (isPRINT(IoTYPE(sv))) |
|
2152
|
0 |
0 |
SV_SET_STRINGIFY_REGEXP_FLAGS(d,r->compflags); |
|
|
0 |
0 |
SV_SET_STRINGIFY_REGEXP_FLAGS(d,r->compflags); |
|
2156
|
0 |
0 |
SV_SET_STRINGIFY_REGEXP_FLAGS(d,r->extflags); |
|
|
0 |
0 |
SV_SET_STRINGIFY_REGEXP_FLAGS(d,r->extflags); |
|
2183
|
0 |
0 |
if (r->subbeg) |
|
2193
|
0 |
0 |
if (nest < maxnest && r->mother_re) |
|
|
0 |
0 |
if (nest < maxnest && r->mother_re) |
|
2223
|
0 |
0 |
if (SvROK(sv)) |
|
2233
|
0 |
0 |
if (!PL_op) { |
|
2243
|
0 |
0 |
if (PL_debug) { |
|
2244
|
0 |
0 |
if (PL_watchaddr && (*PL_watchaddr != PL_watchok)) |
|
|
0 |
0 |
if (PL_watchaddr && (*PL_watchaddr != PL_watchok)) |
|
2249
|
0 |
0 |
if (DEBUG_s_TEST_) { |
|
2250
|
0 |
0 |
if (DEBUG_v_TEST_) { |
|
2259
|
0 |
0 |
if (DEBUG_t_TEST_) debop(PL_op); |
|
2260
|
0 |
0 |
if (DEBUG_P_TEST_) debprof(PL_op); |
|
2264
|
0 |
0 |
} while ((PL_op = PL_op->op_ppaddr(aTHX))); |
|
2266
|
0 |
0 |
PERL_ASYNC_CHECK(); |
|
2279
|
0 |
0 |
if (CopSTASH_eq(PL_curcop, PL_debstash) && !DEBUG_J_TEST_) |
|
|
0 |
0 |
if (CopSTASH_eq(PL_curcop, PL_debstash) && !DEBUG_J_TEST_) |
|
2282
|
0 |
0 |
Perl_deb(aTHX_ "%s", OP_NAME(o)); |
|
|
0 |
0 |
Perl_deb(aTHX_ "%s", OP_NAME(o)); |
|
2297
|
0 |
0 |
if (cGVOPo_gv) { |
|
2305
|
0 |
0 |
PerlIO_printf(Perl_debug_log, "(%s)", SvPV_nolen_const(sv)); |
|
2330
|
0 |
0 |
if (cv) { |
|
2335
|
0 |
0 |
for (i = 0; i < count; i++) { |
|
2338
|
0 |
0 |
PerlIO_printf(Perl_debug_log, "%s", SvPV_nolen_const(sv)); |
|
2342
|
0 |
0 |
if (i < count-1) |
|
2362
|
0 |
0 |
if (CxTYPE(cx) == CXt_SUB || CxTYPE(cx) == CXt_FORMAT) |
|
2364
|
0 |
0 |
else if (CxTYPE(cx) == CXt_EVAL && !CxTRYBLOCK(cx)) |
|
|
0 |
0 |
else if (CxTYPE(cx) == CXt_EVAL && !CxTRYBLOCK(cx)) |
|
2366
|
0 |
0 |
else if (ix == 0 && PL_curstackinfo->si_type == PERLSI_MAIN) |
|
|
0 |
0 |
else if (ix == 0 && PL_curstackinfo->si_type == PERLSI_MAIN) |
|
2368
|
0 |
0 |
else if (ix <= 0) |
|
2394
|
0 |
0 |
if (!DEBUG_J_TEST_ && CopSTASH_eq(PL_curcop, PL_debstash)) |
|
|
0 |
0 |
if (!DEBUG_J_TEST_ && CopSTASH_eq(PL_curcop, PL_debstash)) |
|
2396
|
0 |
0 |
if (!PL_profiledata) |
|
2406
|
0 |
0 |
if (!PL_profiledata) |
|
2408
|
0 |
0 |
for (i = 0; i < MAXO; i++) { |
|
2409
|
0 |
0 |
if (PL_profiledata[i]) |