This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix Peek.t under PERL_OLD_COPY_ON_WRITE
authorDavid Mitchell <davem@iabyn.com>
Tue, 12 Mar 2013 16:52:47 +0000 (16:52 +0000)
committerDavid Mitchell <davem@iabyn.com>
Tue, 12 Mar 2013 16:52:47 +0000 (16:52 +0000)
under the old COW, the IV slot of non-IOK PVPVs was used for COW
purposes, So don't assume its zero.

ext/Devel-Peek/t/Peek.t

index b3dbc9b..9a0e37c 100644 (file)
@@ -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