diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2003-09-03 08:07:54 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-03 04:48:40 +0000 |
| commit | 014f91c357dc587acd64d9490bcb8ff6ed718e2a (patch) | |
| tree | 8faf560e1da19b7a2c5b7269477d4f7664e74d1b /ext | |
| parent | e344bad3baf2bf2e0915ab481c789fd45967284b (diff) | |
| download | perl-014f91c357dc587acd64d9490bcb8ff6ed718e2a.tar.gz | |
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
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/threads/t/join.t | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/ext/threads/t/join.t b/ext/threads/t/join.t index 7f8f1c8824..7e0bde0170 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; +} + |