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 | d94a595083cd516d035cdb88f9587033a47e185e (patch) | |
| tree | 25eafbfaf56fbd172e48ba8189328656bd915acf /ext | |
| parent | 6b0ac556af9eedace4d32a9b51232914d1118023 (diff) | |
| download | perl-d94a595083cd516d035cdb88f9587033a47e185e.tar.gz | |
Fix Peek.t to work with and without DEBUG_LEAKING_SCALARS
p4raw-id: //depot/perl@24091
Diffstat (limited to 'ext')
| -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; |