diff options
| author | David Mitchell <davem@iabyn.com> | 2010-01-08 17:53:29 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2010-01-08 17:53:29 +0000 |
| commit | cbe56f1dc5efa2a32e6943a97f6928e7eef1b1f6 (patch) | |
| tree | bcf17661299d5b537d09395e8abc6b58d7bcaff2 /perl.c | |
| parent | af9379e9ed4daaed65ba42baa492afc842917dd5 (diff) | |
| download | perl-cbe56f1dc5efa2a32e6943a97f6928e7eef1b1f6.tar.gz | |
include sv_debug_serial field in debugging output
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -1162,7 +1162,7 @@ perl_destruct(pTHXx) PerlIO_printf(Perl_debug_log, "leaked: sv=0x%p" " flags=0x%"UVxf " refcnt=%"UVuf pTHX__FORMAT "\n" - "\tallocated at %s:%d %s %s%s\n", + "\tallocated at %s:%d %s %s%s; serial %"UVuf"\n", (void*)sv, (UV)sv->sv_flags, (UV)sv->sv_refcnt pTHX__VALUE, sv->sv_debug_file ? sv->sv_debug_file : "(unknown)", @@ -1170,7 +1170,8 @@ perl_destruct(pTHXx) sv->sv_debug_inpad ? "for" : "by", sv->sv_debug_optype ? PL_op_name[sv->sv_debug_optype]: "(none)", - sv->sv_debug_cloned ? " (cloned)" : "" + sv->sv_debug_cloned ? " (cloned)" : "", + sv->sv_debug_serial ); #ifdef DEBUG_LEAKING_SCALARS_FORK_DUMP Perl_dump_sv_child(aTHX_ sv); |