Fix Peek.t under PERL_OLD_COPY_ON_WRITE

under the old COW, the IV slot of non-IOK PVPVs was used for COW
purposes, So don't assume its zero.

diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t
index b3dbc9b..9a0e37c 100644 (file)
--- a/ext/Devel-Peek/t/Peek.t
+++ b/ext/Devel-Peek/t/Peek.t
@@ -531,7 +531,7 @@ do_test('scalar with pos magic',
 'SV = PVMG\\($ADDR\\) at $ADDR
   REFCNT = 1
   FLAGS = \\($PADMY,SMG,POK,(?:IsCOW,)?pPOK\\)
-  IV = 0
+  IV = \d+
   NV = 0
   PV = $ADDR ""\\\0
   CUR = 0