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
[perl5.git] / 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) {