Remove duplicately applied patch shards.

[p5sagit/p5-mst-13.2.git] / t / lib / peek.t

diff --git a/t/lib/peek.t b/t/lib/peek.t
index 7b85dcd..7eed46d 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,10 +303,10 @@ 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"');
 
 END {
-  unlink("peek$$");
+  1 while unlink("peek$$");
 }