From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 29 Mar 2005 07:01:40 +0000 (+0000)
Subject: Fix Peek.t to work with and without DEBUG_LEAKING_SCALARS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d94a595083cd516d035cdb88f9587033a47e185e;p=p5sagit%2Fp5-mst-13.2.git

Fix Peek.t to work with and without DEBUG_LEAKING_SCALARS

p4raw-id: //depot/perl@24091
---

diff --git a/ext/Devel/Peek/t/Peek.t b/ext/Devel/Peek/t/Peek.t
index ac57026..7c932d0 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;