From: Mike Guy <mjtg@cam.ac.uk>
Date: Tue, 15 Aug 2000 18:26:45 +0000 (+0100)
Subject: for t/lib/peek.t (was Re: [ID 20000814.005] Not OK: perl v5.6.0 on i686-linux-64int... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=084d946dff49082ababb67074b279e5d7527d310;p=p5sagit%2Fp5-mst-13.2.git

for t/lib/peek.t (was Re: [ID 20000814.005] Not OK: perl v5.6.0 on i686-linux-64int 2.2.13)
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
--- 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"');