This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix Devel::Peek’s tests for format changes
authorFather Chrysostomos <sprout@cpan.org>
Sun, 5 Aug 2012 18:24:26 +0000 (11:24 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 5 Aug 2012 23:02:15 +0000 (16:02 -0700)
ext/Devel-Peek/t/Peek.t

index 1d0de0d..f641982 100644 (file)
@@ -690,13 +690,13 @@ do_test('FORMAT',
     XSUBANY = 0                                        # $] < 5.009
     GVGV::GV = $ADDR\\t"main" :: "PIE"
     FILE = ".*\\b(?i:peek\\.t)"(?:
-    DEPTH = 0
+    DEPTH = 0)?(?:
     MUTEXP = $ADDR
     OWNER = $ADDR)?
     FLAGS = 0x0                                        # $] < 5.015 || !thr
     FLAGS = 0x1000                             # $] >= 5.015 && thr
     OUTSIDE_SEQ = \\d+
-    LINES = 0
+    LINES = 0                                  # $] < 5.017_003
     PADLIST = $ADDR
     PADNAME = $ADDR\\($ADDR\\) PAD = $ADDR\\($ADDR\\)
     OUTSIDE = $ADDR \\(MAIN\\)');