diff options
Diffstat (limited to 'ext/Devel/Peek/t/Peek.t')
| -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; |