Change 25405 by [EMAIL PROTECTED] on 2005/09/13 20:52:17
The Peek.t parts of
Integrate:
[ 24088]
expand -DDEBUG_LEAKING_SCALARS to instrument the creation of each SV
[ 24091]
Fix Peek.t to work with and without DEBUG_LEAKING_SCALARS
Affected files ...
... //depot/maint-5.8/perl/ext/Devel/Peek/t/Peek.t#4 integrate
Differences ...
==== //depot/maint-5.8/perl/ext/Devel/Peek/t/Peek.t#4 (text) ====
Index: perl/ext/Devel/Peek/t/Peek.t
--- perl/ext/Devel/Peek/t/Peek.t#3~20274~ Mon Jul 28 09:40:18 2003
+++ perl/ext/Devel/Peek/t/Peek.t Tue Sep 13 13:52:17 2005
@@ -28,6 +28,8 @@
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;
End of Patch.
