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
authorFather Chrysostomos <sprout@cpan.org>
Thu, 22 Aug 2013 15:32:11 +0000 (08:32 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 22 Aug 2013 15:32:11 +0000 (08:32 -0700)
The code for stripping out COW_REFCNT needs to be more lenient
and allow things like COW_REFCNT = [12].

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/\$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)/;
 
                if $Config{ccflags} =~
                        /-DPERL_(?:OLD_COPY_ON_WRITE|NO_COW)/;