diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2005-03-28 21:38:44 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2005-03-28 21:38:44 +0000 |
| commit | fd0854ffd71f437c5e7d44b6f60361faf0bd6d15 (patch) | |
| tree | 35b2cad6f2cc4e9a78429f91fc6dbed9b69c1f95 /pad.c | |
| parent | 1af60bcb794810018aa77e3f4c7d128153067785 (diff) | |
| download | perl-fd0854ffd71f437c5e7d44b6f60361faf0bd6d15.tar.gz | |
expand -DDEBUG_LEAKING_SCALARS to instrument the creation of each SV
p4raw-id: //depot/perl@24088
Diffstat (limited to 'pad.c')
| -rw-r--r-- | pad.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -434,7 +434,11 @@ Perl_pad_alloc(pTHX_ I32 optype, U32 tmptype) "Pad 0x%"UVxf"[0x%"UVxf"] alloc: %ld for %s\n", PTR2UV(PL_comppad), PTR2UV(PL_curpad), (long) retval, PL_op_name[optype])); +#ifdef DEBUG_LEAKING_SCALARS + sv->sv_debug_optype = optype; + sv->sv_debug_inpad = 1; return (PADOFFSET)retval; +#endif } /* |