This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix up Peek.t to account for preceding commits
authorFather Chrysostomos <sprout@cpan.org>
Sun, 25 Nov 2012 21:58:40 +0000 (13:58 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 27 Nov 2012 15:05:03 +0000 (07:05 -0800)
ext/Devel-Peek/t/Peek.t

index c9af2d2..b3dbc9b 100644 (file)
@@ -360,7 +360,8 @@ do_test('reference to regexp',
     SUBSTRS = $ADDR
     PPRIVATE = $ADDR
     OFFS = $ADDR
-    QR_ANONCV = 0x0'
+    QR_ANONCV = 0x0(?:
+    SAVED_COPY = 0x0)?'
 ));
 } else {
 do_test('reference to regexp',
@@ -529,12 +530,13 @@ do_test('scalar with pos magic',
         $x,
 'SV = PVMG\\($ADDR\\) at $ADDR
   REFCNT = 1
-  FLAGS = \\($PADMY,SMG,POK,pPOK\\)
+  FLAGS = \\($PADMY,SMG,POK,(?:IsCOW,)?pPOK\\)
   IV = 0
   NV = 0
   PV = $ADDR ""\\\0
   CUR = 0
-  LEN = \d+
+  LEN = \d+(?:
+  COW_REFCNT = 1)?
   MAGIC = $ADDR
     MG_VIRTUAL = &PL_vtbl_mglob
     MG_TYPE = PERL_MAGIC_regex_global\\(g\\)