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)
commit11d7de88d35184d288f54028ef5ae07962378fb1
treebf2a2010933c4bb85098b7a09a451bd11e9066ca
parent9cefd268f0a1c07e6746eef1c037efc657387f21
Fix Peek.t failure under -DPERL_NO_COW

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