Correct Peek.t to account for flag changes
authorFather Chrysostomos <sprout@cpan.org>
Mon, 21 May 2012 21:15:53 +0000 (14:15 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 22 May 2012 01:09:36 +0000 (18:09 -0700)
ext/Devel-Peek/t/Peek.t

index 129f29a..0a812d0 100644 (file)
@@ -778,7 +778,8 @@ do_test('ENAMEs on a stash with no NAME',
   RV = $ADDR
   SV = PVHV\\($ADDR\\) at $ADDR
     REFCNT = 3
-    FLAGS = \\(OOK,SHAREKEYS\\)
+    FLAGS = \\(OOK,SHAREKEYS\\)                        # $] < 5.017
+    FLAGS = \\(OOK,OVERLOAD,SHAREKEYS\\)       # $] >=5.017
     IV = 1                                     # $] < 5.009
     NV = $FLOAT                                        # $] < 5.009
     ARRAY = $ADDR