This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
9cefd26
)
Fix Peek.t failure under -DPERL_NO_COW
author
Father Chrysostomos
<sprout@cpan.org>
Thu, 22 Aug 2013 15:32:11 +0000
(08:32 -0700)
committer
Father 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
patch
|
blob
|
blame
|
history
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)/;