Change 21009 by [EMAIL PROTECTED] on 2003/09/03 04:48:40
Subject: Re: [EMAIL PROTECTED] or before broke mp2 ithreads test
From: "Marcus Holland-Moritz" <[EMAIL PROTECTED]>
Date: Wed, 3 Sep 2003 06:07:54 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/threads/t/join.t#14 edit
Differences ...
==== //depot/perl/ext/threads/t/join.t#14 (text) ====
Index: perl/ext/threads/t/join.t
--- perl/ext/threads/t/join.t#13~19982~ Fri Jul 4 03:45:05 2003
+++ perl/ext/threads/t/join.t Tue Sep 2 21:48:40 2003
@@ -139,3 +139,12 @@
$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 "[EMAIL PROTECTED] or before broke mp2 ithreads test".
+ use IO;
+ $_->join for map threads->new(sub{ok($_, "stress newCONSTSUB")}), 1..2;
+}
+
End of Patch.
