line |
true |
false |
branch |
234
|
27 |
796 |
if (depth >= su_uid_seq_counter.size) { |
238
|
63 |
27 |
for (i = su_uid_seq_counter.size; i <= depth; ++i) |
267
|
4 |
3588 |
for (si = PL_curstackinfo->si_prev; si; si = si->si_prev) |
283
|
503 |
2246 |
if (old_map) { |
292
|
241 |
262 |
if (new_used <= new_cxt->alloc) { |
296
|
0 |
262 |
Renew(new_map, new_alloc, su_uid); |
301
|
12930 |
503 |
for (i = 0; i < new_alloc; ++i) { |
304
|
8604 |
4326 |
if (i < new_used) { /* => i < max_depth && i < old_used */ |
307
|
8604 |
0 |
if (old_uid && (old_uid->flags & SU_UID_ACTIVE)) { |
|
1658 |
6946 |
if (old_uid && (old_uid->flags & SU_UID_ACTIVE)) { |
549
|
5122 |
7 |
if (key >= 0) |
554
|
2 |
5 |
if (SvRMAGICAL(av)) { |
556
|
2 |
0 |
if (tied_magic) { |
557
|
2 |
0 |
SV * const * const negative_indices_glob = hv_fetch( |
561
|
2 |
0 |
if (negative_indices_glob && SvTRUE(GvSV(*negative_indices_glob))) |
|
2 |
0 |
if (negative_indices_glob && SvTRUE(GvSV(*negative_indices_glob))) |
|
0 |
2 |
if (negative_indices_glob && SvTRUE(GvSV(*negative_indices_glob))) |
|
0 |
2 |
if (negative_indices_glob && SvTRUE(GvSV(*negative_indices_glob))) |
|
0 |
0 |
if (negative_indices_glob && SvTRUE(GvSV(*negative_indices_glob))) |
|
0 |
0 |
if (negative_indices_glob && SvTRUE(GvSV(*negative_indices_glob))) |
|
0 |
2 |
if (negative_indices_glob && SvTRUE(GvSV(*negative_indices_glob))) |
|
0 |
0 |
if (negative_indices_glob && SvTRUE(GvSV(*negative_indices_glob))) |
|
0 |
0 |
if (negative_indices_glob && SvTRUE(GvSV(*negative_indices_glob))) |
|
0 |
0 |
if (negative_indices_glob && SvTRUE(GvSV(*negative_indices_glob))) |
|
0 |
0 |
if (negative_indices_glob && SvTRUE(GvSV(*negative_indices_glob))) |
|
2 |
0 |
if (negative_indices_glob && SvTRUE(GvSV(*negative_indices_glob))) |
|
2 |
0 |
if (negative_indices_glob && SvTRUE(GvSV(*negative_indices_glob))) |
|
1 |
1 |
if (negative_indices_glob && SvTRUE(GvSV(*negative_indices_glob))) |
|
0 |
1 |
if (negative_indices_glob && SvTRUE(GvSV(*negative_indices_glob))) |
|
0 |
0 |
if (negative_indices_glob && SvTRUE(GvSV(*negative_indices_glob))) |
|
1 |
1 |
if (negative_indices_glob && SvTRUE(GvSV(*negative_indices_glob))) |
568
|
2 |
4 |
if (idx < 0) |
614
|
5129 |
0 |
idx = su_av_key2idx(av, SvIV(key)); |
616
|
4 |
5125 |
if (SvCANEXISTDELETE(av)) |
|
4 |
0 |
if (SvCANEXISTDELETE(av)) |
|
4 |
0 |
if (SvCANEXISTDELETE(av)) |
|
4 |
0 |
if (SvCANEXISTDELETE(av)) |
|
0 |
4 |
if (SvCANEXISTDELETE(av)) |
|
0 |
0 |
if (SvCANEXISTDELETE(av)) |
620
|
5127 |
2 |
if (!svp || *svp == &PL_sv_undef) croak(PL_no_aelem, idx); |
|
0 |
5127 |
if (!svp || *svp == &PL_sv_undef) croak(PL_no_aelem, idx); |
622
|
5121 |
6 |
if (preeminent) |
627
|
4031 |
1096 |
if (val) { /* local $x[$idx] = $val; */ |
628
|
4031 |
0 |
SvSetMagicSV(*svp, val); |
|
1 |
4030 |
SvSetMagicSV(*svp, val); |
644
|
2 |
3116 |
if (SvCANEXISTDELETE(hv) || mg_find((SV *) hv, PERL_MAGIC_env)) |
|
0 |
2 |
if (SvCANEXISTDELETE(hv) || mg_find((SV *) hv, PERL_MAGIC_env)) |
|
0 |
0 |
if (SvCANEXISTDELETE(hv) || mg_find((SV *) hv, PERL_MAGIC_env)) |
|
0 |
0 |
if (SvCANEXISTDELETE(hv) || mg_find((SV *) hv, PERL_MAGIC_env)) |
|
0 |
0 |
if (SvCANEXISTDELETE(hv) || mg_find((SV *) hv, PERL_MAGIC_env)) |
|
0 |
0 |
if (SvCANEXISTDELETE(hv) || mg_find((SV *) hv, PERL_MAGIC_env)) |
|
0 |
0 |
if (SvCANEXISTDELETE(hv) || mg_find((SV *) hv, PERL_MAGIC_env)) |
648
|
3118 |
0 |
svp = he ? &HeVAL(he) : NULL; |
649
|
3118 |
0 |
if (!svp || *svp == &PL_sv_undef) croak("Modification of non-creatable hash value attempted, subscript \"%s\"", SvPV_nolen_const(*svp)); |
|
0 |
3118 |
if (!svp || *svp == &PL_sv_undef) croak("Modification of non-creatable hash value attempted, subscript \"%s\"", SvPV_nolen_const(*svp)); |
|
0 |
0 |
if (!svp || *svp == &PL_sv_undef) croak("Modification of non-creatable hash value attempted, subscript \"%s\"", SvPV_nolen_const(*svp)); |
651
|
169 |
2949 |
if (HvNAME_get(hv) && isGV(*svp)) { |
|
0 |
169 |
if (HvNAME_get(hv) && isGV(*svp)) { |
|
0 |
0 |
if (HvNAME_get(hv) && isGV(*svp)) { |
|
0 |
0 |
if (HvNAME_get(hv) && isGV(*svp)) { |
|
0 |
0 |
if (HvNAME_get(hv) && isGV(*svp)) { |
|
0 |
0 |
if (HvNAME_get(hv) && isGV(*svp)) { |
|
0 |
0 |
if (HvNAME_get(hv) && isGV(*svp)) { |
656
|
2295 |
823 |
if (preeminent) { |
660
|
823 |
0 |
const char * const key = SvPV_const(keysv, keylen); |
661
|
0 |
823 |
SAVEDELETE(hv, savepvn(key, keylen), |
665
|
3030 |
88 |
if (val) { /* local $x{$keysv} = $val; */ |
666
|
3030 |
0 |
SvSetMagicSV(*svp, val); |
|
2 |
3028 |
SvSetMagicSV(*svp, val); |
763
|
0 |
4433 |
PUSHMARK(SP); |
769
|
4433 |
0 |
cxix = (cxstack_ix < cxstack_max) ? (cxstack_ix + 1) : Perl_cxinc(aTHX); |
781
|
0 |
4431 |
FREETMPS; |
815
|
12346 |
0 |
SvREFCNT_inc_simple_void(sv); |
817
|
1013 |
11333 |
if (SvTYPE(sv) >= SVt_PVGV) { |
818
|
2 |
1011 |
if (SvFAKE(sv)) { |
823
|
1010 |
1 |
if (!val || !SvROK(val)) { /* local *x; or local *x = $val; */ |
|
1001 |
9 |
if (!val || !SvROK(val)) { /* local *x; or local *x = $val; */ |
828
|
12 |
11321 |
} else if (SvROK(sv)) { |
835
|
11323 |
0 |
p = SvPV_const(sv, len); |
836
|
11323 |
1 |
for (s = p, l = len; l > 0 && isSPACE(*s); ++s, --l) { } |
|
1 |
11322 |
for (s = p, l = len; l > 0 && isSPACE(*s); ++s, --l) { } |
837
|
1 |
11322 |
if (!l) { |
848
|
11316 |
7 |
if (t != SVt_NULL) { |
851
|
3056 |
8260 |
if (t == SVt_PV) |
853
|
7 |
0 |
} else if (val) { /* t == SVt_NULL, type can't be inferred from the sigil */ |
854
|
5 |
2 |
if (SvROK(val) && !sv_isobject(val)) { |
|
4 |
1 |
if (SvROK(val) && !sv_isobject(val)) { |
869
|
5129 |
3 |
: SU_SAVE_ARY_SIZE; |
873
|
3118 |
3 |
: SU_SAVE_HASH_SIZE; |
889
|
11141 |
1193 |
if (val) { |
891
|
3057 |
8084 |
ud->val = take_ref ? newRV_noinc(val) : val; |
909
|
1011 |
11320 |
if (SvTYPE(sv) >= SVt_PVGV) { |
947
|
5129 |
3 |
if (elem) { |
955
|
3118 |
3 |
if (elem) { |
973
|
4076 |
8 |
if (val) |
974
|
4076 |
0 |
SvSetMagicSV((SV *) gv, val); |
|
0 |
4076 |
SvSetMagicSV((SV *) gv, val); |
995
|
823 |
0 |
SU_UD_FREE(ud); |
1091
|
6966 |
38331 |
if (size <= 0) |
1094
|
5986 |
32345 |
if (size < SU_SAVE_ALLOC_SIZE + 1) /* minimum possible SAVEt_ALLOC */ |
1151
|
40170 |
0 |
if (base < mark) { |
1159
|
22583 |
17587 |
if (depth > 0) { |
1170
|
4433 |
0 |
SU_UD_FREE(ud); |
1175
|
12329 |
0 |
SU_UD_LOCALIZE_FREE(ud); |
1183
|
5127 |
12458 |
if (PL_savestack_ix < base + offset) { |
1253
|
0 |
17587 |
Newx(origin, depth, su_ud_origin_elem); |
1264
|
40170 |
17587 |
for (i = 0; cur_scope_ix < PL_scopestack_ix; i++) { |
1270
|
22583 |
17587 |
if (cur_cx_ix <= cxstack_ix |
1271
|
22579 |
4 |
&& cur_scope_ix == cxstack[cur_cx_ix].blk_oldscopesp) |
1295
|
17587 |
22583 |
if (i == 0) { |
1315
|
15617 |
6966 |
if (pad > 0) { /* rule 2 */ |
1316
|
74 |
15543 |
if (pad < SU_SAVE_ALLOC_SIZE + 1) /* rule 3 */ |
1369
|
5335 |
5231 |
for (i = -items + 1; i <= 0; ++i) |
1370
|
5321 |
14 |
if (!SvTEMP(sp[i])) |
1375
|
3912 |
1319 |
if (cxstack_ix > cxix) |
1379
|
0 |
5231 |
PUSHMARK(PL_stack_sp - items); |
1429
|
15584 |
0 |
if (cxix > 0) { |
1432
|
15584 |
0 |
if ((prev_type == CXt_GIVEN || prev_type == CXt_WHEN) |
|
0 |
15584 |
if ((prev_type == CXt_GIVEN || prev_type == CXt_WHEN) |
1433
|
0 |
0 |
&& (prev->blk_oldcop == cx->blk_oldcop)) { |
1436
|
0 |
0 |
if (prev_type == CXt_GIVEN) |
1454
|
15567 |
19 |
for (i = cxix + 1; i <= cur; ++i) { |
1483
|
15565 |
2 |
if (o) |
1486
|
19 |
15565 |
if (!o) |
1488
|
39079 |
0 |
while (n && o) { |
|
39079 |
0 |
while (n && o) { |
1491
|
2 |
39077 |
if (o->op_type == OP_ENTER) { |
1493
|
15588 |
23489 |
} else if (o->op_type == OP_LEAVE) { |
1495
|
15584 |
4 |
if (!n) { |
1510
|
7777 |
1 |
type = CxTRYBLOCK(cx) ? OP_LEAVETRY : OP_LEAVEEVAL; |
1560
|
41591 |
41528 |
for (i = -items + 1; i <= 0; ++i) |
1561
|
41589 |
2 |
if (!SvTEMP(sp[i])) |
1566
|
31124 |
10404 |
if (cxstack_ix > cxix) |
1571
|
27690 |
13838 |
if (items) |
1572
|
0 |
27690 |
Move(PL_stack_sp - items + 1, PL_stack_base + cx->blk_oldsp + 1, items, SV *); |
1601
|
2507 |
242 |
if (sud) { |
1632
|
13736 |
2749 |
for (i = 0; i < alloc; ++i) |
1637
|
224 |
2525 |
if (XSH_CXT.uplevel_storage.count >= SU_UPLEVEL_STORAGE_SIZE) { |
1649
|
0 |
0 |
for (; o; o = OpSIBLING(o)) { |
|
0 |
0 |
for (; o; o = OpSIBLING(o)) { |
1651
|
0 |
0 |
if (!(o->op_flags & OPf_KIDS)) |
1662
|
0 |
0 |
if (su_uplevel_goto_static(((const UNOP *) o)->op_first)) |
1741
|
36095 |
2749 |
for (i = 0; i < sud->gap; i++) { |
1761
|
2744 |
5 |
if (!CvISXSUB(sud->renamed)) { |
1974
|
5 |
2744 |
if (CvISXSUB(proto)) { |
1979
|
2744 |
0 |
CvROOT(cv) = OpREFCNT_inc(CvROOT(proto)); |
1986
|
2749 |
0 |
if (!(CvFLAGS(proto) & CVf_WEAKOUTSIDE)) |
1988
|
2744 |
5 |
SvREFCNT_inc_simple_void(CvOUTSIDE(cv)); |
1993
|
5 |
2744 |
if (SvPOK(proto)) |
1997
|
0 |
2749 |
if (CvCONST(cv)) |
2024
|
2744 |
0 |
if (sud->argarray) { |
2031
|
2610 |
134 |
if (fill >= 0) { |
2033
|
0 |
2610 |
Copy(AvARRAY(sud->argarray), AvARRAY(av), fill + 1, SV *); |
2068
|
2154 |
595 |
gimme = GIMME_V; |
2072
|
0 |
2749 |
Move(SP - args + 1, SP - args, args, SV *); |
2074
|
0 |
2749 |
PUSHMARK(SP - args); |
2093
|
36095 |
2749 |
for (i = 0; i < sud->gap; i++) { |
2106
|
2744 |
5 |
if (!CvISXSUB(sud->renamed) && CxHASARGS(&cxstack[cxix])) { |
|
2744 |
0 |
if (!CvISXSUB(sud->renamed) && CxHASARGS(&cxstack[cxix])) { |
2318
|
230 |
609 |
if (depth >= alloc) { |
2321
|
0 |
230 |
Renew(map, depth + 1, su_uid); |
2322
|
857 |
230 |
for (i = alloc; i <= depth; ++i) { |
2331
|
419 |
420 |
if (depth >= XSH_CXT.uid_storage.used) |
2342
|
454 |
404 |
if (depth >= XSH_CXT.uid_storage.used) |
2347
|
388 |
16 |
return (uid->seq == seq) && (uid->flags & SU_UID_ACTIVE); |
|
379 |
9 |
return (uid->seq == seq) && (uid->flags & SU_UID_ACTIVE); |
2359
|
823 |
16 |
if (!(uid->flags & SU_UID_ACTIVE)) { |
2413
|
863 |
0 |
s = SvPV_const(uid, len); |
2415
|
2341 |
1 |
while (p < len && s[p] != '-') |
|
1479 |
862 |
while (p < len && s[p] != '-') |
2417
|
1 |
862 |
if (p >= len) |
2421
|
2 |
860 |
if (type != IS_NUMBER_IN_UV) |
2427
|
2 |
858 |
if (type != IS_NUMBER_IN_UV) |
2442
|
0 |
284099 |
if (!PL_DBsub) |
2445
|
284064 |
35 |
for (i = cxix; i > 0; --i) { |
2453
|
93708 |
0 |
if (cx->blk_oldcop && CopSTASH(cx->blk_oldcop) == GvSTASH(PL_DBgv)) |
|
0 |
93708 |
if (cx->blk_oldcop && CopSTASH(cx->blk_oldcop) == GvSTASH(PL_DBgv)) |
2457
|
0 |
122559 |
if (cx->blk_sub.cv == GvCV(PL_DBsub)) { |
2486
|
3137335 |
250989 |
for (i = 0; i <= cxix; i++) { |
2488
|
22154 |
3115181 |
if (cx->cx_type == (CXt_NULL | CXp_SU_UPLEVEL_NULLED)) |
2506
|
1162242 |
2 |
for (i = 0; i <= cxstack_ix; i++) { |
2508
|
1161533 |
709 |
if (cx->cx_type != (CXt_NULL | CXp_SU_UPLEVEL_NULLED)) |
2510
|
80739 |
1081503 |
if (seen >= cxix) |
2516
|
2 |
80739 |
if (i > cxstack_ix) |
2531
|
31 |
284064 |
if (cxix <= 0) |
2535
|
85360 |
198704 |
if (CxTYPE(cx) == CXt_BLOCK) { |
2549
|
3285 |
469 |
if (cx->blk_oldcop == prev->blk_oldcop) |
2553
|
6 |
0 |
if (cx->blk_oldcop && OpSIBLING(cx->blk_oldcop) |
|
6 |
0 |
if (cx->blk_oldcop && OpSIBLING(cx->blk_oldcop) |
|
6 |
0 |
if (cx->blk_oldcop && OpSIBLING(cx->blk_oldcop) |
2554
|
6 |
0 |
&& OpSIBLING(cx->blk_oldcop)->op_type == OP_SUBST) |
|
6 |
0 |
&& OpSIBLING(cx->blk_oldcop)->op_type == OP_SUBST) |
2567
|
821 |
15958 |
if (cxix >= cxstack_ix) |
2571
|
3126 |
12832 |
if (CxTYPE(next) == CXt_BLOCK) { |
2585
|
1686 |
224 |
if (cx->blk_oldcop == next->blk_oldcop) |
2589
|
0 |
0 |
if (next->blk_oldcop && OpSIBLING(next->blk_oldcop) |
|
0 |
0 |
if (next->blk_oldcop && OpSIBLING(next->blk_oldcop) |
|
0 |
0 |
if (next->blk_oldcop && OpSIBLING(next->blk_oldcop) |
2590
|
0 |
0 |
&& OpSIBLING(next->blk_oldcop)->op_type == OP_SUBST) |
|
0 |
0 |
&& OpSIBLING(next->blk_oldcop)->op_type == OP_SUBST) |
2605
|
29 |
0 |
for (i = cxix; i >= 0; --i) { |
2608
|
6 |
23 |
switch (CxTYPE(cx)) { |
2625
|
6 |
0 |
if (cop && OpSIBLING(cop)) { |
|
6 |
0 |
if (cop && OpSIBLING(cop)) { |
|
6 |
0 |
if (cop && OpSIBLING(cop)) { |
2626
|
6 |
0 |
switch (OpSIBLING(cop)->op_flags & OPf_WANT) { |
2703
|
11 |
38 |
if (cur) { |
2709
|
7 |
11 |
} while (cur); |
2779
|
5232 |
1 |
SU_GET_CONTEXT(0, items - 1, cxstack_ix); |
|
0 |
5232 |
SU_GET_CONTEXT(0, items - 1, cxstack_ix); |
|
0 |
0 |
SU_GET_CONTEXT(0, items - 1, cxstack_ix); |
|
0 |
0 |
SU_GET_CONTEXT(0, items - 1, cxstack_ix); |
|
5232 |
0 |
SU_GET_CONTEXT(0, items - 1, cxstack_ix); |
|
1 |
5231 |
SU_GET_CONTEXT(0, items - 1, cxstack_ix); |
|
0 |
5231 |
SU_GET_CONTEXT(0, items - 1, cxstack_ix); |
2784
|
3283 |
0 |
if (PL_DBsub && cx->blk_sub.cv == GvCV(PL_DBsub)) |
|
0 |
3283 |
if (PL_DBsub && cx->blk_sub.cv == GvCV(PL_DBsub)) |
2791
|
5230 |
1 |
if (items > 0) { |
2798
|
31 |
5200 |
if (GIMME_V == G_SCALAR) |
|
1740 |
3491 |
if (GIMME_V == G_SCALAR) |
2805
|
6 |
2 |
} while (--cxix >= 0); |
2823
|
41513 |
14 |
SU_GET_CONTEXT(0, items - 1, su_context_here()); |
|
0 |
41513 |
SU_GET_CONTEXT(0, items - 1, su_context_here()); |
|
0 |
0 |
SU_GET_CONTEXT(0, items - 1, su_context_here()); |
|
0 |
0 |
SU_GET_CONTEXT(0, items - 1, su_context_here()); |
|
41513 |
0 |
SU_GET_CONTEXT(0, items - 1, su_context_here()); |
|
0 |
41513 |
SU_GET_CONTEXT(0, items - 1, su_context_here()); |
|
0 |
41513 |
SU_GET_CONTEXT(0, items - 1, su_context_here()); |
2827
|
41513 |
14 |
if (items > 0) { |
2832
|
46 |
41481 |
if (GIMME_V == G_SCALAR) |
|
13836 |
27691 |
if (GIMME_V == G_SCALAR) |
2855
|
3 |
0 |
if (GIMME_V == G_SCALAR) |
|
0 |
3 |
if (GIMME_V == G_SCALAR) |
2893
|
0 |
165494 |
EXTEND(SP, 1); |
2903
|
9993 |
15919 |
SU_GET_CONTEXT(0, 0, su_context_here()); |
|
0 |
9993 |
SU_GET_CONTEXT(0, 0, su_context_here()); |
|
0 |
0 |
SU_GET_CONTEXT(0, 0, su_context_here()); |
|
0 |
0 |
SU_GET_CONTEXT(0, 0, su_context_here()); |
|
9993 |
0 |
SU_GET_CONTEXT(0, 0, su_context_here()); |
|
0 |
9993 |
SU_GET_CONTEXT(0, 0, su_context_here()); |
|
0 |
9993 |
SU_GET_CONTEXT(0, 0, su_context_here()); |
2904
|
25911 |
1 |
if (cxix > 0) { |
2912
|
0 |
25912 |
EXTEND(SP, 1); |
2922
|
4850 |
1071 |
SU_GET_CONTEXT(0, 0, cxstack_ix); |
|
0 |
4850 |
SU_GET_CONTEXT(0, 0, cxstack_ix); |
|
0 |
0 |
SU_GET_CONTEXT(0, 0, cxstack_ix); |
|
0 |
0 |
SU_GET_CONTEXT(0, 0, cxstack_ix); |
|
4850 |
0 |
SU_GET_CONTEXT(0, 0, cxstack_ix); |
|
0 |
4850 |
SU_GET_CONTEXT(0, 0, cxstack_ix); |
|
0 |
4850 |
SU_GET_CONTEXT(0, 0, cxstack_ix); |
2923
|
0 |
5921 |
EXTEND(SP, 1); |
2924
|
21530 |
22 |
for (; cxix >= 0; --cxix) { |
2926
|
15631 |
5899 |
switch (CxTYPE(cx)) { |
2930
|
5899 |
0 |
if (PL_DBsub && cx->blk_sub.cv == GvCV(PL_DBsub)) |
|
0 |
5899 |
if (PL_DBsub && cx->blk_sub.cv == GvCV(PL_DBsub)) |
2946
|
0 |
23 |
SU_GET_CONTEXT(0, 0, cxstack_ix); |
|
0 |
0 |
SU_GET_CONTEXT(0, 0, cxstack_ix); |
|
0 |
0 |
SU_GET_CONTEXT(0, 0, cxstack_ix); |
|
0 |
0 |
SU_GET_CONTEXT(0, 0, cxstack_ix); |
|
0 |
0 |
SU_GET_CONTEXT(0, 0, cxstack_ix); |
|
0 |
0 |
SU_GET_CONTEXT(0, 0, cxstack_ix); |
|
0 |
0 |
SU_GET_CONTEXT(0, 0, cxstack_ix); |
2947
|
0 |
23 |
EXTEND(SP, 1); |
2948
|
55 |
17 |
for (; cxix >= 0; --cxix) { |
2950
|
49 |
6 |
switch (CxTYPE(cx)) { |
2968
|
23372 |
4 |
SU_GET_LEVEL(0, 0); |
|
0 |
23372 |
SU_GET_LEVEL(0, 0); |
|
0 |
0 |
SU_GET_LEVEL(0, 0); |
|
0 |
0 |
SU_GET_LEVEL(0, 0); |
|
23372 |
0 |
SU_GET_LEVEL(0, 0); |
|
0 |
23372 |
SU_GET_LEVEL(0, 0); |
2970
|
52536 |
23375 |
while (--level >= 0) { |
2971
|
1 |
52535 |
if (cxix <= 0) { |
2980
|
0 |
23376 |
EXTEND(SP, 1); |
2990
|
1140 |
4 |
SU_GET_LEVEL(0, 0); |
|
0 |
1140 |
SU_GET_LEVEL(0, 0); |
|
0 |
0 |
SU_GET_LEVEL(0, 0); |
|
0 |
0 |
SU_GET_LEVEL(0, 0); |
|
1140 |
0 |
SU_GET_LEVEL(0, 0); |
|
0 |
1140 |
SU_GET_LEVEL(0, 0); |
2991
|
13267 |
6 |
for (cxix = cxstack_ix; cxix > 0; --cxix) { |
2995
|
6447 |
0 |
if (PL_DBsub && cx->blk_sub.cv == GvCV(PL_DBsub)) |
|
0 |
6447 |
if (PL_DBsub && cx->blk_sub.cv == GvCV(PL_DBsub)) |
2999
|
1138 |
5322 |
if (--level < 0) |
3005
|
6 |
1138 |
if (level >= 0) |
3007
|
0 |
1144 |
EXTEND(SP, 1); |
3018
|
11 |
7 |
SU_GET_CONTEXT(0, 0, cxstack_ix); |
|
0 |
11 |
SU_GET_CONTEXT(0, 0, cxstack_ix); |
|
0 |
0 |
SU_GET_CONTEXT(0, 0, cxstack_ix); |
|
0 |
0 |
SU_GET_CONTEXT(0, 0, cxstack_ix); |
|
11 |
0 |
SU_GET_CONTEXT(0, 0, cxstack_ix); |
|
1 |
10 |
SU_GET_CONTEXT(0, 0, cxstack_ix); |
|
0 |
10 |
SU_GET_CONTEXT(0, 0, cxstack_ix); |
3019
|
0 |
18 |
EXTEND(SP, 1); |
3020
|
23 |
3 |
while (cxix > 0) { |
3024
|
11 |
0 |
if (PL_DBsub && cx->blk_sub.cv == GvCV(PL_DBsub)) |
|
0 |
11 |
if (PL_DBsub && cx->blk_sub.cv == GvCV(PL_DBsub)) |
3048
|
17 |
7 |
SU_GET_CONTEXT(0, 0, su_context_skip_db(cxstack_ix)); |
|
0 |
17 |
SU_GET_CONTEXT(0, 0, su_context_skip_db(cxstack_ix)); |
|
0 |
0 |
SU_GET_CONTEXT(0, 0, su_context_skip_db(cxstack_ix)); |
|
0 |
0 |
SU_GET_CONTEXT(0, 0, su_context_skip_db(cxstack_ix)); |
|
17 |
0 |
SU_GET_CONTEXT(0, 0, su_context_skip_db(cxstack_ix)); |
|
1 |
16 |
SU_GET_CONTEXT(0, 0, su_context_skip_db(cxstack_ix)); |
|
0 |
16 |
SU_GET_CONTEXT(0, 0, su_context_skip_db(cxstack_ix)); |
3052
|
24 |
0 |
if (PL_DBsub && cxix && (CxTYPE(cx) == CXt_SUB || CxTYPE(cx) == CXt_FORMAT)) { |
|
21 |
3 |
if (PL_DBsub && cxix && (CxTYPE(cx) == CXt_SUB || CxTYPE(cx) == CXt_FORMAT)) { |
|
12 |
9 |
if (PL_DBsub && cxix && (CxTYPE(cx) == CXt_SUB || CxTYPE(cx) == CXt_FORMAT)) { |
|
0 |
12 |
if (PL_DBsub && cxix && (CxTYPE(cx) == CXt_SUB || CxTYPE(cx) == CXt_FORMAT)) { |
3054
|
0 |
9 |
if (i < cxix && CxTYPE(cxstack + i) == CXt_SUB) |
|
0 |
0 |
if (i < cxix && CxTYPE(cxstack + i) == CXt_SUB) |
3058
|
0 |
24 |
EXTEND(SP, SU_INFO_COUNT); |
3062
|
24 |
0 |
if (stash) |
3063
|
24 |
0 |
PUSHs(su_newmortal_pvn(HvNAME(stash), HvNAMELEN(stash))); |
|
24 |
0 |
PUSHs(su_newmortal_pvn(HvNAME(stash), HvNAMELEN(stash))); |
|
0 |
24 |
PUSHs(su_newmortal_pvn(HvNAME(stash), HvNAMELEN(stash))); |
|
0 |
0 |
PUSHs(su_newmortal_pvn(HvNAME(stash), HvNAMELEN(stash))); |
|
24 |
0 |
PUSHs(su_newmortal_pvn(HvNAME(stash), HvNAMELEN(stash))); |
|
0 |
24 |
PUSHs(su_newmortal_pvn(HvNAME(stash), HvNAMELEN(stash))); |
|
24 |
0 |
PUSHs(su_newmortal_pvn(HvNAME(stash), HvNAMELEN(stash))); |
|
24 |
0 |
PUSHs(su_newmortal_pvn(HvNAME(stash), HvNAMELEN(stash))); |
|
0 |
24 |
PUSHs(su_newmortal_pvn(HvNAME(stash), HvNAMELEN(stash))); |
|
0 |
0 |
PUSHs(su_newmortal_pvn(HvNAME(stash), HvNAMELEN(stash))); |
|
24 |
0 |
PUSHs(su_newmortal_pvn(HvNAME(stash), HvNAMELEN(stash))); |
|
0 |
24 |
PUSHs(su_newmortal_pvn(HvNAME(stash), HvNAMELEN(stash))); |
3068
|
24 |
0 |
PUSHs(su_newmortal_pvn(OutCopFILE(cop), OutCopFILE_len(cop))); |
|
24 |
0 |
PUSHs(su_newmortal_pvn(OutCopFILE(cop), OutCopFILE_len(cop))); |
3076
|
9 |
0 |
if (cvgv && isGV(cvgv)) { |
|
9 |
0 |
if (cvgv && isGV(cvgv)) { |
3083
|
9 |
0 |
if (CxHASARGS(cx)) |
3110
|
5 |
19 |
switch (CxTYPE(cx)) { |
3112
|
2 |
3 |
if (CxOLD_OP_TYPE(cx) == OP_ENTEREVAL) { |
3123
|
0 |
3 |
} else if (cx->blk_eval.old_namesv) { |
3148
|
3 |
21 |
if (old_warnings == pWARN_STD) { |
3149
|
0 |
3 |
if (PL_dowarn & G_WARN_ON) |
3157
|
0 |
21 |
} else if (old_warnings == pWARN_NONE) { |
3162
|
21 |
0 |
} else if (old_warnings == pWARN_ALL) { |
3167
|
21 |
0 |
if (bits) { |
3169
|
21 |
0 |
if (bits_all) |
3173
|
0 |
21 |
if (!mask) |
3190
|
0 |
24 |
if (hints_hash) { |
3207
|
4430 |
3 |
SU_GET_CONTEXT(1, 1, su_context_skip_db(cxstack_ix)); |
|
0 |
4430 |
SU_GET_CONTEXT(1, 1, su_context_skip_db(cxstack_ix)); |
|
0 |
0 |
SU_GET_CONTEXT(1, 1, su_context_skip_db(cxstack_ix)); |
|
0 |
0 |
SU_GET_CONTEXT(1, 1, su_context_skip_db(cxstack_ix)); |
|
4430 |
0 |
SU_GET_CONTEXT(1, 1, su_context_skip_db(cxstack_ix)); |
|
0 |
4430 |
SU_GET_CONTEXT(1, 1, su_context_skip_db(cxstack_ix)); |
|
0 |
4430 |
SU_GET_CONTEXT(1, 1, su_context_skip_db(cxstack_ix)); |
3211
|
4433 |
0 |
ud->cb = (SvROK(hook) && SvTYPE(SvRV(hook)) >= SVt_PVCV) |
3212
|
4433 |
0 |
? SvRV(hook) : hook; |
3213
|
4433 |
0 |
SvREFCNT_inc_simple_void(ud->cb); |
3224
|
4080 |
0 |
SU_GET_CONTEXT(2, 2, su_context_skip_db(cxstack_ix)); |
|
0 |
4080 |
SU_GET_CONTEXT(2, 2, su_context_skip_db(cxstack_ix)); |
|
0 |
0 |
SU_GET_CONTEXT(2, 2, su_context_skip_db(cxstack_ix)); |
|
0 |
0 |
SU_GET_CONTEXT(2, 2, su_context_skip_db(cxstack_ix)); |
|
4080 |
0 |
SU_GET_CONTEXT(2, 2, su_context_skip_db(cxstack_ix)); |
|
0 |
4080 |
SU_GET_CONTEXT(2, 2, su_context_skip_db(cxstack_ix)); |
|
0 |
4080 |
SU_GET_CONTEXT(2, 2, su_context_skip_db(cxstack_ix)); |
3239
|
5 |
7069 |
if (SvTYPE(sv) >= SVt_PVGV) |
3241
|
7064 |
5 |
SU_GET_CONTEXT(3, 3, su_context_skip_db(cxstack_ix)); |
|
0 |
7064 |
SU_GET_CONTEXT(3, 3, su_context_skip_db(cxstack_ix)); |
|
0 |
0 |
SU_GET_CONTEXT(3, 3, su_context_skip_db(cxstack_ix)); |
|
0 |
0 |
SU_GET_CONTEXT(3, 3, su_context_skip_db(cxstack_ix)); |
|
7064 |
0 |
SU_GET_CONTEXT(3, 3, su_context_skip_db(cxstack_ix)); |
|
0 |
7064 |
SU_GET_CONTEXT(3, 3, su_context_skip_db(cxstack_ix)); |
|
0 |
7064 |
SU_GET_CONTEXT(3, 3, su_context_skip_db(cxstack_ix)); |
3248
|
3033 |
4032 |
if (SU_UD_PRIVATE(ud) != SVt_PVAV && SU_UD_PRIVATE(ud) != SVt_PVHV) { |
|
3 |
3030 |
if (SU_UD_PRIVATE(ud) != SVt_PVAV && SU_UD_PRIVATE(ud) != SVt_PVHV) { |
3249
|
0 |
3 |
SU_UD_LOCALIZE_FREE(ud); |
3262
|
1193 |
4 |
SU_GET_CONTEXT(2, 2, su_context_skip_db(cxstack_ix)); |
|
0 |
1193 |
SU_GET_CONTEXT(2, 2, su_context_skip_db(cxstack_ix)); |
|
0 |
0 |
SU_GET_CONTEXT(2, 2, su_context_skip_db(cxstack_ix)); |
|
0 |
0 |
SU_GET_CONTEXT(2, 2, su_context_skip_db(cxstack_ix)); |
|
1193 |
0 |
SU_GET_CONTEXT(2, 2, su_context_skip_db(cxstack_ix)); |
|
0 |
1193 |
SU_GET_CONTEXT(2, 2, su_context_skip_db(cxstack_ix)); |
|
0 |
1193 |
SU_GET_CONTEXT(2, 2, su_context_skip_db(cxstack_ix)); |
3275
|
2753 |
1 |
if (SvROK(code)) |
3277
|
2 |
2752 |
if (SvTYPE(code) < SVt_PVCV) |
3279
|
2338 |
414 |
SU_GET_CONTEXT(1, items - 1, cxstack_ix); |
|
0 |
2338 |
SU_GET_CONTEXT(1, items - 1, cxstack_ix); |
|
0 |
0 |
SU_GET_CONTEXT(1, items - 1, cxstack_ix); |
|
0 |
0 |
SU_GET_CONTEXT(1, items - 1, cxstack_ix); |
|
2338 |
0 |
SU_GET_CONTEXT(1, items - 1, cxstack_ix); |
|
0 |
2338 |
SU_GET_CONTEXT(1, items - 1, cxstack_ix); |
|
0 |
2338 |
SU_GET_CONTEXT(1, items - 1, cxstack_ix); |
3288
|
2749 |
0 |
if (PL_DBsub && cx->blk_sub.cv == GvCV(PL_DBsub)) |
|
0 |
2749 |
if (PL_DBsub && cx->blk_sub.cv == GvCV(PL_DBsub)) |
3290
|
2336 |
413 |
if (items > 1) { |
3304
|
775 |
1 |
} while (--cxix >= 0); |
3314
|
20 |
819 |
SU_GET_CONTEXT(0, 0, su_context_here()); |
|
0 |
20 |
SU_GET_CONTEXT(0, 0, su_context_here()); |
|
0 |
0 |
SU_GET_CONTEXT(0, 0, su_context_here()); |
|
0 |
0 |
SU_GET_CONTEXT(0, 0, su_context_here()); |
|
20 |
0 |
SU_GET_CONTEXT(0, 0, su_context_here()); |
|
0 |
20 |
SU_GET_CONTEXT(0, 0, su_context_here()); |
|
0 |
20 |
SU_GET_CONTEXT(0, 0, su_context_here()); |
3316
|
0 |
839 |
EXTEND(SP, 1); |
3326
|
379 |
479 |
ret = su_uid_validate(uid) ? &PL_sv_yes : &PL_sv_no; |
3327
|
0 |
858 |
EXTEND(SP, 1); |