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:
b86ac95
)
Peek.t: Fix a test
author
Father Chrysostomos
<sprout@cpan.org>
Mon, 12 Aug 2013 15:24:46 +0000
(08:24 -0700)
committer
Father Chrysostomos
<sprout@cpan.org>
Mon, 12 Aug 2013 15:25:03 +0000
(08:25 -0700)
This scalar can end up becoming a COW with standard builds, but not
with threads+mad.
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
088f505
..
e1761c7
100644
(file)
--- a/
ext/Devel-Peek/t/Peek.t
+++ b/
ext/Devel-Peek/t/Peek.t
@@
-1095,10
+1095,11
@@
unless ($Config{useithreads}) {
do_test('second string also unaffected', $pie, 'SV = PV\\($ADDR\\) at $ADDR
REFCNT = 1
- FLAGS = \\(PADMY,POK,pPOK\\)
+ FLAGS = \\(PADMY,POK,
(?:IsCOW,)?
pPOK\\)
PV = $ADDR "good"\\\0
CUR = 4
- LEN = \d+
+ LEN = \d+(?:
+ COW_REFCNT = 1)?
');
}