| 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 *); |
|
2066
|
2154 |
595 |
gimme = GIMME_V; |
|
2070
|
0 |
2749 |
Move(SP - args + 1, SP - args, args, SV *); |
|
2072
|
0 |
2749 |
PUSHMARK(SP - args); |
|
2091
|
36095 |
2749 |
for (i = 0; i < sud->gap; i++) { |
|
2104
|
2744 |
5 |
if (!CvISXSUB(sud->renamed) && CxHASARGS(&cxstack[cxix])) { |
|
|
2744 |
0 |
if (!CvISXSUB(sud->renamed) && CxHASARGS(&cxstack[cxix])) { |
|
2316
|
230 |
609 |
if (depth >= alloc) { |
|
2319
|
0 |
230 |
Renew(map, depth + 1, su_uid); |
|
2320
|
857 |
230 |
for (i = alloc; i <= depth; ++i) { |
|
2329
|
419 |
420 |
if (depth >= XSH_CXT.uid_storage.used) |
|
2340
|
454 |
404 |
if (depth >= XSH_CXT.uid_storage.used) |
|
2345
|
388 |
16 |
return (uid->seq == seq) && (uid->flags & SU_UID_ACTIVE); |
|
|
379 |
9 |
return (uid->seq == seq) && (uid->flags & SU_UID_ACTIVE); |
|
2357
|
823 |
16 |
if (!(uid->flags & SU_UID_ACTIVE)) { |
|
2411
|
863 |
0 |
s = SvPV_const(uid, len); |
|
2413
|
2341 |
1 |
while (p < len && s[p] != '-') |
|
|
1479 |
862 |
while (p < len && s[p] != '-') |
|
2415
|
1 |
862 |
if (p >= len) |
|
2419
|
2 |
860 |
if (type != IS_NUMBER_IN_UV) |
|
2425
|
2 |
858 |
if (type != IS_NUMBER_IN_UV) |
|
2440
|
0 |
284099 |
if (!PL_DBsub) |
|
2443
|
284064 |
35 |
for (i = cxix; i > 0; --i) { |
|
2451
|
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)) |
|
2455
|
0 |
122559 |
if (cx->blk_sub.cv == GvCV(PL_DBsub)) { |
|
2484
|
3137335 |
250989 |
for (i = 0; i <= cxix; i++) { |
|
2486
|
22154 |
3115181 |
if (cx->cx_type == (CXt_NULL | CXp_SU_UPLEVEL_NULLED)) |
|
2504
|
1162242 |
2 |
for (i = 0; i <= cxstack_ix; i++) { |
|
2506
|
1161533 |
709 |
if (cx->cx_type != (CXt_NULL | CXp_SU_UPLEVEL_NULLED)) |
|
2508
|
80739 |
1081503 |
if (seen >= cxix) |
|
2514
|
2 |
80739 |
if (i > cxstack_ix) |
|
2529
|
31 |
284064 |
if (cxix <= 0) |
|
2533
|
85360 |
198704 |
if (CxTYPE(cx) == CXt_BLOCK) { |
|
2547
|
3285 |
469 |
if (cx->blk_oldcop == prev->blk_oldcop) |
|
2551
|
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) |
|
2552
|
6 |
0 |
&& OpSIBLING(cx->blk_oldcop)->op_type == OP_SUBST) |
|
|
6 |
0 |
&& OpSIBLING(cx->blk_oldcop)->op_type == OP_SUBST) |
|
2565
|
821 |
15958 |
if (cxix >= cxstack_ix) |
|
2569
|
3126 |
12832 |
if (CxTYPE(next) == CXt_BLOCK) { |
|
2583
|
1686 |
224 |
if (cx->blk_oldcop == next->blk_oldcop) |
|
2587
|
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) |
|
2588
|
0 |
0 |
&& OpSIBLING(next->blk_oldcop)->op_type == OP_SUBST) |
|
|
0 |
0 |
&& OpSIBLING(next->blk_oldcop)->op_type == OP_SUBST) |
|
2603
|
29 |
0 |
for (i = cxix; i >= 0; --i) { |
|
2606
|
6 |
23 |
switch (CxTYPE(cx)) { |
|
2623
|
6 |
0 |
if (cop && OpSIBLING(cop)) { |
|
|
6 |
0 |
if (cop && OpSIBLING(cop)) { |
|
|
6 |
0 |
if (cop && OpSIBLING(cop)) { |
|
2624
|
6 |
0 |
switch (OpSIBLING(cop)->op_flags & OPf_WANT) { |
|
2701
|
11 |
38 |
if (cur) { |
|
2707
|
7 |
11 |
} while (cur); |
|
2777
|
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); |
|
2782
|
3283 |
0 |
if (PL_DBsub && cx->blk_sub.cv == GvCV(PL_DBsub)) |
|
|
0 |
3283 |
if (PL_DBsub && cx->blk_sub.cv == GvCV(PL_DBsub)) |
|
2789
|
5230 |
1 |
if (items > 0) { |
|
2796
|
31 |
5200 |
if (GIMME_V == G_SCALAR) |
|
|
1740 |
3491 |
if (GIMME_V == G_SCALAR) |
|
2803
|
6 |
2 |
} while (--cxix >= 0); |
|
2821
|
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()); |
|
2825
|
41513 |
14 |
if (items > 0) { |
|
2830
|
46 |
41481 |
if (GIMME_V == G_SCALAR) |
|
|
13836 |
27691 |
if (GIMME_V == G_SCALAR) |
|
2853
|
3 |
0 |
if (GIMME_V == G_SCALAR) |
|
|
0 |
3 |
if (GIMME_V == G_SCALAR) |
|
2891
|
0 |
165494 |
EXTEND(SP, 1); |
|
2901
|
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()); |
|
2902
|
25911 |
1 |
if (cxix > 0) { |
|
2910
|
0 |
25912 |
EXTEND(SP, 1); |
|
2920
|
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); |
|
2921
|
0 |
5921 |
EXTEND(SP, 1); |
|
2922
|
21530 |
22 |
for (; cxix >= 0; --cxix) { |
|
2924
|
15631 |
5899 |
switch (CxTYPE(cx)) { |
|
2928
|
5899 |
0 |
if (PL_DBsub && cx->blk_sub.cv == GvCV(PL_DBsub)) |
|
|
0 |
5899 |
if (PL_DBsub && cx->blk_sub.cv == GvCV(PL_DBsub)) |
|
2944
|
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); |
|
2945
|
0 |
23 |
EXTEND(SP, 1); |
|
2946
|
55 |
17 |
for (; cxix >= 0; --cxix) { |
|
2948
|
49 |
6 |
switch (CxTYPE(cx)) { |
|
2966
|
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); |
|
2968
|
52536 |
23375 |
while (--level >= 0) { |
|
2969
|
1 |
52535 |
if (cxix <= 0) { |
|
2978
|
0 |
23376 |
EXTEND(SP, 1); |
|
2988
|
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); |
|
2989
|
13267 |
6 |
for (cxix = cxstack_ix; cxix > 0; --cxix) { |
|
2993
|
6447 |
0 |
if (PL_DBsub && cx->blk_sub.cv == GvCV(PL_DBsub)) |
|
|
0 |
6447 |
if (PL_DBsub && cx->blk_sub.cv == GvCV(PL_DBsub)) |
|
2997
|
1138 |
5322 |
if (--level < 0) |
|
3003
|
6 |
1138 |
if (level >= 0) |
|
3005
|
0 |
1144 |
EXTEND(SP, 1); |
|
3016
|
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); |
|
3017
|
0 |
18 |
EXTEND(SP, 1); |
|
3018
|
23 |
3 |
while (cxix > 0) { |
|
3022
|
11 |
0 |
if (PL_DBsub && cx->blk_sub.cv == GvCV(PL_DBsub)) |
|
|
0 |
11 |
if (PL_DBsub && cx->blk_sub.cv == GvCV(PL_DBsub)) |
|
3046
|
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)); |
|
3050
|
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)) { |
|
3052
|
0 |
9 |
if (i < cxix && CxTYPE(cxstack + i) == CXt_SUB) |
|
|
0 |
0 |
if (i < cxix && CxTYPE(cxstack + i) == CXt_SUB) |
|
3056
|
0 |
24 |
EXTEND(SP, SU_INFO_COUNT); |
|
3060
|
24 |
0 |
if (stash) |
|
3061
|
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))); |
|
3066
|
24 |
0 |
PUSHs(su_newmortal_pvn(OutCopFILE(cop), OutCopFILE_len(cop))); |
|
|
24 |
0 |
PUSHs(su_newmortal_pvn(OutCopFILE(cop), OutCopFILE_len(cop))); |
|
3074
|
9 |
0 |
if (cvgv && isGV(cvgv)) { |
|
|
9 |
0 |
if (cvgv && isGV(cvgv)) { |
|
3081
|
9 |
0 |
if (CxHASARGS(cx)) |
|
3108
|
5 |
19 |
switch (CxTYPE(cx)) { |
|
3110
|
2 |
3 |
if (CxOLD_OP_TYPE(cx) == OP_ENTEREVAL) { |
|
3121
|
0 |
3 |
} else if (cx->blk_eval.old_namesv) { |
|
3144
|
3 |
21 |
if (old_warnings == pWARN_STD) { |
|
3145
|
0 |
3 |
if (PL_dowarn & G_WARN_ON) |
|
3153
|
0 |
21 |
} else if (old_warnings == pWARN_NONE) { |
|
3158
|
21 |
0 |
} else if (old_warnings == pWARN_ALL) { |
|
3163
|
21 |
0 |
if (bits) { |
|
3165
|
21 |
0 |
if (bits_all) |
|
3169
|
0 |
21 |
if (!mask) |
|
3184
|
0 |
24 |
if (hints_hash) { |
|
3201
|
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)); |
|
3205
|
4433 |
0 |
ud->cb = (SvROK(hook) && SvTYPE(SvRV(hook)) >= SVt_PVCV) |
|
3206
|
4433 |
0 |
? SvRV(hook) : hook; |
|
3207
|
4433 |
0 |
SvREFCNT_inc_simple_void(ud->cb); |
|
3218
|
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)); |
|
3233
|
5 |
7069 |
if (SvTYPE(sv) >= SVt_PVGV) |
|
3235
|
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)); |
|
3242
|
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) { |
|
3243
|
0 |
3 |
SU_UD_LOCALIZE_FREE(ud); |
|
3256
|
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)); |
|
3269
|
2753 |
1 |
if (SvROK(code)) |
|
3271
|
2 |
2752 |
if (SvTYPE(code) < SVt_PVCV) |
|
3273
|
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); |
|
3282
|
2749 |
0 |
if (PL_DBsub && cx->blk_sub.cv == GvCV(PL_DBsub)) |
|
|
0 |
2749 |
if (PL_DBsub && cx->blk_sub.cv == GvCV(PL_DBsub)) |
|
3284
|
2336 |
413 |
if (items > 1) { |
|
3298
|
775 |
1 |
} while (--cxix >= 0); |
|
3308
|
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()); |
|
3310
|
0 |
839 |
EXTEND(SP, 1); |
|
3320
|
379 |
479 |
ret = su_uid_validate(uid) ? &PL_sv_yes : &PL_sv_no; |
|
3321
|
0 |
858 |
EXTEND(SP, 1); |