On Sat Aug 30 05:56:27 2014, SREZIC wrote:
Show quoted text> With perl 5.20.1 the test suite fails:
Attached patch fixes the 3 open bugs. Just bumped the version requirement.
--
Reini Urban
From 541304d9c390d40761848986bec20aec8473da0c Mon Sep 17 00:00:00 2001
From: Reini Urban <rurban@cpanel.net>
Date: Sat, 30 Aug 2014 22:14:02 +0200
Subject: [PATCH] extend xpv access from 5.18 to 5.21
only COW strings changed but they carry just the COW_REFCOUNT at the end of the string,
which is transparent here.
---
lib/Devel/PeekPoke/PP.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git lib/Devel/PeekPoke/PP.pm lib/Devel/PeekPoke/PP.pm
index 7e79b56..d3e437c 100644
--- lib/Devel/PeekPoke/PP.pm
+++ lib/Devel/PeekPoke/PP.pm
@@ -43,7 +43,7 @@ BEGIN {
_XPV_ADDR_OFFSET => undef, # it isn't really undefined, we just do not care
});
}
- elsif (_PERLVERSION < 5.018) {
+ elsif (_PERLVERSION < 5.022) {
# The xpv address is written to the svu_pv, however we may get in trouble
# due to padding/alignment when ivsize (thus svu) is larger than PTR_SIZE
constant->import( _XPV_IN_SVU_OFFSET => $Config{ivsize} == PTR_SIZE ? 0 : do {
--
2.0.4