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 /ext/Devel | |
| 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 'ext/Devel')
| -rw-r--r-- | ext/Devel/Peek/t/Peek.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ext/Devel/Peek/t/Peek.t b/ext/Devel/Peek/t/Peek.t index 8d7189ef6a..ac57026a8f 100644 --- a/ext/Devel/Peek/t/Peek.t +++ b/ext/Devel/Peek/t/Peek.t @@ -28,6 +28,8 @@ sub do_test { local $/; $pattern =~ s/\$ADDR/0x[[:xdigit:]]+/g; $pattern =~ s/\$FLOAT/(?:\\d*\\.\\d+(?:e[-+]\\d+)?|\\d+)/g; + # handle DEBUG_LEAKING_SCALARS prefix + $pattern =~ s/^(\s*)(SV =.* at )/$1ALLOCATED at .*?\n$1$2/mg; print $pattern, "\n" if $DEBUG; my $dump = <IN>; print $dump, "\n" if $DEBUG; |