Fix Peek.t failure under -DPERL_NO_COW

[perl5.git] / ext / Devel-Peek / t / Peek.t

diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t
index 785d3bd..e275526 100644 (file)
--- a/ext/Devel-Peek/t/Peek.t
+++ b/ext/Devel-Peek/t/Peek.t
@@ -86,7 +86,7 @@ sub do_test {
            $pattern =~ s/\$RV/
                ($] < 5.011) ? 'RV' : 'IV';
            /mge;
-           $pattern =~ s/^\h+COW_REFCNT = \d+\h*\n//mg
+           $pattern =~ s/^\h+COW_REFCNT = .*\n//mg
                if $Config{ccflags} =~
                        /-DPERL_(?:OLD_COPY_ON_WRITE|NO_COW)/;