diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-03-29 07:01:40 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-03-29 07:01:40 +0000 |
| commit | d3adf9a047ea2c7881f04d7f7688329745285c0b (patch) | |
| tree | 25eafbfaf56fbd172e48ba8189328656bd915acf | |
| parent | 89b87a2bf895a95d88674202b9e47e8c38bb45f4 (diff) | |
| download | perl-d3adf9a047ea2c7881f04d7f7688329745285c0b.tar.gz | |
Fix Peek.t to work with and without DEBUG_LEAKING_SCALARS
p4raw-id: //depot/perl@24091
| -rw-r--r-- | ext/Devel/Peek/t/Peek.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Devel/Peek/t/Peek.t b/ext/Devel/Peek/t/Peek.t index ac57026a8f..7c932d0f41 100644 --- a/ext/Devel/Peek/t/Peek.t +++ b/ext/Devel/Peek/t/Peek.t @@ -29,7 +29,7 @@ sub do_test { $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; + $pattern =~ s/^(\s*)(SV =.* at )/(?:$1ALLOCATED at .*?\n)?$1$2/mg; print $pattern, "\n" if $DEBUG; my $dump = <IN>; print $dump, "\n" if $DEBUG; |