fix Peek.t to work with NEW COW
authorDavid Mitchell <davem@iabyn.com>
Sat, 23 Mar 2013 23:08:59 +0000 (23:08 +0000)
committerDavid Mitchell <davem@iabyn.com>
Sat, 23 Mar 2013 23:08:59 +0000 (23:08 +0000)
ext/Devel-Peek/t/Peek.t

index 116c204..912bf8c 100644 (file)
@@ -969,7 +969,8 @@ do_test('UTF-8 in a regular expression',
     SUBSTRS = $ADDR
     PPRIVATE = $ADDR
     OFFS = $ADDR
-    QR_ANONCV = 0x0
+    QR_ANONCV = 0x0(?:
+    SAVED_COPY = 0x0)?
 ');
 
 done_testing();