From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Wed, 3 Sep 2003 06:07:54 +0000 (+0200)
Subject: Re: maint@20974 or before broke mp2 ithreads test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=014f91c357dc587acd64d9490bcb8ff6ed718e2a;p=p5sagit%2Fp5-mst-13.2.git

Re: maint@20974 or before broke mp2 ithreads test
From: "Marcus Holland-Moritz" <mhx-perl@gmx.net>
Message-ID: <044101c371d0$f39b3fc0$0c2f1fac@R2D2>

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

diff --git a/ext/threads/t/join.t b/ext/threads/t/join.t
index 7f8f1c8..7e0bde0 100644
--- a/ext/threads/t/join.t
+++ b/ext/threads/t/join.t
@@ -139,3 +139,12 @@ if ($^O eq 'linux') {
     $ok++ if($@ =~/Thread already joined/);
     ok($ok, "Double join works");
 }
+
+{
+    # The "use IO" is not actually used for anything; its only purpose is to
+    # incite a lot of calls to newCONSTSUB.  See the p5p archives for
+    # the thread "maint@20974 or before broke mp2 ithreads test".
+    use IO;
+    $_->join for map threads->new(sub{ok($_, "stress newCONSTSUB")}), 1..2;
+}
+