diff options
| author | David Mitchell <davem@iabyn.com> | 2010-08-01 13:20:15 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2010-08-01 21:47:30 +0100 |
| commit | cd6765485c511c7626564977066567e876af6644 (patch) | |
| tree | 18f90ff7bc08ef8606de234de93a17a13567cac7 /dump.c | |
| parent | e71b8a62048b820e9c251e89453b297934a0f89c (diff) | |
| download | perl-cd6765485c511c7626564977066567e876af6644.tar.gz | |
DEBUG_LEAKING_SCALARS: add sv_debug_parent
Rather than just recording whether an SV was cloned (sv->sv_debug_cloned),
record the address of the SV we were cloned from.
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1626,12 +1626,12 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo #ifdef DEBUG_LEAKING_SCALARS Perl_dump_indent(aTHX_ level, file, - "ALLOCATED at %s:%d %s %s%s; serial %"UVuf"\n", + "ALLOCATED at %s:%d %s %s (parent 0x%"UVxf"); serial %"UVuf"\n", sv->sv_debug_file ? sv->sv_debug_file : "(unknown)", sv->sv_debug_line, sv->sv_debug_inpad ? "for" : "by", sv->sv_debug_optype ? PL_op_name[sv->sv_debug_optype]: "(none)", - sv->sv_debug_cloned ? " (cloned)" : "", + PTR2UV(sv->sv_debug_parent), sv->sv_debug_serial ); #endif |