line |
true |
false |
branch |
1591
|
466 |
0 |
if (cxt->hclass) { |
1593
|
116 |
466 |
while ((he = hv_iternext(cxt->hclass))) /* Extra () for -Wall */ |
1608
|
466 |
0 |
if (cxt->pseen) { |
1623
|
466 |
0 |
if (cxt->hclass) { |
1630
|
466 |
0 |
if (cxt->hook) { |
1637
|
466 |
0 |
if (cxt->hook_seen) { |
1646
|
0 |
466 |
if (cxt->eval) { |
1688
|
2 |
586 |
? newHV() : 0); |
1719
|
586 |
0 |
if (cxt->aseen) { |
1727
|
586 |
0 |
if (cxt->aclass) { |
1734
|
586 |
0 |
if (cxt->hook) { |
1741
|
2 |
584 |
if (cxt->hseen) { |
1771
|
51 |
54 |
if (cxt->membuf_ro) |
1776
|
27 |
78 |
if (cxt->optype & ST_RETRIEVE) |
1778
|
5 |
73 |
else if (cxt->optype & ST_STORE) |
1818
|
0 |
0 |
stcxt_t *prev = (stcxt_t *)(cxt->prev ? SvPVX(SvRV(cxt->prev)) : 0); |
1898
|
142 |
0 |
const char *hvname = HvNAME_get(pkg); |
|
142 |
0 |
const char *hvname = HvNAME_get(pkg); |
|
0 |
142 |
const char *hvname = HvNAME_get(pkg); |
|
0 |
0 |
const char *hvname = HvNAME_get(pkg); |
|
142 |
0 |
const char *hvname = HvNAME_get(pkg); |
|
0 |
142 |
const char *hvname = HvNAME_get(pkg); |
1907
|
62 |
80 |
if (gv && isGV(gv)) { |
|
62 |
0 |
if (gv && isGV(gv)) { |
1922
|
80 |
62 |
return SvOK(sv) ? sv : (SV *) 0; |
|
80 |
0 |
return SvOK(sv) ? sv : (SV *) 0; |
|
0 |
80 |
return SvOK(sv) ? sv : (SV *) 0; |
1935
|
4 |
0 |
const char *hvname = HvNAME_get(pkg); |
|
4 |
0 |
const char *hvname = HvNAME_get(pkg); |
|
0 |
4 |
const char *hvname = HvNAME_get(pkg); |
|
0 |
0 |
const char *hvname = HvNAME_get(pkg); |
|
4 |
0 |
const char *hvname = HvNAME_get(pkg); |
|
0 |
4 |
const char *hvname = HvNAME_get(pkg); |
1951
|
2 |
0 |
const char *hvname = HvNAME_get(pkg); |
|
2 |
0 |
const char *hvname = HvNAME_get(pkg); |
|
0 |
2 |
const char *hvname = HvNAME_get(pkg); |
|
0 |
0 |
const char *hvname = HvNAME_get(pkg); |
|
2 |
0 |
const char *hvname = HvNAME_get(pkg); |
|
0 |
2 |
const char *hvname = HvNAME_get(pkg); |
1971
|
208 |
0 |
const char *hvname = HvNAME_get(pkg); |
|
208 |
0 |
const char *hvname = HvNAME_get(pkg); |
|
0 |
208 |
const char *hvname = HvNAME_get(pkg); |
|
0 |
0 |
const char *hvname = HvNAME_get(pkg); |
|
208 |
0 |
const char *hvname = HvNAME_get(pkg); |
|
0 |
208 |
const char *hvname = HvNAME_get(pkg); |
1984
|
66 |
142 |
if (svh) { |
1986
|
30 |
36 |
if (!SvOK(sv)) { |
|
30 |
0 |
if (!SvOK(sv)) { |
|
30 |
0 |
if (!SvOK(sv)) { |
2022
|
0 |
53 |
PUSHMARK(sp); |
2023
|
0 |
53 |
XPUSHs(obj); |
2024
|
0 |
53 |
XPUSHs(sv_2mortal(newSViv(cloning))); /* Cloning flag */ |
2025
|
53 |
0 |
if (av) { |
2029
|
0 |
53 |
XPUSHs(ary[0]); /* Frozen string */ |
2030
|
40 |
53 |
for (i = 1; i < cnt; i++) { |
2033
|
0 |
40 |
XPUSHs(sv_2mortal(newRV_inc(ary[i]))); |
2044
|
12 |
41 |
if (count) { |
2050
|
53 |
0 |
FREETMPS; |
2077
|
0 |
57 |
PUSHMARK(sp); |
2078
|
0 |
57 |
XPUSHs(obj); /* Target object */ |
2079
|
0 |
57 |
XPUSHs(sv_2mortal(newSViv(cloning))); /* Cloning flag */ |
2087
|
95 |
57 |
for (i = count - 1; i >= 0; i--) { |
2093
|
57 |
0 |
FREETMPS; |
2189
|
44 |
116 |
if (svh) { |
2199
|
0 |
116 |
if (!hv_store(hclass, name, len, INT2PTR(SV*, cxt->classnum), 0)) |
2227
|
16 |
1593 |
if (SvWEAKREF(sv)) |
2234
|
168 |
1441 |
if (SvOBJECT(sv)) { |
2236
|
168 |
0 |
if (stash && Gv_AMG(stash)) { |
|
168 |
0 |
if (stash && Gv_AMG(stash)) { |
|
168 |
0 |
if (stash && Gv_AMG(stash)) { |
|
0 |
168 |
if (stash && Gv_AMG(stash)) { |
|
0 |
0 |
if (stash && Gv_AMG(stash)) { |
|
168 |
0 |
if (stash && Gv_AMG(stash)) { |
|
0 |
168 |
if (stash && Gv_AMG(stash)) { |
|
168 |
0 |
if (stash && Gv_AMG(stash)) { |
|
135 |
33 |
if (stash && Gv_AMG(stash)) { |
2238
|
29 |
4 |
PUTMARK(is_weak ? SX_WEAKOVERLOAD : SX_OVERLOAD); |
|
29 |
0 |
PUTMARK(is_weak ? SX_WEAKOVERLOAD : SX_OVERLOAD); |
|
2 |
27 |
PUTMARK(is_weak ? SX_WEAKOVERLOAD : SX_OVERLOAD); |
|
0 |
0 |
PUTMARK(is_weak ? SX_WEAKOVERLOAD : SX_OVERLOAD); |
|
2 |
2 |
PUTMARK(is_weak ? SX_WEAKOVERLOAD : SX_OVERLOAD); |
|
0 |
4 |
PUTMARK(is_weak ? SX_WEAKOVERLOAD : SX_OVERLOAD); |
2240
|
122 |
13 |
PUTMARK(is_weak ? SX_WEAKREF : SX_REF); |
|
122 |
0 |
PUTMARK(is_weak ? SX_WEAKREF : SX_REF); |
|
0 |
122 |
PUTMARK(is_weak ? SX_WEAKREF : SX_REF); |
|
0 |
0 |
PUTMARK(is_weak ? SX_WEAKREF : SX_REF); |
|
0 |
13 |
PUTMARK(is_weak ? SX_WEAKREF : SX_REF); |
|
0 |
13 |
PUTMARK(is_weak ? SX_WEAKREF : SX_REF); |
2242
|
1385 |
56 |
PUTMARK(is_weak ? SX_WEAKREF : SX_REF); |
|
1385 |
0 |
PUTMARK(is_weak ? SX_WEAKREF : SX_REF); |
|
6 |
1379 |
PUTMARK(is_weak ? SX_WEAKREF : SX_REF); |
|
0 |
0 |
PUTMARK(is_weak ? SX_WEAKREF : SX_REF); |
|
6 |
50 |
PUTMARK(is_weak ? SX_WEAKREF : SX_REF); |
|
0 |
56 |
PUTMARK(is_weak ? SX_WEAKREF : SX_REF); |
2246
|
1609 |
0 |
if (cxt->entry && cxt->recur_sv == sv) { |
|
43 |
1566 |
if (cxt->entry && cxt->recur_sv == sv) { |
2247
|
0 |
43 |
if (++cxt->recur_depth > MAX_DEPTH) { |
2257
|
1606 |
0 |
if (cxt->entry && cxt->recur_sv == sv && cxt->recur_depth > 0) { |
|
1038 |
568 |
if (cxt->entry && cxt->recur_sv == sv && cxt->recur_depth > 0) { |
|
574 |
464 |
if (cxt->entry && cxt->recur_sv == sv && cxt->recur_depth > 0) { |
2297
|
5144 |
23291 |
if (!(flags & SVf_OK)) { /* !SvOK(sv) */ |
2298
|
5125 |
19 |
if (sv == &PL_sv_undef) { |
2300
|
5125 |
0 |
PUTMARK(SX_SV_UNDEF); |
|
5125 |
0 |
PUTMARK(SX_SV_UNDEF); |
|
0 |
0 |
PUTMARK(SX_SV_UNDEF); |
2303
|
14 |
5 |
PUTMARK(SX_UNDEF); |
|
14 |
0 |
PUTMARK(SX_UNDEF); |
|
0 |
5 |
PUTMARK(SX_UNDEF); |
2339
|
6 |
23285 |
if ((flags & SV_MAYBE_IMMORTAL) == SV_MAYBE_IMMORTAL) { |
2340
|
3 |
3 |
if (sv == &PL_sv_yes) { |
2342
|
3 |
0 |
PUTMARK(SX_SV_YES); |
|
3 |
0 |
PUTMARK(SX_SV_YES); |
|
0 |
0 |
PUTMARK(SX_SV_YES); |
2343
|
3 |
0 |
} else if (sv == &PL_sv_no) { |
2345
|
3 |
0 |
PUTMARK(SX_SV_NO); |
|
3 |
0 |
PUTMARK(SX_SV_NO); |
|
0 |
0 |
PUTMARK(SX_SV_NO); |
2347
|
0 |
0 |
pv = SvPV(sv, len); /* We know it's SvPOK */ |
2350
|
22749 |
536 |
} else if (flags & SVf_POK) { |
2353
|
506 |
30 |
} else if ( |
2364
|
506 |
0 |
iv = SvIV(sv); |
2376
|
20 |
491 |
if ((flags & SVf_IVisUV) && SvUV(sv) > IV_MAX) { |
|
20 |
0 |
if ((flags & SVf_IVisUV) && SvUV(sv) > IV_MAX) { |
|
20 |
0 |
if ((flags & SVf_IVisUV) && SvUV(sv) > IV_MAX) { |
2387
|
461 |
30 |
if (iv >= -128 && iv <= 127) { |
|
355 |
106 |
if (iv >= -128 && iv <= 127) { |
2389
|
320 |
35 |
PUTMARK(SX_BYTE); |
|
320 |
0 |
PUTMARK(SX_BYTE); |
|
0 |
35 |
PUTMARK(SX_BYTE); |
2390
|
320 |
35 |
PUTMARK(siv); |
|
320 |
0 |
PUTMARK(siv); |
|
0 |
35 |
PUTMARK(siv); |
2392
|
49 |
87 |
} else if (cxt->netorder) { |
2401
|
0 |
49 |
if ( |
|
0 |
0 |
if ( |
2404
|
0 |
0 |
((flags & SVf_IVisUV) && SvUV(sv) > (UV)0x7FFFFFFF) || |
|
0 |
0 |
((flags & SVf_IVisUV) && SvUV(sv) > (UV)0x7FFFFFFF) || |
|
33 |
16 |
((flags & SVf_IVisUV) && SvUV(sv) > (UV)0x7FFFFFFF) || |
2406
|
27 |
6 |
(iv > (IV)0x7FFFFFFF) || (iv < -(IV)0x80000000)) { |
2415
|
14 |
13 |
PUTMARK(SX_NETINT); |
|
14 |
0 |
PUTMARK(SX_NETINT); |
|
0 |
13 |
PUTMARK(SX_NETINT); |
2416
|
14 |
13 |
WRITE_I32(niv); |
|
0 |
14 |
WRITE_I32(niv); |
|
0 |
14 |
WRITE_I32(niv); |
|
0 |
13 |
WRITE_I32(niv); |
2419
|
60 |
27 |
PUTMARK(SX_INTEGER); |
|
60 |
0 |
PUTMARK(SX_INTEGER); |
|
0 |
27 |
PUTMARK(SX_INTEGER); |
2420
|
60 |
27 |
WRITE(&iv, sizeof(iv)); |
|
0 |
60 |
WRITE(&iv, sizeof(iv)); |
|
0 |
27 |
WRITE(&iv, sizeof(iv)); |
2424
|
30 |
0 |
} else if (flags & SVf_NOK) { |
2437
|
26 |
4 |
SvIV_please(sv); |
|
26 |
0 |
SvIV_please(sv); |
|
0 |
26 |
SvIV_please(sv); |
2438
|
5 |
25 |
if (SvIOK_notUV(sv)) { |
2439
|
5 |
0 |
iv = SvIV(sv); |
2442
|
25 |
0 |
nv = SvNV(sv); |
2445
|
5 |
20 |
if (cxt->netorder) { |
2450
|
12 |
8 |
PUTMARK(SX_DOUBLE); |
|
12 |
0 |
PUTMARK(SX_DOUBLE); |
|
0 |
8 |
PUTMARK(SX_DOUBLE); |
2451
|
12 |
8 |
WRITE(&nv, sizeof(nv)); |
|
0 |
12 |
WRITE(&nv, sizeof(nv)); |
|
0 |
8 |
WRITE(&nv, sizeof(nv)); |
2455
|
0 |
0 |
} else if (flags & (SVp_POK | SVp_NOK | SVp_IOK)) { |
2462
|
22749 |
47 |
pv = SvPV(sv, len); |
2471
|
2 |
22794 |
if (SvMAGICAL(sv) && (mg = mg_find(sv, 'V'))) { |
|
2 |
0 |
if (SvMAGICAL(sv) && (mg = mg_find(sv, 'V'))) { |
2475
|
1 |
1 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
1 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
1 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
1 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
1 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
1 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
1 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
1 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
1 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
1 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
1 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
1 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
1 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
1 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
1 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
1 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
1 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
|
0 |
0 |
STORE_PV_LEN((const char *)mg->mg_ptr, |
2481
|
12 |
22784 |
if (SvUTF8 (sv)) |
2482
|
11 |
1 |
STORE_UTF8STR(pv, wlen); |
|
11 |
0 |
STORE_UTF8STR(pv, wlen); |
|
11 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
0 |
STORE_UTF8STR(pv, wlen); |
|
11 |
0 |
STORE_UTF8STR(pv, wlen); |
|
11 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
0 |
STORE_UTF8STR(pv, wlen); |
|
11 |
0 |
STORE_UTF8STR(pv, wlen); |
|
11 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
11 |
STORE_UTF8STR(pv, wlen); |
|
0 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
1 |
STORE_UTF8STR(pv, wlen); |
|
0 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
0 |
STORE_UTF8STR(pv, wlen); |
|
1 |
0 |
STORE_UTF8STR(pv, wlen); |
|
1 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
1 |
STORE_UTF8STR(pv, wlen); |
|
0 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
0 |
STORE_UTF8STR(pv, wlen); |
|
1 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
1 |
STORE_UTF8STR(pv, wlen); |
|
1 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
0 |
STORE_UTF8STR(pv, wlen); |
|
1 |
0 |
STORE_UTF8STR(pv, wlen); |
|
0 |
1 |
STORE_UTF8STR(pv, wlen); |
|
0 |
0 |
STORE_UTF8STR(pv, wlen); |
2484
|
22784 |
0 |
STORE_SCALAR(pv, wlen); |
|
22710 |
74 |
STORE_SCALAR(pv, wlen); |
|
22710 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
74 |
STORE_SCALAR(pv, wlen); |
|
22710 |
74 |
STORE_SCALAR(pv, wlen); |
|
22710 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
74 |
STORE_SCALAR(pv, wlen); |
|
22781 |
3 |
STORE_SCALAR(pv, wlen); |
|
22709 |
72 |
STORE_SCALAR(pv, wlen); |
|
2 |
22707 |
STORE_SCALAR(pv, wlen); |
|
0 |
72 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
|
0 |
0 |
STORE_SCALAR(pv, wlen); |
2514
|
0 |
415 |
if (len > 0x7fffffffu) { |
2518
|
0 |
0 |
PUTMARK(SX_LOBJECT); |
|
0 |
0 |
PUTMARK(SX_LOBJECT); |
|
0 |
0 |
PUTMARK(SX_LOBJECT); |
2519
|
0 |
0 |
PUTMARK(SX_ARRAY); |
|
0 |
0 |
PUTMARK(SX_ARRAY); |
|
0 |
0 |
PUTMARK(SX_ARRAY); |
2520
|
0 |
0 |
W64LEN(len); |
|
0 |
0 |
W64LEN(len); |
|
0 |
0 |
W64LEN(len); |
|
0 |
0 |
W64LEN(len); |
|
0 |
0 |
W64LEN(len); |
|
0 |
0 |
W64LEN(len); |
|
0 |
0 |
W64LEN(len); |
2529
|
396 |
19 |
PUTMARK(SX_ARRAY); |
|
396 |
0 |
PUTMARK(SX_ARRAY); |
|
0 |
19 |
PUTMARK(SX_ARRAY); |
2530
|
29 |
386 |
WLEN(l); |
|
22 |
7 |
WLEN(l); |
|
0 |
22 |
WLEN(l); |
|
2 |
20 |
WLEN(l); |
|
0 |
7 |
WLEN(l); |
|
374 |
12 |
WLEN(l); |
|
0 |
374 |
WLEN(l); |
|
137 |
237 |
WLEN(l); |
|
0 |
12 |
WLEN(l); |
2536
|
415 |
0 |
if (cxt->entry && cxt->recur_sv == (SV*)av) { |
|
352 |
63 |
if (cxt->entry && cxt->recur_sv == (SV*)av) { |
2537
|
0 |
352 |
if (++cxt->recur_depth > MAX_DEPTH) { |
2551
|
12934 |
413 |
for (i = 0; i < len; i++) { |
2553
|
3 |
12931 |
if (!sav) { |
2555
|
3 |
0 |
STORE_SV_UNDEF(); |
|
3 |
0 |
STORE_SV_UNDEF(); |
|
0 |
0 |
STORE_SV_UNDEF(); |
2564
|
0 |
12931 |
if (*sav == &PL_sv_undef) { |
2567
|
0 |
0 |
PUTMARK(SX_SVUNDEF_ELEM); |
|
0 |
0 |
PUTMARK(SX_SVUNDEF_ELEM); |
|
0 |
0 |
PUTMARK(SX_SVUNDEF_ELEM); |
2572
|
0 |
12929 |
if ((ret = store(aTHX_ cxt, *sav))) /* Extra () for -Wall */ |
2576
|
413 |
0 |
if (cxt->entry && cxt->recur_sv == (SV*)av && cxt->recur_depth > 0) { |
|
340 |
73 |
if (cxt->entry && cxt->recur_sv == (SV*)av && cxt->recur_depth > 0) { |
|
331 |
9 |
if (cxt->entry && cxt->recur_sv == (SV*)av && cxt->recur_depth > 0) { |
2639
|
1025 |
112 |
) ? 1 : 0); |
|
23 |
1002 |
) ? 1 : 0); |
2651
|
0 |
1137 |
if (len > 0x7fffffffu) { /* keys > I32_MAX */ |
2663
|
0 |
0 |
PUTMARK(SX_LOBJECT); |
|
0 |
0 |
PUTMARK(SX_LOBJECT); |
|
0 |
0 |
PUTMARK(SX_LOBJECT); |
2664
|
0 |
0 |
if (flagged_hash) { |
2665
|
0 |
0 |
PUTMARK(SX_FLAG_HASH); |
|
0 |
0 |
PUTMARK(SX_FLAG_HASH); |
|
0 |
0 |
PUTMARK(SX_FLAG_HASH); |
2666
|
0 |
0 |
PUTMARK(hash_flags); |
|
0 |
0 |
PUTMARK(hash_flags); |
|
0 |
0 |
PUTMARK(hash_flags); |
2668
|
0 |
0 |
PUTMARK(SX_HASH); |
|
0 |
0 |
PUTMARK(SX_HASH); |
|
0 |
0 |
PUTMARK(SX_HASH); |
2670
|
0 |
0 |
W64LEN(len); |
|
0 |
0 |
W64LEN(len); |
|
0 |
0 |
W64LEN(len); |
|
0 |
0 |
W64LEN(len); |
|
0 |
0 |
W64LEN(len); |
|
0 |
0 |
W64LEN(len); |
|
0 |
0 |
W64LEN(len); |
2679
|
135 |
1002 |
if (flagged_hash) { |
2682
|
129 |
6 |
PUTMARK(SX_FLAG_HASH); |
|
129 |
0 |
PUTMARK(SX_FLAG_HASH); |
|
0 |
6 |
PUTMARK(SX_FLAG_HASH); |
2683
|
129 |
6 |
PUTMARK(hash_flags); |
|
129 |
0 |
PUTMARK(hash_flags); |
|
0 |
6 |
PUTMARK(hash_flags); |
2686
|
978 |
24 |
PUTMARK(SX_HASH); |
|
978 |
0 |
PUTMARK(SX_HASH); |
|
0 |
24 |
PUTMARK(SX_HASH); |
2688
|
25 |
1112 |
WLEN(l); |
|
11 |
14 |
WLEN(l); |
|
0 |
11 |
WLEN(l); |
|
5 |
6 |
WLEN(l); |
|
0 |
14 |
WLEN(l); |
|
1096 |
16 |
WLEN(l); |
|
0 |
1096 |
WLEN(l); |
|
267 |
829 |
WLEN(l); |
|
0 |
16 |
WLEN(l); |
2694
|
1137 |
0 |
if (cxt->entry && cxt->recur_sv == (SV*)hv) { |
|
981 |
156 |
if (cxt->entry && cxt->recur_sv == (SV*)hv) { |
2695
|
0 |
981 |
if (++cxt->recur_depth > MAX_DEPTH_HASH) { |
2712
|
722 |
415 |
riter = HvRITER_get(hv); |
2713
|
722 |
415 |
eiter = HvEITER_get(hv); |
2727
|
888 |
249 |
if ( |
2729
|
493 |
395 |
&& (cxt->canonical == 1 |
2730
|
79 |
414 |
|| (cxt->canonical < 0 |
2731
|
19 |
60 |
&& (cxt->canonical = |
2732
|
43 |
0 |
(SvTRUE(get_sv("Storable::canonical", GV_ADD)) |
|
0 |
43 |
(SvTRUE(get_sv("Storable::canonical", GV_ADD)) |
|
6 |
0 |
(SvTRUE(get_sv("Storable::canonical", GV_ADD)) |
|
6 |
0 |
(SvTRUE(get_sv("Storable::canonical", GV_ADD)) |
|
6 |
0 |
(SvTRUE(get_sv("Storable::canonical", GV_ADD)) |
|
3 |
3 |
(SvTRUE(get_sv("Storable::canonical", GV_ADD)) |
|
3 |
3 |
(SvTRUE(get_sv("Storable::canonical", GV_ADD)) |
|
30 |
0 |
(SvTRUE(get_sv("Storable::canonical", GV_ADD)) |
|
14 |
16 |
(SvTRUE(get_sv("Storable::canonical", GV_ADD)) |
|
0 |
14 |
(SvTRUE(get_sv("Storable::canonical", GV_ADD)) |
|
0 |
0 |
(SvTRUE(get_sv("Storable::canonical", GV_ADD)) |
|
16 |
14 |
(SvTRUE(get_sv("Storable::canonical", GV_ADD)) |
|
0 |
0 |
(SvTRUE(get_sv("Storable::canonical", GV_ADD)) |
2746
|
4993 |
414 |
for (i = 0; i < len; i++) { |
2757
|
4993 |
414 |
for (i = 0; i < len; i++) { |
2759
|
21 |
4972 |
int placeholders = (int)HvPLACEHOLDERS_get(hv); |
2772
|
4975 |
18 |
if (he) { |
2773
|
0 |
4975 |
if (!(val = HeVAL(he))) { |
2780
|
0 |
18 |
if (placeholders-- < 0) { |
2803
|
0 |
4993 |
if ((ret = store(aTHX_ cxt, val))) /* Extra () for -Wall, grr... */ |
2816
|
22 |
4971 |
if ((hash_flags & SHV_RESTRICTED) |
2817
|
20 |
2 |
&& SvTRULYREADONLY(val)) { |
2821
|
4993 |
0 |
keyval = SvPV(key, keylen_tmp); |
2829
|
14 |
4979 |
if (SvUTF8(key)) { |
2844
|
5 |
9 |
if (keyval != keysave) { |
2855
|
48 |
4945 |
if (flagged_hash) { |
2856
|
40 |
8 |
PUTMARK(flags); |
|
40 |
0 |
PUTMARK(flags); |
|
0 |
8 |
PUTMARK(flags); |
2868
|
18 |
4975 |
WLEN(keylen); |
|
14 |
4 |
WLEN(keylen); |
|
0 |
14 |
WLEN(keylen); |
|
2 |
12 |
WLEN(keylen); |
|
0 |
4 |
WLEN(keylen); |
|
4971 |
4 |
WLEN(keylen); |
|
0 |
4971 |
WLEN(keylen); |
|
1302 |
3669 |
WLEN(keylen); |
|
0 |
4 |
WLEN(keylen); |
2869
|
4993 |
0 |
if (keylen) |
2870
|
4985 |
8 |
WRITE(keyval, keylen); |
|
0 |
4985 |
WRITE(keyval, keylen); |
|
0 |
8 |
WRITE(keyval, keylen); |
2871
|
5 |
4988 |
if (flags & SHV_K_WASUTF8) |
2889
|
11837 |
722 |
for (i = 0; i < len; i++) { |
2895
|
11837 |
0 |
SV *val = (he ? hv_iterval(hv, he) : 0); |
2897
|
0 |
11837 |
if (val == 0) |
2900
|
0 |
11836 |
if ((ret = store_hentry(aTHX_ cxt, hv, i, he, hash_flags))) |
2982
|
1136 |
0 |
if (cxt->entry && cxt->recur_sv == (SV*)hv && cxt->recur_depth > 0) { |
|
601 |
535 |
if (cxt->entry && cxt->recur_sv == (SV*)hv && cxt->recur_depth > 0) { |
|
470 |
131 |
if (cxt->entry && cxt->recur_sv == (SV*)hv && cxt->recur_depth > 0) { |
3001
|
6721 |
5116 |
) ? 1 : 0); |
|
31 |
6690 |
) ? 1 : 0); |
3002
|
5116 |
6721 |
unsigned char flags = (((hash_flags & SHV_RESTRICTED) |
3003
|
5110 |
6 |
&& SvTRULYREADONLY(val)) |
3008
|
5104 |
6733 |
if (val == &PL_sv_placeholder) { |
3025
|
0 |
11836 |
if ((ret = store(aTHX_ cxt, val))) |
3027
|
0 |
11836 |
if (len == HEf_SVKEY) { |
3033
|
9 |
11827 |
if (HEK_UTF8(hek)) |
3035
|
6 |
11830 |
if (HEK_WASUTF8(hek)) |
3048
|
5147 |
6689 |
if (flagged_hash) { |
3049
|
5137 |
10 |
PUTMARK(flags); |
|
5137 |
0 |
PUTMARK(flags); |
|
0 |
10 |
PUTMARK(flags); |
3061
|
0 |
11836 |
if (flags & SHV_K_ISSV) { |
3062
|
0 |
0 |
if ((ret = store(aTHX_ cxt, key_sv))) |
3065
|
28 |
11808 |
WLEN(len); |
|
7 |
21 |
WLEN(len); |
|
0 |
7 |
WLEN(len); |
|
2 |
5 |
WLEN(len); |
|
0 |
21 |
WLEN(len); |
|
11782 |
26 |
WLEN(len); |
|
0 |
11782 |
WLEN(len); |
|
2898 |
8884 |
WLEN(len); |
|
0 |
26 |
WLEN(len); |
3066
|
11832 |
4 |
if (len) |
3067
|
11785 |
47 |
WRITE(key, len); |
|
6 |
11779 |
WRITE(key, len); |
|
0 |
47 |
WRITE(key, len); |
3106
|
0 |
0 |
if (cxt->entry && cxt->recur_sv == (SV*)hv) { |
|
0 |
0 |
if (cxt->entry && cxt->recur_sv == (SV*)hv) { |
3107
|
0 |
0 |
if (++cxt->recur_depth > MAX_DEPTH_HASH) { |
3117
|
0 |
0 |
for (i = 0; i <= (Size_t)HvMAX(hv); i++) { |
3119
|
0 |
0 |
if (!entry) continue; |
3120
|
0 |
0 |
if ((ret = store_hentry(aTHX_ cxt, hv, ix++, entry, hash_flags))) |
3122
|
0 |
0 |
while ((entry = HeNEXT(entry))) { |
3123
|
0 |
0 |
if ((ret = store_hentry(aTHX_ cxt, hv, ix++, entry, hash_flags))) |
3127
|
0 |
0 |
if (cxt->entry && cxt->recur_sv == (SV*)hv && cxt->recur_depth > 0) { |
|
0 |
0 |
if (cxt->entry && cxt->recur_sv == (SV*)hv && cxt->recur_depth > 0) { |
|
0 |
0 |
if (cxt->entry && cxt->recur_sv == (SV*)hv && cxt->recur_depth > 0) { |
3159
|
73 |
0 |
if ( |
3160
|
41 |
32 |
cxt->deparse == 0 || |
3161
|
3 |
38 |
(cxt->deparse < 0 && |
3163
|
41 |
0 |
SvTRUE(get_sv("Storable::Deparse", GV_ADD)) ? 1 : 0)) |
|
0 |
41 |
SvTRUE(get_sv("Storable::Deparse", GV_ADD)) ? 1 : 0)) |
|
0 |
0 |
SvTRUE(get_sv("Storable::Deparse", GV_ADD)) ? 1 : 0)) |
|
0 |
41 |
SvTRUE(get_sv("Storable::Deparse", GV_ADD)) ? 1 : 0)) |
|
0 |
0 |
SvTRUE(get_sv("Storable::Deparse", GV_ADD)) ? 1 : 0)) |
|
0 |
0 |
SvTRUE(get_sv("Storable::Deparse", GV_ADD)) ? 1 : 0)) |
|
0 |
41 |
SvTRUE(get_sv("Storable::Deparse", GV_ADD)) ? 1 : 0)) |
|
0 |
0 |
SvTRUE(get_sv("Storable::Deparse", GV_ADD)) ? 1 : 0)) |
|
0 |
0 |
SvTRUE(get_sv("Storable::Deparse", GV_ADD)) ? 1 : 0)) |
|
0 |
0 |
SvTRUE(get_sv("Storable::Deparse", GV_ADD)) ? 1 : 0)) |
|
0 |
0 |
SvTRUE(get_sv("Storable::Deparse", GV_ADD)) ? 1 : 0)) |
|
0 |
0 |
SvTRUE(get_sv("Storable::Deparse", GV_ADD)) ? 1 : 0)) |
|
41 |
0 |
SvTRUE(get_sv("Storable::Deparse", GV_ADD)) ? 1 : 0)) |
|
41 |
0 |
SvTRUE(get_sv("Storable::Deparse", GV_ADD)) ? 1 : 0)) |
|
3 |
38 |
SvTRUE(get_sv("Storable::Deparse", GV_ADD)) ? 1 : 0)) |
|
0 |
3 |
SvTRUE(get_sv("Storable::Deparse", GV_ADD)) ? 1 : 0)) |
|
0 |
0 |
SvTRUE(get_sv("Storable::Deparse", GV_ADD)) ? 1 : 0)) |
|
38 |
3 |
SvTRUE(get_sv("Storable::Deparse", GV_ADD)) ? 1 : 0)) |
|
0 |
0 |
SvTRUE(get_sv("Storable::Deparse", GV_ADD)) ? 1 : 0)) |
3183
|
0 |
70 |
PUSHMARK(sp); |
3184
|
0 |
70 |
XPUSHs(newSVpvs_flags("B::Deparse", SVs_TEMP)); |
3188
|
0 |
70 |
if (count != 1) |
3196
|
0 |
70 |
PUSHMARK(sp); |
3197
|
0 |
70 |
XPUSHs(bdeparse); /* XXX is this already mortal? */ |
3198
|
0 |
70 |
XPUSHs(sv_2mortal(newRV_inc((SV*)cv))); |
3202
|
0 |
70 |
if (count != 1) |
3207
|
70 |
0 |
reallen = strlen(SvPV_nolen(text)); |
3214
|
70 |
0 |
if (len == 0 || *(SvPV_nolen(text)+reallen-1) == ';') { |
|
70 |
0 |
if (len == 0 || *(SvPV_nolen(text)+reallen-1) == ';') { |
|
1 |
69 |
if (len == 0 || *(SvPV_nolen(text)+reallen-1) == ';') { |
3222
|
55 |
14 |
PUTMARK(SX_CODE); |
|
55 |
0 |
PUTMARK(SX_CODE); |
|
0 |
14 |
PUTMARK(SX_CODE); |
3231
|
8 |
61 |
if(SvUTF8 (text)) |
3232
|
2 |
6 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
2 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
2 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
2 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
2 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
2 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
2 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
2 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
2 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
6 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
4 |
2 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
4 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
2 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
1 |
5 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
1 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
1 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
4 |
1 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
4 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
4 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
1 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
4 |
2 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
4 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
4 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
2 |
0 |
STORE_UTF8STR(SvPV_nolen(text), len); |
|
0 |
2 |
STORE_UTF8STR(SvPV_nolen(text), len); |
3234
|
58 |
3 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
46 |
12 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
46 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
12 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
46 |
12 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
46 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
12 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
58 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
46 |
12 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
46 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
46 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
12 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
12 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
3 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
3 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
3 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
3 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
3 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
3 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
3 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
3 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
3 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
3 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
|
0 |
0 |
STORE_SCALAR(SvPV_nolen(text), len); |
3236
|
69 |
0 |
FREETMPS; |
3273
|
7 |
12 |
if (svt == SVt_PVHV) { |
3275
|
7 |
0 |
PUTMARK(SX_TIED_HASH); /* Introduces tied hash */ |
|
7 |
0 |
PUTMARK(SX_TIED_HASH); /* Introduces tied hash */ |
|
0 |
0 |
PUTMARK(SX_TIED_HASH); /* Introduces tied hash */ |
3276
|
6 |
6 |
} else if (svt == SVt_PVAV) { |
3278
|
6 |
0 |
PUTMARK(SX_TIED_ARRAY); /* Introduces tied array */ |
|
6 |
0 |
PUTMARK(SX_TIED_ARRAY); /* Introduces tied array */ |
|
0 |
0 |
PUTMARK(SX_TIED_ARRAY); /* Introduces tied array */ |
3281
|
6 |
0 |
PUTMARK(SX_TIED_SCALAR); /* Introduces tied scalar */ |
|
6 |
0 |
PUTMARK(SX_TIED_SCALAR); /* Introduces tied scalar */ |
|
0 |
0 |
PUTMARK(SX_TIED_SCALAR); /* Introduces tied scalar */ |
3285
|
0 |
19 |
if (!(mg = mg_find(sv, mtype))) |
3286
|
0 |
0 |
CROAK(("No magic '%c' found while storing tied %s", mtype, |
|
0 |
0 |
CROAK(("No magic '%c' found while storing tied %s", mtype, |
3303
|
18 |
1 |
obj = mg->mg_obj ? mg->mg_obj : newSV(0); |
3304
|
0 |
19 |
if ((ret = store(aTHX_ cxt, obj))) |
3331
|
0 |
2 |
if (!(mg = mg_find(sv, 'p'))) |
3338
|
1 |
1 |
if (mg->mg_ptr) { |
3340
|
1 |
0 |
PUTMARK(SX_TIED_KEY); |
|
1 |
0 |
PUTMARK(SX_TIED_KEY); |
|
0 |
0 |
PUTMARK(SX_TIED_KEY); |
3343
|
0 |
1 |
if ((ret = store(aTHX_ cxt, mg->mg_obj))) /* Extra () for -Wall, grr... */ |
3348
|
0 |
1 |
if ((ret = store(aTHX_ cxt, (SV *) mg->mg_ptr))) /* Idem, for -Wall */ |
3354
|
1 |
0 |
PUTMARK(SX_TIED_IDX); |
|
1 |
0 |
PUTMARK(SX_TIED_IDX); |
|
0 |
0 |
PUTMARK(SX_TIED_IDX); |
3357
|
0 |
1 |
if ((ret = store(aTHX_ cxt, mg->mg_obj))) /* Idem, for -Wall */ |
3362
|
0 |
1 |
WLEN(idx); |
|
0 |
0 |
WLEN(idx); |
|
0 |
0 |
WLEN(idx); |
|
0 |
0 |
WLEN(idx); |
|
0 |
0 |
WLEN(idx); |
|
1 |
0 |
WLEN(idx); |
|
0 |
1 |
WLEN(idx); |
|
0 |
1 |
WLEN(idx); |
|
0 |
0 |
WLEN(idx); |
3493
|
57 |
0 |
classname = HvNAME_get(pkg); |
|
57 |
0 |
classname = HvNAME_get(pkg); |
|
0 |
57 |
classname = HvNAME_get(pkg); |
|
0 |
0 |
classname = HvNAME_get(pkg); |
|
57 |
0 |
classname = HvNAME_get(pkg); |
|
0 |
57 |
classname = HvNAME_get(pkg); |
3527
|
4 |
53 |
if (!count) { |
3536
|
0 |
4 |
if (hv_fetch(cxt->hclass, classname, len, FALSE)) |
3537
|
0 |
0 |
CROAK(("Too late to ignore hooks for %s class \"%s\"", |
3555
|
52 |
1 |
pv = SvPV(ary[0], len2); |
3560
|
8 |
45 |
if (gv && isGV(gv)) { |
|
8 |
0 |
if (gv && isGV(gv)) { |
3561
|
1 |
7 |
if (count > 1) |
3580
|
41 |
45 |
for (i = 1; i < count; i++) { |
3591
|
0 |
41 |
if (!SvROK(rsv)) |
3606
|
30 |
11 |
if ((fake_tag = (char *)ptr_table_fetch(cxt->pseen, xsv))) |
3628
|
11 |
0 |
if (!recursed++) { |
3629
|
11 |
0 |
PUTMARK(SX_HOOK); |
|
11 |
0 |
PUTMARK(SX_HOOK); |
|
0 |
0 |
PUTMARK(SX_HOOK); |
3630
|
11 |
0 |
PUTMARK(flags); |
|
11 |
0 |
PUTMARK(flags); |
|
0 |
0 |
PUTMARK(flags); |
3631
|
0 |
11 |
if (obj_type == SHT_EXTRA) |
3632
|
0 |
0 |
PUTMARK(eflags); |
|
0 |
0 |
PUTMARK(eflags); |
|
0 |
0 |
PUTMARK(eflags); |
3634
|
0 |
0 |
PUTMARK(flags); |
|
0 |
0 |
PUTMARK(flags); |
|
0 |
0 |
PUTMARK(flags); |
3636
|
0 |
11 |
if ((ret = store(aTHX_ cxt, xsv))) /* Given by hook for us to store */ |
3641
|
0 |
11 |
if (!fake_tag) |
3699
|
34 |
18 |
if (!known_class(aTHX_ cxt, classname, len, &classnum)) { |
3711
|
34 |
18 |
if (((classnum == -1) ? len : classnum) > LG_SCALAR) |
|
0 |
52 |
if (((classnum == -1) ? len : classnum) > LG_SCALAR) |
3713
|
18 |
34 |
if (classnum != -1) |
3715
|
0 |
52 |
if (len2 > LG_SCALAR) |
3717
|
32 |
20 |
if (count > 1) |
3719
|
0 |
52 |
if (count > (LG_SCALAR + 1)) |
3736
|
41 |
11 |
if (!recursed) { |
3737
|
40 |
1 |
PUTMARK(SX_HOOK); |
|
40 |
0 |
PUTMARK(SX_HOOK); |
|
0 |
1 |
PUTMARK(SX_HOOK); |
3738
|
40 |
1 |
PUTMARK(flags); |
|
40 |
0 |
PUTMARK(flags); |
|
0 |
1 |
PUTMARK(flags); |
3739
|
1 |
40 |
if (obj_type == SHT_EXTRA) |
3740
|
1 |
0 |
PUTMARK(eflags); |
|
1 |
0 |
PUTMARK(eflags); |
|
0 |
0 |
PUTMARK(eflags); |
3742
|
11 |
0 |
PUTMARK(flags); |
|
11 |
0 |
PUTMARK(flags); |
|
0 |
0 |
PUTMARK(flags); |
3745
|
18 |
34 |
if (flags & SHF_IDX_CLASSNAME) { |
3746
|
0 |
18 |
if (flags & SHF_LARGE_CLASSLEN) |
3747
|
0 |
0 |
WLEN(classnum); |
|
0 |
0 |
WLEN(classnum); |
|
0 |
0 |
WLEN(classnum); |
|
0 |
0 |
WLEN(classnum); |
|
0 |
0 |
WLEN(classnum); |
|
0 |
0 |
WLEN(classnum); |
|
0 |
0 |
WLEN(classnum); |
|
0 |
0 |
WLEN(classnum); |
|
0 |
0 |
WLEN(classnum); |
3750
|
18 |
0 |
PUTMARK(cnum); |
|
18 |
0 |
PUTMARK(cnum); |
|
0 |
0 |
PUTMARK(cnum); |
3753
|
0 |
34 |
if (flags & SHF_LARGE_CLASSLEN) |
3754
|
0 |
0 |
WLEN(len); |
|
0 |
0 |
WLEN(len); |
|
0 |
0 |
WLEN(len); |
|
0 |
0 |
WLEN(len); |
|
0 |
0 |
WLEN(len); |
|
0 |
0 |
WLEN(len); |
|
0 |
0 |
WLEN(len); |
|
0 |
0 |
WLEN(len); |
|
0 |
0 |
WLEN(len); |
3757
|
33 |
1 |
PUTMARK(clen); |
|
33 |
0 |
PUTMARK(clen); |
|
0 |
1 |
PUTMARK(clen); |
3759
|
33 |
1 |
WRITE(classname, len); /* Final \0 is omitted */ |
|
0 |
33 |
WRITE(classname, len); /* Final \0 is omitted */ |
|
0 |
1 |
WRITE(classname, len); /* Final \0 is omitted */ |
3763
|
0 |
52 |
if (flags & SHF_LARGE_STRLEN) { |
3765
|
0 |
0 |
WLEN(wlen2); /* Must write an I32 for 64-bit machines */ |
|
0 |
0 |
WLEN(wlen2); /* Must write an I32 for 64-bit machines */ |
|
0 |
0 |
WLEN(wlen2); /* Must write an I32 for 64-bit machines */ |
|
0 |
0 |
WLEN(wlen2); /* Must write an I32 for 64-bit machines */ |
|
0 |
0 |
WLEN(wlen2); /* Must write an I32 for 64-bit machines */ |
|
0 |
0 |
WLEN(wlen2); /* Must write an I32 for 64-bit machines */ |
|
0 |
0 |
WLEN(wlen2); /* Must write an I32 for 64-bit machines */ |
|
0 |
0 |
WLEN(wlen2); /* Must write an I32 for 64-bit machines */ |
|
0 |
0 |
WLEN(wlen2); /* Must write an I32 for 64-bit machines */ |
3768
|
51 |
1 |
PUTMARK(clen); |
|
51 |
0 |
PUTMARK(clen); |
|
0 |
1 |
PUTMARK(clen); |
3770
|
24 |
28 |
if (len2) |
3771
|
24 |
0 |
WRITE(pv, (SSize_t)len2); /* Final \0 is omitted */ |
|
0 |
24 |
WRITE(pv, (SSize_t)len2); /* Final \0 is omitted */ |
|
0 |
0 |
WRITE(pv, (SSize_t)len2); /* Final \0 is omitted */ |
3774
|
32 |
20 |
if (flags & SHF_HAS_LIST) { |
3776
|
0 |
32 |
if (flags & SHF_LARGE_LISTLEN) |
3777
|
0 |
0 |
WLEN(len3); |
|
0 |
0 |
WLEN(len3); |
|
0 |
0 |
WLEN(len3); |
|
0 |
0 |
WLEN(len3); |
|
0 |
0 |
WLEN(len3); |
|
0 |
0 |
WLEN(len3); |
|
0 |
0 |
WLEN(len3); |
|
0 |
0 |
WLEN(len3); |
|
0 |
0 |
WLEN(len3); |
3780
|
32 |
0 |
PUTMARK(clen); |
|
32 |
0 |
PUTMARK(clen); |
|
0 |
0 |
PUTMARK(clen); |
3788
|
41 |
32 |
for (i = 1; i < count; i++) { |
3790
|
41 |
0 |
WRITE_I32(tagval); |
|
0 |
41 |
WRITE_I32(tagval); |
|
11 |
30 |
WRITE_I32(tagval); |
|
0 |
0 |
WRITE_I32(tagval); |
3800
|
32 |
20 |
if (count > 1) |
3809
|
1 |
51 |
if (obj_type == SHT_EXTRA) { |
3812
|
0 |
1 |
if (!(mg = mg_find(sv, mtype))) { |
3814
|
0 |
0 |
CROAK(("No magic '%c' found while storing ref to tied %s with hook", |
|
0 |
0 |
CROAK(("No magic '%c' found while storing ref to tied %s with hook", |
3825
|
0 |
1 |
if ((ret = store(aTHX_ cxt, mg->mg_obj))) |
3876
|
57 |
108 |
if (hook) |
3883
|
108 |
0 |
classname = HvNAME_get(pkg); |
|
108 |
0 |
classname = HvNAME_get(pkg); |
|
0 |
108 |
classname = HvNAME_get(pkg); |
|
0 |
0 |
classname = HvNAME_get(pkg); |
|
108 |
0 |
classname = HvNAME_get(pkg); |
|
0 |
108 |
classname = HvNAME_get(pkg); |
3896
|
26 |
82 |
if (known_class(aTHX_ cxt, classname, len, &classnum)) { |
3898
|
26 |
0 |
PUTMARK(SX_IX_BLESS); |
|
26 |
0 |
PUTMARK(SX_IX_BLESS); |
|
0 |
0 |
PUTMARK(SX_IX_BLESS); |
3899
|
26 |
0 |
if (classnum <= LG_BLESS) { |
3901
|
26 |
0 |
PUTMARK(cnum); |
|
26 |
0 |
PUTMARK(cnum); |
|
0 |
0 |
PUTMARK(cnum); |
3904
|
0 |
0 |
PUTMARK(flag); |
|
0 |
0 |
PUTMARK(flag); |
|
0 |
0 |
PUTMARK(flag); |
3905
|
0 |
0 |
WLEN(classnum); |
|
0 |
0 |
WLEN(classnum); |
|
0 |
0 |
WLEN(classnum); |
|
0 |
0 |
WLEN(classnum); |
|
0 |
0 |
WLEN(classnum); |
|
0 |
0 |
WLEN(classnum); |
|
0 |
0 |
WLEN(classnum); |
|
0 |
0 |
WLEN(classnum); |
|
0 |
0 |
WLEN(classnum); |
3910
|
69 |
13 |
PUTMARK(SX_BLESS); |
|
69 |
0 |
PUTMARK(SX_BLESS); |
|
0 |
13 |
PUTMARK(SX_BLESS); |
3911
|
81 |
1 |
if (len <= LG_BLESS) { |
3913
|
68 |
13 |
PUTMARK(clen); |
|
68 |
0 |
PUTMARK(clen); |
|
0 |
13 |
PUTMARK(clen); |
3916
|
1 |
0 |
PUTMARK(flag); |
|
1 |
0 |
PUTMARK(flag); |
|
0 |
0 |
PUTMARK(flag); |
3917
|
0 |
1 |
WLEN(len); /* Don't BER-encode, this should be rare */ |
|
0 |
0 |
WLEN(len); /* Don't BER-encode, this should be rare */ |
|
0 |
0 |
WLEN(len); /* Don't BER-encode, this should be rare */ |
|
0 |
0 |
WLEN(len); /* Don't BER-encode, this should be rare */ |
|
0 |
0 |
WLEN(len); /* Don't BER-encode, this should be rare */ |
|
1 |
0 |
WLEN(len); /* Don't BER-encode, this should be rare */ |
|
0 |
1 |
WLEN(len); /* Don't BER-encode, this should be rare */ |
|
0 |
1 |
WLEN(len); /* Don't BER-encode, this should be rare */ |
|
0 |
0 |
WLEN(len); /* Don't BER-encode, this should be rare */ |
3919
|
69 |
13 |
WRITE(classname, len); /* Final \0 is omitted */ |
|
0 |
69 |
WRITE(classname, len); /* Final \0 is omitted */ |
|
0 |
13 |
WRITE(classname, len); /* Final \0 is omitted */ |
3950
|
5 |
0 |
if ( |
3951
|
5 |
0 |
cxt->forgive_me == 0 || |
3952
|
3 |
2 |
(cxt->forgive_me < 0 && |
3953
|
3 |
0 |
!(cxt->forgive_me = SvTRUE |
|
0 |
3 |
!(cxt->forgive_me = SvTRUE |
|
0 |
0 |
!(cxt->forgive_me = SvTRUE |
|
0 |
0 |
!(cxt->forgive_me = SvTRUE |
|
0 |
0 |
!(cxt->forgive_me = SvTRUE |
|
0 |
0 |
!(cxt->forgive_me = SvTRUE |
|
0 |
0 |
!(cxt->forgive_me = SvTRUE |
|
2 |
0 |
!(cxt->forgive_me = SvTRUE |
|
0 |
2 |
!(cxt->forgive_me = SvTRUE |
|
0 |
0 |
!(cxt->forgive_me = SvTRUE |
|
0 |
0 |
!(cxt->forgive_me = SvTRUE |
|
2 |
0 |
!(cxt->forgive_me = SvTRUE |
|
0 |
0 |
!(cxt->forgive_me = SvTRUE |
3969
|
2 |
0 |
if (len < 80) |
3970
|
2 |
0 |
STORE_SCALAR(buf, len); |
|
1 |
1 |
STORE_SCALAR(buf, len); |
|
1 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
1 |
STORE_SCALAR(buf, len); |
|
1 |
1 |
STORE_SCALAR(buf, len); |
|
1 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
1 |
STORE_SCALAR(buf, len); |
|
2 |
0 |
STORE_SCALAR(buf, len); |
|
1 |
1 |
STORE_SCALAR(buf, len); |
|
0 |
1 |
STORE_SCALAR(buf, len); |
|
0 |
1 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
|
0 |
0 |
STORE_SCALAR(buf, len); |
4021
|
8 |
13 |
if ((SvFLAGS(sv) & (SVs_GMG|SVs_SMG|SVs_RMG)) == |
4022
|
2 |
6 |
(SVs_GMG|SVs_SMG|SVs_RMG) && |
4029
|
6 |
13 |
if ((SvFLAGS(sv) & (SVs_GMG|SVs_SMG|SVs_RMG)) == |
4030
|
6 |
0 |
(SVs_GMG|SVs_SMG|SVs_RMG) && |
4035
|
11 |
444 |
if (SvRMAGICAL(sv) && (mg_find(sv, 'P'))) |
|
6 |
5 |
if (SvRMAGICAL(sv) && (mg_find(sv, 'P'))) |
4039
|
116 |
1045 |
if (SvRMAGICAL(sv) && (mg_find(sv, 'P'))) |
|
8 |
108 |
if (SvRMAGICAL(sv) && (mg_find(sv, 'P'))) |
4093
|
5139 |
26731 |
if (svh) { |
4096
|
5014 |
125 |
if (sv == &PL_sv_undef) { |
4135
|
103 |
22 |
PUTMARK(SX_OBJECT); |
|
103 |
0 |
PUTMARK(SX_OBJECT); |
|
0 |
22 |
PUTMARK(SX_OBJECT); |
4136
|
103 |
22 |
WRITE_I32(tagval); |
|
0 |
103 |
WRITE_I32(tagval); |
|
32 |
71 |
WRITE_I32(tagval); |
|
0 |
22 |
WRITE_I32(tagval); |
4171
|
161 |
31584 |
if (SvOBJECT(sv)) { |
4247
|
92 |
374 |
if (cxt->netorder) { |
4263
|
367 |
99 |
if (!cxt->fio) { |
4269
|
367 |
99 |
WRITE( (unsigned char*) header, length); |
|
0 |
367 |
WRITE( (unsigned char*) header, length); |
|
0 |
99 |
WRITE( (unsigned char*) header, length); |
4315
|
15 |
451 |
if (cxt->s_dirty) |
4323
|
0 |
466 |
if (cxt->entry) |
4338
|
0 |
466 |
if (!SvROK(sv)) |
4346
|
367 |
99 |
if (!f) |
4347
|
22 |
345 |
MBUF_INIT(0); |
4355
|
0 |
466 |
if (-1 == magic_write(aTHX_ cxt)) /* Emit magic and ILP info */ |
4375
|
363 |
98 |
if (!cxt->fio && res) |
|
208 |
155 |
if (!cxt->fio && res) |
4395
|
0 |
461 |
if (cxt->prev && !(cxt->optype & ST_CLONE)) |
|
0 |
0 |
if (cxt->prev && !(cxt->optype & ST_CLONE)) |
4433
|
2 |
8 |
if ( |
4434
|
2 |
0 |
cxt->ver_major != STORABLE_BIN_MAJOR && |
4437
|
2 |
0 |
CROAK(("Corrupted storable %s (binary v%d.%d), current is v%d.%d", |
4442
|
4 |
4 |
CROAK(("Corrupted storable %s (binary v%d.%d)", |
4467
|
18 |
0 |
GETMARK(idx); /* Index coded on a single char? */ |
|
18 |
0 |
GETMARK(idx); /* Index coded on a single char? */ |
|
0 |
0 |
GETMARK(idx); /* Index coded on a single char? */ |
4468
|
0 |
18 |
if (idx & 0x80) |
4469
|
0 |
0 |
RLEN(idx); |
|
0 |
0 |
RLEN(idx); |
|
0 |
0 |
RLEN(idx); |
|
0 |
0 |
RLEN(idx); |
|
0 |
0 |
RLEN(idx); |
4476
|
0 |
18 |
if (!sva) |
4519
|
61 |
13 |
GETMARK(len); /* Length coded on a single char? */ |
|
61 |
0 |
GETMARK(len); /* Length coded on a single char? */ |
|
0 |
13 |
GETMARK(len); /* Length coded on a single char? */ |
4520
|
2 |
72 |
if (len & 0x80) { |
4521
|
2 |
0 |
RLEN(len); |
|
2 |
0 |
RLEN(len); |
|
0 |
2 |
RLEN(len); |
|
0 |
0 |
RLEN(len); |
|
0 |
2 |
RLEN(len); |
4523
|
1 |
1 |
if (len > I32_MAX) |
4528
|
0 |
1 |
if (!classname) |
4533
|
60 |
13 |
SAFEPVREAD(classname, (I32)len, malloced_classname); |
|
60 |
0 |
SAFEPVREAD(classname, (I32)len, malloced_classname); |
|
0 |
13 |
SAFEPVREAD(classname, (I32)len, malloced_classname); |
4543
|
0 |
73 |
if (!av_store(cxt->aclass, cxt->classnum++, newSVpvn(classname, len))) { |
4553
|
1 |
72 |
if (malloced_classname) |
4608
|
55 |
1 |
GETMARK(flags); |
|
55 |
0 |
GETMARK(flags); |
|
0 |
1 |
GETMARK(flags); |
4634
|
1 |
0 |
GETMARK(extra_type); |
|
1 |
0 |
GETMARK(extra_type); |
|
0 |
0 |
GETMARK(extra_type); |
4655
|
0 |
56 |
SEEN0_NN(sv, 0); /* Don't bless yet */ |
4669
|
11 |
56 |
while (flags & SHF_NEED_RECURSE) { |
4672
|
0 |
11 |
if (!rv) |
4677
|
11 |
0 |
GETMARK(flags); |
|
11 |
0 |
GETMARK(flags); |
|
0 |
0 |
GETMARK(flags); |
4680
|
18 |
38 |
if (flags & SHF_IDX_CLASSNAME) { |
4688
|
0 |
18 |
if (flags & SHF_LARGE_CLASSLEN) |
4689
|
0 |
0 |
RLEN(idx); |
|
0 |
0 |
RLEN(idx); |
|
0 |
0 |
RLEN(idx); |
|
0 |
0 |
RLEN(idx); |
|
0 |
0 |
RLEN(idx); |
4691
|
18 |
0 |
GETMARK(idx); |
|
18 |
0 |
GETMARK(idx); |
|
0 |
0 |
GETMARK(idx); |
4694
|
0 |
18 |
if (!sva) |
4711
|
2 |
36 |
if (flags & SHF_LARGE_CLASSLEN) |
4712
|
2 |
0 |
RLEN(len); |
|
2 |
0 |
RLEN(len); |
|
0 |
2 |
RLEN(len); |
|
0 |
0 |
RLEN(len); |
|
0 |
2 |
RLEN(len); |
4714
|
35 |
1 |
GETMARK(len); |
|
35 |
0 |
GETMARK(len); |
|
0 |
1 |
GETMARK(len); |
4717
|
1 |
37 |
if (len > I32_MAX) /* security */ |
4719
|
2 |
35 |
else if (len > LG_BLESS) { /* security: signed len */ |
4723
|
0 |
2 |
if (!classname) |
4728
|
36 |
1 |
SAFEPVREAD(classname, (I32)len, malloced_classname); |
|
35 |
1 |
SAFEPVREAD(classname, (I32)len, malloced_classname); |
|
0 |
1 |
SAFEPVREAD(classname, (I32)len, malloced_classname); |
4735
|
0 |
36 |
if (!av_store(cxt->aclass, cxt->classnum++, |
4751
|
0 |
54 |
if (flags & SHF_LARGE_STRLEN) |
4752
|
0 |
0 |
RLEN(len2); |
|
0 |
0 |
RLEN(len2); |
|
0 |
0 |
RLEN(len2); |
|
0 |
0 |
RLEN(len2); |
|
0 |
0 |
RLEN(len2); |
4754
|
53 |
1 |
GETMARK(len2); |
|
53 |
0 |
GETMARK(len2); |
|
0 |
1 |
GETMARK(len2); |
4757
|
20 |
34 |
if (len2) { |
4758
|
20 |
0 |
SAFEREAD(SvPVX(frozen), len2, frozen); |
|
20 |
0 |
SAFEREAD(SvPVX(frozen), len2, frozen); |
|
0 |
0 |
SAFEREAD(SvPVX(frozen), len2, frozen); |
4763
|
1 |
53 |
if (cxt->s_tainted) /* Is input source tainted? */ |
4764
|
0 |
1 |
SvTAINT(frozen); |
|
0 |
0 |
SvTAINT(frozen); |
4772
|
32 |
22 |
if (flags & SHF_HAS_LIST) { |
4773
|
0 |
32 |
if (flags & SHF_LARGE_LISTLEN) |
4774
|
0 |
0 |
RLEN(len3); |
|
0 |
0 |
RLEN(len3); |
|
0 |
0 |
RLEN(len3); |
|
0 |
0 |
RLEN(len3); |
|
0 |
0 |
RLEN(len3); |
4776
|
32 |
0 |
GETMARK(len3); |
|
32 |
0 |
GETMARK(len3); |
|
0 |
0 |
GETMARK(len3); |
4777
|
32 |
0 |
if (len3) { |
4796
|
32 |
22 |
if (av) { |
4799
|
41 |
32 |
for (i = 1; i <= len3; i++) { /* We leave [0] alone */ |
4804
|
41 |
0 |
READ_I32(tag); |
|
41 |
0 |
READ_I32(tag); |
|
11 |
30 |
READ_I32(tag); |
|
0 |
0 |
READ_I32(tag); |
4807
|
0 |
41 |
if (!svh) { |
4808
|
0 |
0 |
if (tag == cxt->where_is_undef) { |
4828
|
0 |
54 |
if (!(cxt->flags & FLAG_BLESS_OK)) { |
4841
|
13 |
41 |
if (attach && isGV(attach)) { |
|
13 |
0 |
if (attach && isGV(attach)) { |
4845
|
1 |
12 |
if (av) |
4859
|
12 |
0 |
if (attached && |
|
9 |
3 |
if (attached && |
4860
|
5 |
4 |
SvROK(attached) && |
4870
|
0 |
5 |
SEEN0_NN(sv, 0); |
4873
|
5 |
0 |
if (!(flags & SHF_IDX_CLASSNAME) && classname != buf) |
|
0 |
5 |
if (!(flags & SHF_IDX_CLASSNAME) && classname != buf) |
4884
|
41 |
0 |
BLESS(sv, stash); |
|
0 |
41 |
BLESS(sv, stash); |
|
0 |
0 |
BLESS(sv, stash); |
|
0 |
0 |
BLESS(sv, stash); |
|
0 |
0 |
BLESS(sv, stash); |
|
0 |
0 |
BLESS(sv, stash); |
|
0 |
0 |
BLESS(sv, stash); |
|
0 |
0 |
BLESS(sv, stash); |
|
0 |
0 |
BLESS(sv, stash); |
|
0 |
0 |
BLESS(sv, stash); |
|
0 |
0 |
BLESS(sv, stash); |
4887
|
2 |
39 |
if (!hook) { |
4909
|
0 |
2 |
if (!hook) |
4919
|
10 |
31 |
if (!av) { |
4955
|
23 |
18 |
if (!(flags & SHF_IDX_CLASSNAME) && classname != buf) |
|
1 |
22 |
if (!(flags & SHF_IDX_CLASSNAME) && classname != buf) |
4963
|
40 |
1 |
if (!extra_type) |
5041
|
2 |
485 |
if (cname) |
5045
|
0 |
487 |
SEEN_NN(rv, stash, 0); /* Will return if rv is null */ |
|
2 |
485 |
SEEN_NN(rv, stash, 0); /* Will return if rv is null */ |
|
2 |
0 |
SEEN_NN(rv, stash, 0); /* Will return if rv is null */ |
|
0 |
2 |
SEEN_NN(rv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(rv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(rv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(rv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(rv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(rv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(rv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(rv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(rv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(rv, stash, 0); /* Will return if rv is null */ |
5047
|
0 |
485 |
if (!sv) |
5067
|
483 |
2 |
if (cname) { |
5098
|
12 |
0 |
if (sv) { |
5127
|
1 |
33 |
stash = cname ? gv_stashpv(cname, GV_ADD) : 0; |
5128
|
0 |
34 |
SEEN_NN(rv, stash, 0); /* Will return if rv is null */ |
|
1 |
33 |
SEEN_NN(rv, stash, 0); /* Will return if rv is null */ |
|
1 |
0 |
SEEN_NN(rv, stash, 0); /* Will return if rv is null */ |
|
0 |
1 |
SEEN_NN(rv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(rv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(rv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(rv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(rv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(rv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(rv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(rv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(rv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(rv, stash, 0); /* Will return if rv is null */ |
5132
|
0 |
34 |
if (!sv) |
5139
|
33 |
1 |
SvUPGRADE(rv, SVt_RV); |
5147
|
34 |
0 |
stash = SvTYPE(sv) ? (HV *) SvSTASH (sv) : 0; |
5148
|
0 |
34 |
if (!stash) { |
5154
|
34 |
0 |
if (!Gv_AMG(stash)) { |
|
34 |
0 |
if (!Gv_AMG(stash)) { |
|
0 |
34 |
if (!Gv_AMG(stash)) { |
|
0 |
0 |
if (!Gv_AMG(stash)) { |
|
34 |
0 |
if (!Gv_AMG(stash)) { |
|
0 |
34 |
if (!Gv_AMG(stash)) { |
|
34 |
0 |
if (!Gv_AMG(stash)) { |
|
0 |
34 |
if (!Gv_AMG(stash)) { |
|
0 |
34 |
if (!Gv_AMG(stash)) { |
5155
|
0 |
0 |
const char *package = HvNAME_get(stash); |
|
0 |
0 |
const char *package = HvNAME_get(stash); |
|
0 |
0 |
const char *package = HvNAME_get(stash); |
|
0 |
0 |
const char *package = HvNAME_get(stash); |
|
0 |
0 |
const char *package = HvNAME_get(stash); |
|
0 |
0 |
const char *package = HvNAME_get(stash); |
5159
|
0 |
0 |
if (!Gv_AMG(stash)) { |
|
0 |
0 |
if (!Gv_AMG(stash)) { |
|
0 |
0 |
if (!Gv_AMG(stash)) { |
|
0 |
0 |
if (!Gv_AMG(stash)) { |
|
0 |
0 |
if (!Gv_AMG(stash)) { |
|
0 |
0 |
if (!Gv_AMG(stash)) { |
|
0 |
0 |
if (!Gv_AMG(stash)) { |
|
0 |
0 |
if (!Gv_AMG(stash)) { |
|
0 |
0 |
if (!Gv_AMG(stash)) { |
5188
|
4 |
0 |
if (sv) { |
5212
|
0 |
4 |
if (!(cxt->flags & FLAG_TIE_OK)) { |
5217
|
1 |
3 |
stash = cname ? gv_stashpv(cname, GV_ADD) : 0; |
5218
|
0 |
4 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
1 |
3 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
1 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
1 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
5220
|
0 |
4 |
if (!sv) |
5246
|
0 |
4 |
if (!(cxt->flags & FLAG_TIE_OK)) { |
5251
|
1 |
3 |
stash = cname ? gv_stashpv(cname, GV_ADD) : 0; |
5252
|
0 |
4 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
1 |
3 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
1 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
1 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
5254
|
0 |
4 |
if (!sv) |
5280
|
0 |
4 |
if (!(cxt->flags & FLAG_TIE_OK)) { |
5285
|
1 |
3 |
stash = cname ? gv_stashpv(cname, GV_ADD) : 0; |
5286
|
0 |
4 |
SEEN_NN(tv, stash, 0); /* Will return if rv is null */ |
|
1 |
3 |
SEEN_NN(tv, stash, 0); /* Will return if rv is null */ |
|
1 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if rv is null */ |
|
0 |
1 |
SEEN_NN(tv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if rv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if rv is null */ |
5288
|
0 |
4 |
if (!sv) { |
5291
|
3 |
1 |
else if (SvTYPE(sv) != SVt_NULL) { |
5298
|
3 |
1 |
if (obj) { |
5323
|
0 |
1 |
if (!(cxt->flags & FLAG_TIE_OK)) { |
5328
|
0 |
1 |
stash = cname ? gv_stashpv(cname, GV_ADD) : 0; |
5329
|
0 |
1 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
1 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
5331
|
0 |
1 |
if (!sv) |
5335
|
0 |
1 |
if (!key) |
5361
|
0 |
1 |
if (!(cxt->flags & FLAG_TIE_OK)) { |
5366
|
0 |
1 |
stash = cname ? gv_stashpv(cname, GV_ADD) : 0; |
5367
|
0 |
1 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
1 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
|
0 |
0 |
SEEN_NN(tv, stash, 0); /* Will return if tv is null */ |
5369
|
0 |
1 |
if (!sv) |
5372
|
1 |
0 |
RLEN(idx); /* Retrieve */ |
|
1 |
0 |
RLEN(idx); /* Retrieve */ |
|
0 |
1 |
RLEN(idx); /* Retrieve */ |
|
0 |
0 |
RLEN(idx); /* Retrieve */ |
|
0 |
1 |
RLEN(idx); /* Retrieve */ |
5398
|
11 |
3546 |
stash = cname ? gv_stashpv(cname, GV_ADD) : 0; |
5399
|
0 |
3557 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
11 |
3546 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
11 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
1 |
10 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
1 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
1 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
1 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
1 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
1 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
1 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
1 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
1 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
5401
|
4 |
3553 |
if (len == 0) { |
5415
|
3434 |
119 |
SAFEREAD(SvPVX(sv), len, sv); |
|
3424 |
10 |
SAFEREAD(SvPVX(sv), len, sv); |
|
11 |
108 |
SAFEREAD(SvPVX(sv), len, sv); |
5419
|
108 |
3424 |
if (cxt->s_tainted) /* Is input source tainted? */ |
5420
|
0 |
108 |
SvTAINT(sv); /* External data cannot be trusted */ |
|
0 |
0 |
SvTAINT(sv); /* External data cannot be trusted */ |
5423
|
10 |
3522 |
if (cname && len == 13 && strEQc(cname, "CGITempFile") |
|
0 |
10 |
if (cname && len == 13 && strEQc(cname, "CGITempFile") |
|
0 |
0 |
if (cname && len == 13 && strEQc(cname, "CGITempFile") |
5424
|
0 |
0 |
&& strEQc(SvPVX(sv), "mt-config.cgi")) { |
5434
|
28 |
3504 |
if (isutf8) { |
5469
|
3 |
1 |
RLEN(len); |
|
3 |
0 |
RLEN(len); |
|
0 |
3 |
RLEN(len); |
|
0 |
1 |
RLEN(len); |
|
1 |
3 |
RLEN(len); |
5488
|
3408 |
121 |
GETMARK(len); |
|
3406 |
2 |
GETMARK(len); |
|
2 |
119 |
GETMARK(len); |
5505
|
20 |
0 |
GETMARK(len); |
|
20 |
0 |
GETMARK(len); |
|
0 |
0 |
GETMARK(len); |
5521
|
6 |
2 |
RLEN(len); |
|
6 |
0 |
RLEN(len); |
|
1 |
5 |
RLEN(len); |
|
0 |
2 |
RLEN(len); |
|
3 |
5 |
RLEN(len); |
5542
|
1 |
0 |
GETMARK(len); |
|
1 |
0 |
GETMARK(len); |
|
0 |
0 |
GETMARK(len); |
5545
|
1 |
0 |
READ(s, len); |
|
1 |
0 |
READ(s, len); |
|
0 |
0 |
READ(s, len); |
5547
|
0 |
1 |
if (!sv) |
5573
|
1 |
0 |
RLEN(len); |
|
1 |
0 |
RLEN(len); |
|
0 |
1 |
RLEN(len); |
|
0 |
0 |
RLEN(len); |
|
0 |
1 |
RLEN(len); |
5578
|
1 |
0 |
SAFEPVREAD(s, len, s); |
|
1 |
0 |
SAFEPVREAD(s, len, s); |
|
0 |
0 |
SAFEPVREAD(s, len, s); |
5581
|
0 |
1 |
if (!sv) { |
5613
|
58 |
27 |
READ(&iv, sizeof(iv)); |
|
58 |
0 |
READ(&iv, sizeof(iv)); |
|
0 |
27 |
READ(&iv, sizeof(iv)); |
5615
|
0 |
85 |
stash = cname ? gv_stashpv(cname, GV_ADD) : 0; |
5616
|
0 |
85 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
85 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
5638
|
0 |
0 |
GETMARK(type); |
|
0 |
0 |
GETMARK(type); |
|
0 |
0 |
GETMARK(type); |
5641
|
0 |
0 |
READ(&len, 8); |
|
0 |
0 |
READ(&len, 8); |
|
0 |
0 |
READ(&len, 8); |
5700
|
13 |
13 |
READ_I32(iv); |
|
13 |
0 |
READ_I32(iv); |
|
0 |
13 |
READ_I32(iv); |
|
0 |
13 |
READ_I32(iv); |
5708
|
0 |
26 |
stash = cname ? gv_stashpv(cname, GV_ADD) : 0; |
5709
|
0 |
26 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
26 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
5730
|
8 |
8 |
READ(&nv, sizeof(nv)); |
|
8 |
0 |
READ(&nv, sizeof(nv)); |
|
0 |
8 |
READ(&nv, sizeof(nv)); |
5732
|
0 |
16 |
stash = cname ? gv_stashpv(cname, GV_ADD) : 0; |
5733
|
0 |
16 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
16 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
5756
|
124 |
35 |
GETMARK(siv); |
|
124 |
0 |
GETMARK(siv); |
|
0 |
35 |
GETMARK(siv); |
5760
|
0 |
159 |
stash = cname ? gv_stashpv(cname, GV_ADD) : 0; |
5761
|
0 |
159 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
159 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
|
0 |
0 |
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ |
5782
|
2 |
17 |
stash = cname ? gv_stashpv(cname, GV_ADD) : 0; |
5783
|
0 |
19 |
SEEN_NN(sv, stash, 0); |
|
2 |
17 |
SEEN_NN(sv, stash, 0); |
|
2 |
0 |
SEEN_NN(sv, stash, 0); |
|
0 |
2 |
SEEN_NN(sv, stash, 0); |
|
0 |
0 |
SEEN_NN(sv, stash, 0); |
|
0 |
0 |
SEEN_NN(sv, stash, 0); |
|
0 |
0 |
SEEN_NN(sv, stash, 0); |
|
0 |
0 |
SEEN_NN(sv, stash, 0); |
|
0 |
0 |
SEEN_NN(sv, stash, 0); |
|
0 |
0 |
SEEN_NN(sv, stash, 0); |
|
0 |
0 |
SEEN_NN(sv, stash, 0); |
|
0 |
0 |
SEEN_NN(sv, stash, 0); |
|
0 |
0 |
SEEN_NN(sv, stash, 0); |
5803
|
120 |
5015 |
if (cxt->where_is_undef == -1) { |
5806
|
0 |
5135 |
stash = cname ? gv_stashpv(cname, GV_ADD) : 0; |
5807
|
0 |
5135 |
SEEN_NN(sv, stash, 1); |
|
0 |
5135 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
5823
|
0 |
3 |
stash = cname ? gv_stashpv(cname, GV_ADD) : 0; |
5824
|
0 |
3 |
SEEN_NN(sv, stash, 1); |
|
0 |
3 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
5840
|
0 |
3 |
stash = cname ? gv_stashpv(cname, GV_ADD) : 0; |
5841
|
0 |
3 |
SEEN_NN(sv, stash, 1); |
|
0 |
3 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
|
0 |
0 |
SEEN_NN(sv, stash, 1); |
5858
|
0 |
0 |
SEEN_NN(&PL_sv_undef, cname, 1); |
|
0 |
0 |
SEEN_NN(&PL_sv_undef, cname, 1); |
|
0 |
0 |
SEEN_NN(&PL_sv_undef, cname, 1); |
|
0 |
0 |
SEEN_NN(&PL_sv_undef, cname, 1); |
|
0 |
0 |
SEEN_NN(&PL_sv_undef, cname, 1); |
|
0 |
0 |
SEEN_NN(&PL_sv_undef, cname, 1); |
|
0 |
0 |
SEEN_NN(&PL_sv_undef, cname, 1); |
|
0 |
0 |
SEEN_NN(&PL_sv_undef, cname, 1); |
|
0 |
0 |
SEEN_NN(&PL_sv_undef, cname, 1); |
|
0 |
0 |
SEEN_NN(&PL_sv_undef, cname, 1); |
|
0 |
0 |
SEEN_NN(&PL_sv_undef, cname, 1); |
|
0 |
0 |
SEEN_NN(&PL_sv_undef, cname, 1); |
|
0 |
0 |
SEEN_NN(&PL_sv_undef, cname, 1); |
5886
|
147 |
18 |
RLEN(len); |
|
147 |
0 |
RLEN(len); |
|
63 |
84 |
RLEN(len); |
|
0 |
18 |
RLEN(len); |
|
16 |
149 |
RLEN(len); |
5889
|
42 |
123 |
stash = cname ? gv_stashpv(cname, GV_ADD) : 0; |
5890
|
0 |
165 |
SEEN_NN(av, stash, 0); /* Will return if array not allocated nicely */ |
|
42 |
123 |
SEEN_NN(av, stash, 0); /* Will return if array not allocated nicely */ |
|
42 |
0 |
SEEN_NN(av, stash, 0); /* Will return if array not allocated nicely */ |
|
17 |
25 |
SEEN_NN(av, stash, 0); /* Will return if array not allocated nicely */ |
|
17 |
0 |
SEEN_NN(av, stash, 0); /* Will return if array not allocated nicely */ |
|
17 |
0 |
SEEN_NN(av, stash, 0); /* Will return if array not allocated nicely */ |
|
0 |
17 |
SEEN_NN(av, stash, 0); /* Will return if array not allocated nicely */ |
|
0 |
0 |
SEEN_NN(av, stash, 0); /* Will return if array not allocated nicely */ |
|
17 |
0 |
SEEN_NN(av, stash, 0); /* Will return if array not allocated nicely */ |
|
0 |
17 |
SEEN_NN(av, stash, 0); /* Will return if array not allocated nicely */ |
|
17 |
0 |
SEEN_NN(av, stash, 0); /* Will return if array not allocated nicely */ |
|
0 |
17 |
SEEN_NN(av, stash, 0); /* Will return if array not allocated nicely */ |
|
17 |
0 |
SEEN_NN(av, stash, 0); /* Will return if array not allocated nicely */ |
5891
|
132 |
33 |
if (len) |
5900
|
2139 |
131 |
for (i = 0; i < len; i++) { |
5903
|
0 |
2138 |
if (!sv) |
5905
|
2 |
2136 |
if (sv == &PL_sv_undef) { |
5909
|
0 |
2136 |
if (sv == &PL_sv_placeholder) |
5911
|
0 |
2136 |
if (av_store(av, i, sv) == 0) |
5914
|
1 |
130 |
if (seen_null) av_fill(av, len-1); |
5938
|
0 |
0 |
stash = cname ? gv_stashpv(cname, GV_ADD) : 0; |
5939
|
0 |
0 |
SEEN_NN(av, stash, 0); /* Will return if array not allocated nicely */ |
|
0 |
0 |
SEEN_NN(av, stash, 0); /* Will return if array not allocated nicely */ |
|
0 |
0 |
SEEN_NN(av, stash, 0); /* Will return if array not allocated nicely */ |
|
0 |
0 |
SEEN_NN(av, stash, 0); /* Will return if array not allocated nicely */ |
|
0 |
0 |
SEEN_NN(av, stash, 0); /* Will return if array not allocated nicely */ |
|
0 |
0 |
SEEN_NN(av, stash, 0); /* Will return if array not allocated nicely */ |
|
0 |
0 |
SEEN_NN(av, stash, 0); /* Will return if array not allocated nicely */ |
|
0 |
0 |
SEEN_NN(av, stash, 0); /* Will return if array not allocated nicely */ |
|
0 |
0 |
SEEN_NN(av, stash, 0); /* Will return if array not allocated nicely */ |
|
0 |
0 |
SEEN_NN(av, stash, 0); /* Will return if array not allocated nicely */ |
|
0 |
0 |
SEEN_NN(av, stash, 0); /* Will return if array not allocated nicely */ |
|
0 |
0 |
SEEN_NN(av, stash, 0); /* Will return if array not allocated nicely */ |
|
0 |
0 |
SEEN_NN(av, stash, 0); /* Will return if array not allocated nicely */ |
5947
|
0 |
0 |
for (i = 0; i < len; i++) { |
5950
|
0 |
0 |
if (!sv) |
5952
|
0 |
0 |
if (sv == &PL_sv_undef) { |
5956
|
0 |
0 |
if (sv == &PL_sv_placeholder) |
5958
|
0 |
0 |
if (av_store(av, i, sv) == 0) |
5961
|
0 |
0 |
if (seen_null) av_fill(av, len-1); |
6004
|
0 |
0 |
stash = cname ? gv_stashpv(cname, GV_ADD) : 0; |
6005
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
6006
|
0 |
0 |
if (len == 0) |
6015
|
0 |
0 |
for (i = 0; i < len; i++) { |
6022
|
0 |
0 |
if (!sv) |
6032
|
0 |
0 |
RLEN(size); /* Get key size */ |
|
0 |
0 |
RLEN(size); /* Get key size */ |
|
0 |
0 |
RLEN(size); /* Get key size */ |
|
0 |
0 |
RLEN(size); /* Get key size */ |
|
0 |
0 |
RLEN(size); /* Get key size */ |
6033
|
0 |
0 |
KBUFCHK((STRLEN)size); /* Grow hash key read pool if needed */ |
|
0 |
0 |
KBUFCHK((STRLEN)size); /* Grow hash key read pool if needed */ |
6034
|
0 |
0 |
if (size) |
6035
|
0 |
0 |
READ(kbuf, size); |
|
0 |
0 |
READ(kbuf, size); |
|
0 |
0 |
READ(kbuf, size); |
6043
|
0 |
0 |
if (hv_store(hv, kbuf, (U32) size, sv, 0) == 0) |
6078
|
177 |
23 |
RLEN(len); |
|
177 |
0 |
RLEN(len); |
|
49 |
128 |
RLEN(len); |
|
0 |
23 |
RLEN(len); |
|
16 |
184 |
RLEN(len); |
6081
|
24 |
176 |
stash = cname ? gv_stashpv(cname, GV_ADD) : 0; |
6082
|
0 |
200 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
24 |
176 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
24 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
24 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
6083
|
13 |
187 |
if (len == 0) |
6092
|
1756 |
186 |
for (i = 0; i < len; i++) { |
6099
|
0 |
1755 |
if (!sv) |
6109
|
1717 |
38 |
RLEN(size); /* Get key size */ |
|
1717 |
0 |
RLEN(size); /* Get key size */ |
|
426 |
1291 |
RLEN(size); /* Get key size */ |
|
0 |
38 |
RLEN(size); /* Get key size */ |
|
30 |
1725 |
RLEN(size); /* Get key size */ |
6110
|
0 |
1755 |
KBUFCHK((STRLEN)size); /* Grow hash key read pool if needed */ |
|
0 |
0 |
KBUFCHK((STRLEN)size); /* Grow hash key read pool if needed */ |
6111
|
1751 |
4 |
if (size) |
6112
|
1713 |
38 |
READ(kbuf, size); |
|
1713 |
0 |
READ(kbuf, size); |
|
0 |
38 |
READ(kbuf, size); |
6120
|
0 |
1755 |
if (hv_store(hv, kbuf, (U32) size, sv, 0) == 0) |
6151
|
191 |
53 |
GETMARK(hash_flags); |
|
189 |
2 |
GETMARK(hash_flags); |
|
2 |
51 |
GETMARK(hash_flags); |
6168
|
189 |
51 |
RLEN(len); |
|
181 |
8 |
RLEN(len); |
|
37 |
144 |
RLEN(len); |
|
8 |
43 |
RLEN(len); |
|
59 |
165 |
RLEN(len); |
6171
|
6 |
218 |
stash = cname ? gv_stashpv(cname, GV_ADD) : 0; |
6172
|
0 |
224 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
6 |
218 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
6 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
6 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
|
0 |
0 |
SEEN_NN(hv, stash, 0); /* Will return if table not allocated properly */ |
6173
|
0 |
224 |
if (len == 0) |
6182
|
5298 |
159 |
for (i = 0; i < len; i++) { |
6191
|
28 |
5269 |
if (!sv) |
6194
|
5229 |
40 |
GETMARK(flags); |
|
5227 |
2 |
GETMARK(flags); |
|
2 |
38 |
GETMARK(flags); |
6196
|
5166 |
99 |
if ((hash_flags & SHV_RESTRICTED) && (flags & SHV_K_LOCKED)) |
|
5150 |
16 |
if ((hash_flags & SHV_RESTRICTED) && (flags & SHV_K_LOCKED)) |
6200
|
0 |
5265 |
if (flags & SHV_K_ISSV) { |
6208
|
0 |
0 |
if (!keysv) |
6211
|
0 |
0 |
if (!hv_store_ent(hv, keysv, sv, 0)) |
6221
|
5130 |
135 |
if (flags & SHV_K_PLACEHOLDER) { |
6226
|
20 |
5245 |
if (flags & SHV_K_UTF8) { |
6239
|
12 |
5253 |
if (flags & SHV_K_WASUTF8) |
6243
|
5227 |
38 |
RLEN(size); /* Get key size */ |
|
5219 |
8 |
RLEN(size); /* Get key size */ |
|
1294 |
3925 |
RLEN(size); /* Get key size */ |
|
8 |
30 |
RLEN(size); /* Get key size */ |
|
54 |
5195 |
RLEN(size); /* Get key size */ |
6244
|
0 |
5249 |
KBUFCHK((STRLEN)size);/* Grow hash key read pool if needed */ |
|
0 |
0 |
KBUFCHK((STRLEN)size);/* Grow hash key read pool if needed */ |
6245
|
5249 |
0 |
if (size) |
6246
|
5219 |
30 |
READ(kbuf, size); |
|
5211 |
8 |
READ(kbuf, size); |
|
8 |
22 |
READ(kbuf, size); |
6256
|
0 |
5233 |
if (hv_store_flags(hv, kbuf, size, sv, 0, store_flags) == 0) |
6266
|
129 |
30 |
if (hash_flags & SHV_RESTRICTED) |
6303
|
5 |
58 |
stash = cname ? gv_stashpv(cname, GV_ADD) : 0; |
6304
|
0 |
63 |
SEEN_NN(sv, stash, 0); |
|
5 |
58 |
SEEN_NN(sv, stash, 0); |
|
5 |
0 |
SEEN_NN(sv, stash, 0); |
|
0 |
5 |
SEEN_NN(sv, stash, 0); |
|
0 |
0 |
SEEN_NN(sv, stash, 0); |
|
0 |
0 |
SEEN_NN(sv, stash, 0); |
|
0 |
0 |
SEEN_NN(sv, stash, 0); |
|
0 |
0 |
SEEN_NN(sv, stash, 0); |
|
0 |
0 |
SEEN_NN(sv, stash, 0); |
|
0 |
0 |
SEEN_NN(sv, stash, 0); |
|
0 |
0 |
SEEN_NN(sv, stash, 0); |
|
0 |
0 |
SEEN_NN(sv, stash, 0); |
|
0 |
0 |
SEEN_NN(sv, stash, 0); |
6311
|
48 |
15 |
GETMARK(type); |
|
48 |
0 |
GETMARK(type); |
|
0 |
15 |
GETMARK(type); |
6329
|
1 |
62 |
if (!text) { |
6338
|
7 |
55 |
if (SvUTF8(text)) |
6340
|
62 |
0 |
sv_catpv(sub, SvPV_nolen(text)); /* XXX no sv_catsv! */ |
6347
|
37 |
25 |
if (cxt->eval == NULL) { |
6351
|
62 |
0 |
if (!SvTRUE(cxt->eval)) { |
|
0 |
62 |
if (!SvTRUE(cxt->eval)) { |
|
0 |
0 |
if (!SvTRUE(cxt->eval)) { |
|
0 |
62 |
if (!SvTRUE(cxt->eval)) { |
|
0 |
0 |
if (!SvTRUE(cxt->eval)) { |
|
0 |
0 |
if (!SvTRUE(cxt->eval)) { |
|
0 |
62 |
if (!SvTRUE(cxt->eval)) { |
|
0 |
0 |
if (!SvTRUE(cxt->eval)) { |
|
0 |
0 |
if (!SvTRUE(cxt->eval)) { |
|
0 |
0 |
if (!SvTRUE(cxt->eval)) { |
|
0 |
0 |
if (!SvTRUE(cxt->eval)) { |
|
0 |
0 |
if (!SvTRUE(cxt->eval)) { |
|
51 |
11 |
if (!SvTRUE(cxt->eval)) { |
|
51 |
0 |
if (!SvTRUE(cxt->eval)) { |
|
7 |
44 |
if (!SvTRUE(cxt->eval)) { |
|
0 |
7 |
if (!SvTRUE(cxt->eval)) { |
|
0 |
0 |
if (!SvTRUE(cxt->eval)) { |
|
7 |
44 |
if (!SvTRUE(cxt->eval)) { |
|
0 |
11 |
if (!SvTRUE(cxt->eval)) { |
6352
|
7 |
0 |
if (cxt->forgive_me == 0 || |
|
7 |
0 |
if (cxt->forgive_me == 0 || |
6353
|
2 |
5 |
(cxt->forgive_me < 0 && |
6354
|
2 |
0 |
!(cxt->forgive_me = SvTRUE |
|
0 |
2 |
!(cxt->forgive_me = SvTRUE |
|
0 |
0 |
!(cxt->forgive_me = SvTRUE |
|
0 |
0 |
!(cxt->forgive_me = SvTRUE |
|
0 |
0 |
!(cxt->forgive_me = SvTRUE |
|
0 |
0 |
!(cxt->forgive_me = SvTRUE |
|
0 |
0 |
!(cxt->forgive_me = SvTRUE |
|
5 |
0 |
!(cxt->forgive_me = SvTRUE |
|
0 |
5 |
!(cxt->forgive_me = SvTRUE |
|
0 |
0 |
!(cxt->forgive_me = SvTRUE |
|
0 |
0 |
!(cxt->forgive_me = SvTRUE |
|
5 |
0 |
!(cxt->forgive_me = SvTRUE |
|
0 |
0 |
!(cxt->forgive_me = SvTRUE |
6371
|
11 |
44 |
if (SvROK(cxt->eval) && SvTYPE(SvRV(cxt->eval)) == SVt_PVCV) { |
|
11 |
0 |
if (SvROK(cxt->eval) && SvTYPE(SvRV(cxt->eval)) == SVt_PVCV) { |
6372
|
0 |
11 |
PUSHMARK(sp); |
6373
|
0 |
11 |
XPUSHs(sv_2mortal(newSVsv(sub))); |
6376
|
0 |
11 |
if (count != 1) |
6385
|
55 |
0 |
if (SvTRUE(errsv)) { |
|
0 |
55 |
if (SvTRUE(errsv)) { |
|
0 |
55 |
if (SvTRUE(errsv)) { |
|
0 |
0 |
if (SvTRUE(errsv)) { |
|
0 |
0 |
if (SvTRUE(errsv)) { |
|
55 |
0 |
if (SvTRUE(errsv)) { |
|
55 |
0 |
if (SvTRUE(errsv)) { |
|
53 |
2 |
if (SvTRUE(errsv)) { |
|
0 |
53 |
if (SvTRUE(errsv)) { |
|
0 |
0 |
if (SvTRUE(errsv)) { |
|
0 |
0 |
if (SvTRUE(errsv)) { |
|
0 |
0 |
if (SvTRUE(errsv)) { |
|
0 |
0 |
if (SvTRUE(errsv)) { |
|
0 |
0 |
if (SvTRUE(errsv)) { |
|
0 |
0 |
if (SvTRUE(errsv)) { |
|
2 |
53 |
if (SvTRUE(errsv)) { |
6386
|
2 |
0 |
CROAK(("code %s caused an error: %s", |
|
2 |
0 |
CROAK(("code %s caused an error: %s", |
6390
|
53 |
0 |
if (cv && SvROK(cv) && SvTYPE(SvRV(cv)) == SVt_PVCV) { |
|
53 |
0 |
if (cv && SvROK(cv) && SvTYPE(SvRV(cv)) == SVt_PVCV) { |
|
53 |
0 |
if (cv && SvROK(cv) && SvTYPE(SvRV(cv)) == SVt_PVCV) { |
6393
|
0 |
0 |
CROAK(("code %s did not evaluate to a subroutine reference\n", |
6400
|
53 |
0 |
FREETMPS; |
6434
|
0 |
1 |
RLEN(len); |
|
0 |
0 |
RLEN(len); |
|
0 |
0 |
RLEN(len); |
|
0 |
1 |
RLEN(len); |
|
1 |
0 |
RLEN(len); |
6437
|
0 |
1 |
SEEN0_NN(av, 0); /* Will return if array not allocated nicely */ |
6438
|
1 |
0 |
if (len) |
6447
|
1 |
0 |
for (i = 0; i < len; i++) { |
6448
|
0 |
1 |
GETMARK(c); |
|
0 |
0 |
GETMARK(c); |
|
0 |
1 |
GETMARK(c); |
6449
|
0 |
1 |
if (c == SX_IT_UNDEF) { |
6453
|
1 |
0 |
if (c != SX_ITEM) |
6457
|
0 |
0 |
if (!sv) |
6459
|
0 |
0 |
if (av_store(av, i, sv) == 0) |
6497
|
0 |
1 |
RLEN(len); |
|
0 |
0 |
RLEN(len); |
|
0 |
0 |
RLEN(len); |
|
0 |
1 |
RLEN(len); |
|
1 |
0 |
RLEN(len); |
6500
|
0 |
1 |
SEEN0_NN(hv, 0); /* Will return if table not allocated properly */ |
6501
|
0 |
1 |
if (len == 0) |
6510
|
1 |
0 |
for (i = 0; i < len; i++) { |
6515
|
0 |
1 |
GETMARK(c); |
|
0 |
0 |
GETMARK(c); |
|
0 |
1 |
GETMARK(c); |
6516
|
0 |
1 |
if (c == SX_VL_UNDEF) { |
6523
|
0 |
0 |
if (!sv_h_undef) |
6526
|
0 |
1 |
} else if (c == SX_VALUE) { |
6529
|
0 |
0 |
if (!sv) |
6541
|
0 |
0 |
GETMARK(c); |
|
0 |
0 |
GETMARK(c); |
|
0 |
0 |
GETMARK(c); |
6542
|
0 |
0 |
if (c != SX_KEY) |
6544
|
0 |
0 |
RLEN(size); /* Get key size */ |
|
0 |
0 |
RLEN(size); /* Get key size */ |
|
0 |
0 |
RLEN(size); /* Get key size */ |
|
0 |
0 |
RLEN(size); /* Get key size */ |
|
0 |
0 |
RLEN(size); /* Get key size */ |
6545
|
0 |
0 |
KBUFCHK((STRLEN)size); /* Grow hash key read pool if needed */ |
|
0 |
0 |
KBUFCHK((STRLEN)size); /* Grow hash key read pool if needed */ |
6546
|
0 |
0 |
if (size) |
6547
|
0 |
0 |
READ(kbuf, size); |
|
0 |
0 |
READ(kbuf, size); |
|
0 |
0 |
READ(kbuf, size); |
6555
|
0 |
0 |
if (hv_store(hv, kbuf, (U32) size, sv, 0) == 0) |
6605
|
195 |
466 |
if (cxt->fio) { |
6611
|
0 |
195 |
READ(buf, (SSize_t)(len)); /* Not null-terminated */ |
|
0 |
0 |
READ(buf, (SSize_t)(len)); /* Not null-terminated */ |
|
11 |
184 |
READ(buf, (SSize_t)(len)); /* Not null-terminated */ |
6616
|
2 |
182 |
if (memNE(buf, magicstr, len)) { |
6625
|
0 |
2 |
READ(current + 1, (SSize_t)(old_len - len)); |
|
0 |
0 |
READ(current + 1, (SSize_t)(old_len - len)); |
|
0 |
2 |
READ(current + 1, (SSize_t)(old_len - len)); |
6627
|
2 |
0 |
if (memNE(buf, old_magicstr, old_len)) |
6634
|
466 |
0 |
GETMARK(use_network_order); |
|
464 |
2 |
GETMARK(use_network_order); |
|
0 |
0 |
GETMARK(use_network_order); |
6642
|
0 |
646 |
if (old_magic && use_network_order > 1) { |
|
0 |
0 |
if (old_magic && use_network_order > 1) { |
6649
|
644 |
2 |
cxt->retrieve_vtbl = (SV*(**)(pTHX_ stcxt_t *cxt, const char *cname)) (version_major > 0 ? sv_retrieve : sv_old_retrieve); |
6659
|
643 |
3 |
if (version_major > 1) |
6660
|
463 |
180 |
GETMARK(version_minor); |
|
461 |
2 |
GETMARK(version_minor); |
|
2 |
178 |
GETMARK(version_minor); |
6674
|
632 |
10 |
if ( |
6675
|
629 |
3 |
version_major > STORABLE_BIN_MAJOR || |
6676
|
16 |
613 |
(version_major == STORABLE_BIN_MAJOR && |
6683
|
16 |
10 |
if (version_major == STORABLE_BIN_MAJOR) { |
6686
|
16 |
0 |
if (cxt->accept_future_minor < 0) |
6688
|
0 |
0 |
= (SvTRUE(get_sv("Storable::accept_future_minor", |
|
0 |
0 |
= (SvTRUE(get_sv("Storable::accept_future_minor", |
|
0 |
0 |
= (SvTRUE(get_sv("Storable::accept_future_minor", |
|
0 |
0 |
= (SvTRUE(get_sv("Storable::accept_future_minor", |
|
0 |
0 |
= (SvTRUE(get_sv("Storable::accept_future_minor", |
|
0 |
0 |
= (SvTRUE(get_sv("Storable::accept_future_minor", |
|
0 |
0 |
= (SvTRUE(get_sv("Storable::accept_future_minor", |
|
16 |
0 |
= (SvTRUE(get_sv("Storable::accept_future_minor", |
|
8 |
8 |
= (SvTRUE(get_sv("Storable::accept_future_minor", |
|
0 |
8 |
= (SvTRUE(get_sv("Storable::accept_future_minor", |
|
0 |
0 |
= (SvTRUE(get_sv("Storable::accept_future_minor", |
|
8 |
8 |
= (SvTRUE(get_sv("Storable::accept_future_minor", |
|
0 |
0 |
= (SvTRUE(get_sv("Storable::accept_future_minor", |
6691
|
8 |
8 |
if (cxt->accept_future_minor == 1) |
6694
|
18 |
8 |
if (croak_now) { |
6706
|
167 |
457 |
if ((cxt->netorder = (use_network_order & 0x1))) /* Extra () for -Wall */ |
6710
|
457 |
0 |
use_NV_size = version_major >= 2 && version_minor >= 2; |
|
457 |
0 |
use_NV_size = version_major >= 2 && version_minor >= 2; |
6712
|
457 |
0 |
if (version_major >= 0) { |
6713
|
358 |
99 |
GETMARK(c); |
|
357 |
1 |
GETMARK(c); |
|
1 |
98 |
GETMARK(c); |
6719
|
357 |
98 |
READ(buf, length); /* Not null-terminated */ |
|
345 |
12 |
READ(buf, length); /* Not null-terminated */ |
|
12 |
86 |
READ(buf, length); /* Not null-terminated */ |
6733
|
431 |
0 |
if ((c != (sizeof (byteorderstr) - 1)) |
6734
|
2 |
429 |
|| memNE(buf, byteorderstr, c)) |
6741
|
2 |
427 |
if ((int) *current++ != sizeof(int)) |
6745
|
2 |
425 |
if ((int) *current++ != sizeof(long)) |
6749
|
2 |
423 |
if ((int) *current != sizeof(char *)) |
6752
|
423 |
0 |
if (use_NV_size) { |
6754
|
2 |
421 |
if ((int) *++current != sizeof(NV)) |
6786
|
2 |
10420 |
if (cxt->hseen) { /* Retrieving old binary */ |
6788
|
2 |
0 |
if (cxt->netorder) { |
6790
|
0 |
2 |
READ(&nettag, sizeof(I32)); /* Ordered sequence of I32 */ |
|
0 |
0 |
READ(&nettag, sizeof(I32)); /* Ordered sequence of I32 */ |
|
0 |
2 |
READ(&nettag, sizeof(I32)); /* Ordered sequence of I32 */ |
6793
|
0 |
0 |
READ(&tag, sizeof(stag_t)); /* Original address of the SV */ |
|
0 |
0 |
READ(&tag, sizeof(stag_t)); /* Original address of the SV */ |
|
0 |
0 |
READ(&tag, sizeof(stag_t)); /* Original address of the SV */ |
6795
|
0 |
2 |
GETMARK(type); |
|
0 |
0 |
GETMARK(type); |
|
0 |
2 |
GETMARK(type); |
6796
|
0 |
2 |
if (type == SX_OBJECT) { |
6799
|
0 |
0 |
if (!svh) |
6802
|
0 |
0 |
tagn = SvIV(*svh); /* Mapped tag number computed earlier below */ |
6809
|
0 |
0 |
if (!svh) |
6826
|
0 |
2 |
if (!hv_store(cxt->hseen, (char *) &tag, sizeof(tag), |
6837
|
9996 |
424 |
GETMARK(type); |
|
9992 |
4 |
GETMARK(type); |
|
4 |
420 |
GETMARK(type); |
6845
|
99 |
10313 |
if (type == SX_OBJECT) { |
6847
|
77 |
22 |
READ_I32(tag); |
|
77 |
0 |
READ_I32(tag); |
|
27 |
50 |
READ_I32(tag); |
|
0 |
22 |
READ_I32(tag); |
6850
|
0 |
99 |
if (!svh) |
6857
|
12 |
10301 |
} else if (type >= SX_ERROR && cxt->ver_minor > STORABLE_BIN_MINOR) { |
|
4 |
8 |
} else if (type >= SX_ERROR && cxt->ver_minor > STORABLE_BIN_MINOR) { |
6858
|
4 |
0 |
if (cxt->accept_future_minor < 0) |
6860
|
0 |
0 |
= (SvTRUE(get_sv("Storable::accept_future_minor", |
|
0 |
0 |
= (SvTRUE(get_sv("Storable::accept_future_minor", |
|
0 |
0 |
= (SvTRUE(get_sv("Storable::accept_future_minor", |
|
0 |
0 |
= (SvTRUE(get_sv("Storable::accept_future_minor", |
|
0 |
0 |
= (SvTRUE(get_sv("Storable::accept_future_minor", |
|
0 |
0 |
= (SvTRUE(get_sv("Storable::accept_future_minor", |
|
0 |
0 |
= (SvTRUE(get_sv("Storable::accept_future_minor", |
|
4 |
0 |
= (SvTRUE(get_sv("Storable::accept_future_minor", |
|
0 |
4 |
= (SvTRUE(get_sv("Storable::accept_future_minor", |
|
0 |
0 |
= (SvTRUE(get_sv("Storable::accept_future_minor", |
|
0 |
0 |
= (SvTRUE(get_sv("Storable::accept_future_minor", |
|
4 |
0 |
= (SvTRUE(get_sv("Storable::accept_future_minor", |
|
0 |
0 |
= (SvTRUE(get_sv("Storable::accept_future_minor", |
6863
|
4 |
0 |
if (cxt->accept_future_minor == 1) { |
6877
|
10303 |
8 |
sv = RETRIEVE(cxt, type)(aTHX_ cxt, cname); |
6878
|
109 |
10172 |
if (!sv) |
6893
|
38 |
10134 |
if (cxt->ver_major < 2) { |
6894
|
0 |
45 |
while ((type = GETCHAR()) != SX_STORED) { |
|
45 |
0 |
while ((type = GETCHAR()) != SX_STORED) { |
|
7 |
38 |
while ((type = GETCHAR()) != SX_STORED) { |
6899
|
7 |
0 |
GETMARK(len); /* Length coded on a single char */ |
|
7 |
0 |
GETMARK(len); /* Length coded on a single char */ |
|
0 |
0 |
GETMARK(len); /* Length coded on a single char */ |
6902
|
0 |
0 |
RLEN(len); |
|
0 |
0 |
RLEN(len); |
|
0 |
0 |
RLEN(len); |
|
0 |
0 |
RLEN(len); |
|
0 |
0 |
RLEN(len); |
6908
|
0 |
7 |
KBUFCHK((STRLEN)len); /* Grow buffer as necessary */ |
|
0 |
0 |
KBUFCHK((STRLEN)len); /* Grow buffer as necessary */ |
6909
|
7 |
0 |
if (len) |
6910
|
7 |
0 |
READ(kbuf, len); |
|
7 |
0 |
READ(kbuf, len); |
|
0 |
0 |
READ(kbuf, len); |
6913
|
7 |
0 |
BLESS(sv, stash); |
|
0 |
7 |
BLESS(sv, stash); |
|
0 |
0 |
BLESS(sv, stash); |
|
0 |
0 |
BLESS(sv, stash); |
|
0 |
0 |
BLESS(sv, stash); |
|
0 |
0 |
BLESS(sv, stash); |
|
0 |
0 |
BLESS(sv, stash); |
|
0 |
0 |
BLESS(sv, stash); |
|
0 |
0 |
BLESS(sv, stash); |
|
0 |
0 |
BLESS(sv, stash); |
|
0 |
0 |
BLESS(sv, stash); |
6964
|
89 |
573 |
if (cxt->s_dirty) |
6972
|
0 |
662 |
if (cxt->entry) { |
6990
|
27 |
635 |
KBUFINIT(); /* Allocate hash key reading pool once */ |
6992
|
467 |
195 |
if (!f && in) { |
|
312 |
155 |
if (!f && in) { |
6994
|
2 |
310 |
if (SvUTF8(in)) { |
6996
|
2 |
0 |
const char *orig = SvPV(in, length); |
7012
|
1 |
1 |
if (is_utf8) { |
7015
|
1 |
0 |
if (asbytes != orig) { |
7022
|
1 |
0 |
SvUPGRADE(in, SVt_PV); |
7030
|
0 |
311 |
MBUF_SAVE_AND_LOAD(in); |
|
311 |
0 |
MBUF_SAVE_AND_LOAD(in); |
7043
|
43 |
588 |
if (!magic_check(aTHX_ cxt)) |
7044
|
26 |
17 |
CROAK(("Magic number checking on storable %s failed", |
7060
|
434 |
154 |
is_tainted = f ? 1 : (in ? SvTAINTED(in) : cxt->s_tainted); |
|
279 |
155 |
is_tainted = f ? 1 : (in ? SvTAINTED(in) : cxt->s_tainted); |
|
0 |
279 |
is_tainted = f ? 1 : (in ? SvTAINTED(in) : cxt->s_tainted); |
|
0 |
0 |
is_tainted = f ? 1 : (in ? SvTAINTED(in) : cxt->s_tainted); |
7072
|
414 |
145 |
if (!f && in) |
|
259 |
155 |
if (!f && in) |
7082
|
0 |
559 |
if (cxt->prev) /* This context was stacked */ |
7089
|
89 |
470 |
if (!sv) { |
7121
|
0 |
470 |
if (pre_06_fmt) { /* Was not handling overloading by then */ |
7124
|
0 |
0 |
if (sv_type(aTHX_ sv) == svis_REF && (rv = SvRV(sv)) && SvOBJECT(rv)) { |
|
0 |
0 |
if (sv_type(aTHX_ sv) == svis_REF && (rv = SvRV(sv)) && SvOBJECT(rv)) { |
|
0 |
0 |
if (sv_type(aTHX_ sv) == svis_REF && (rv = SvRV(sv)) && SvOBJECT(rv)) { |
7147
|
35 |
435 |
if (SvOBJECT(sv)) { |
7150
|
35 |
0 |
if (stash && Gv_AMG(stash)) { |
|
35 |
0 |
if (stash && Gv_AMG(stash)) { |
|
35 |
0 |
if (stash && Gv_AMG(stash)) { |
|
0 |
35 |
if (stash && Gv_AMG(stash)) { |
|
0 |
0 |
if (stash && Gv_AMG(stash)) { |
|
35 |
0 |
if (stash && Gv_AMG(stash)) { |
|
0 |
35 |
if (stash && Gv_AMG(stash)) { |
|
35 |
0 |
if (stash && Gv_AMG(stash)) { |
|
33 |
2 |
if (stash && Gv_AMG(stash)) { |
|
2 |
33 |
if (stash && Gv_AMG(stash)) { |
7213
|
1 |
154 |
if (cxt->s_dirty) |
7220
|
2 |
153 |
if ((SvTYPE(sv) == SVt_PVLV |
7224
|
2 |
0 |
) && (SvFLAGS(sv) & (SVs_GMG|SVs_SMG|SVs_RMG)) == |
7225
|
2 |
0 |
(SVs_GMG|SVs_SMG|SVs_RMG) && |
7235
|
0 |
155 |
if (!do_store(aTHX_ (PerlIO*) 0, sv, ST_CLONE, FALSE, (SV**) 0)) |
7256
|
0 |
155 |
MBUF_INIT(size); |
|
155 |
0 |
MBUF_INIT(size); |
7266
|
2 |
153 |
cxt->s_tainted = SvTAINTED(sv); |
|
0 |
2 |
cxt->s_tainted = SvTAINTED(sv); |
7298
|
0 |
0 |
if (kbuf) |
7300
|
0 |
0 |
if (!cxt->membuf_ro && mbase) |
|
0 |
0 |
if (!cxt->membuf_ro && mbase) |
7302
|
0 |
0 |
if (cxt->membuf_ro && (cxt->msaved).arena) |
|
0 |
0 |
if (cxt->membuf_ro && (cxt->msaved).arena) |
7351
|
98 |
0 |
RETVAL = do_store(aTHX_ f, obj, 0, ix, (SV **)0) ? &PL_sv_yes : &PL_sv_undef; |
7374
|
0 |
208 |
if (!do_store(aTHX_ (PerlIO*) 0, obj, 0, ix, &RETVAL)) |
7413
|
0 |
5 |
if (ix) { |
7416
|
0 |
0 |
result = cxt->entry && (cxt->optype & ix) ? TRUE : FALSE; |
|
0 |
0 |
result = cxt->entry && (cxt->optype & ix) ? TRUE : FALSE; |
7420
|
3 |
2 |
ST(0) = boolSV(result); |