diff options
Diffstat (limited to 'ext/Devel/Peek/Peek.t')
| -rw-r--r-- | ext/Devel/Peek/Peek.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/Devel/Peek/Peek.t b/ext/Devel/Peek/Peek.t index 4062461d66..9be948cae7 100644 --- a/ext/Devel/Peek/Peek.t +++ b/ext/Devel/Peek/Peek.t @@ -27,6 +27,7 @@ sub do_test { if (open(IN, "peek$$")) { local $/; $pattern =~ s/\$ADDR/0x[[:xdigit:]]+/g; + $pattern =~ s/\$FLOAT/(?:\\d*\\.\\d+(?:e[-+]\\d+)?|\\d+)/g; print $pattern, "\n" if $DEBUG; my $dump = <IN>; print $dump, "\n" if $DEBUG; @@ -187,7 +188,7 @@ do_test(12, REFCNT = 2 FLAGS = \\(SHAREKEYS\\) IV = 1 - NV = 0 + NV = $FLOAT ARRAY = $ADDR \\(0:7, 1:1\\) hash quality = 100.0% KEYS = 1 @@ -348,7 +349,7 @@ do_test(19, REFCNT = 2 FLAGS = \\(SHAREKEYS\\) IV = 1 - NV = 0 + NV = $FLOAT ARRAY = $ADDR \\(0:7, 1:1\\) hash quality = 100.0% KEYS = 1 |