This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Peek.t needs to know about the prev. change
authorFather Chrysostomos <sprout@cpan.org>
Mon, 15 Sep 2014 16:35:50 +0000 (09:35 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 15 Sep 2014 21:49:17 +0000 (14:49 -0700)
ext/Devel-Peek/t/Peek.t

index 492b8ed..643ff45 100644 (file)
@@ -493,6 +493,7 @@ do_test('typeglob',
   NAME = "a"
   NAMELEN = 1
   GvSTASH = $ADDR\\t"main"
+  FLAGS = $ADDR                                        # $] >=5.021004
   GP = $ADDR
     SV = $ADDR
     REFCNT = 1
@@ -505,7 +506,7 @@ do_test('typeglob',
     GPFLAGS = 0x0                              # $] < 5.009
     LINE = \\d+
     FILE = ".*\\b(?i:peek\\.t)"
-    FLAGS = $ADDR
+    FLAGS = $ADDR                              # $] < 5.021004
     EGV = $ADDR\\t"a"');
 
 if (ord('A') == 193) {