for t/lib/peek.t (was Re: [ID 20000814.005] Not OK: perl v5.6.0 on i686-linux-64int...

Message-Id: <E13OkU9-0006rb-00@libra.cus.cam.ac.uk>

Only the peek.t part applied, not the hash quality part.

p4raw-id: //depot/perl@6641

diff --git a/t/lib/peek.t b/t/lib/peek.t
index 7b85dcd..b51287a 100644 (file)
--- a/t/lib/peek.t
+++ b/t/lib/peek.t
@@ -205,7 +205,7 @@ do_test(13,
     XSUB = 0x0
     XSUBANY = 0
     GVGV::GV = $ADDR\\t"main" :: "__ANON__[^"]*"
-    FILE = ".+\\b(?i:peek\\.t)"
+    FILE = ".*\\b(?i:peek\\.t)"
     DEPTH = 0
 (?:    MUTEXP = $ADDR
     OWNER = $ADDR
@@ -230,7 +230,7 @@ do_test(14,
     XSUB = 0x0
     XSUBANY = 0
     GVGV::GV = $ADDR\\t"main" :: "do_test"
-    FILE = ".+\\b(?i:peek\\.t)"
+    FILE = ".*\\b(?i:peek\\.t)"
     DEPTH = 1
 (?:    MUTEXP = $ADDR
     OWNER = $ADDR
@@ -303,7 +303,7 @@ do_test(17,
     CVGEN = 0x0
     GPFLAGS = 0x0
     LINE = \\d+
-    FILE = ".+\\b(?i:peek\\.t)"
+    FILE = ".*\\b(?i:peek\\.t)"
     FLAGS = $ADDR
     EGV = $ADDR\\t"a"');