From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 13 Aug 2000 05:07:48 +0000 (+0000)
Subject: Fix the test for 5005threads.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9856a1277130c008a18c24f6f725fa79317e4d6e;p=p5sagit%2Fp5-mst-13.2.git

Fix the test for 5005threads.

p4raw-id: //depot/perl@6605
---

diff --git a/t/lib/peek.t b/t/lib/peek.t
index 86fd74a..43df33e 100644
--- a/t/lib/peek.t
+++ b/t/lib/peek.t
@@ -30,7 +30,7 @@ sub do_test {
 	    print $pattern, "\n" if $DEBUG;
 	    my $dump = <IN>;
 	    print $dump, "\n"    if $DEBUG;
-	    print "[$dump] vs [$pattern]\nnot " unless $dump =~ /$pattern/m;
+	    print "[$dump] vs [$pattern]\nnot " unless $dump =~ /$pattern/ms;
 	    print "ok $_[0]\n";
 	    close(IN);
 	} else {
@@ -207,6 +207,8 @@ do_test(13,
     GVGV::GV = $ADDR\\t"main" :: "__ANON__"
     FILE = ".+\\b(?i:peek\\.t)"
     DEPTH = 0
+(?:    MUTEXP = $ADDR
+    OWNER = $ADDR)?
     FLAGS = 0x4
     PADLIST = $ADDR
     OUTSIDE = $ADDR \\(MAIN\\)');
@@ -218,7 +220,7 @@ do_test(14,
   FLAGS = \\(ROK\\)
   RV = $ADDR
   SV = PVCV\\($ADDR\\) at $ADDR
-    REFCNT = 3
+    REFCNT = (3|4)
     FLAGS = \\(\\)
     IV = 0
     NV = 0
@@ -230,6 +232,8 @@ do_test(14,
     GVGV::GV = $ADDR\\t"main" :: "do_test"
     FILE = ".+\\b(?i:peek\\.t)"
     DEPTH = 1
+(?:    MUTEXP = $ADDR
+    OWNER = $ADDR)?
     FLAGS = 0x0
     PADLIST = $ADDR
       \\d+\\. $ADDR \\("\\$pattern" \\d+-\\d+\\)