This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix Peek.t failure under -DPERL_NO_COW
[perl5.git] / ext / Devel-Peek / t / Peek.t
index 785d3bd..e275526 100644 (file)
@@ -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)/;