projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
d67b3c5
)
Re: Thread.t hangs, even under normal test...
author
Jerry D. Hedden
<jdhedden@cpan.org>
Mon, 16 Apr 2007 09:31:39 +0000
(
05:31
-0400)
committer
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Mon, 16 Apr 2007 13:37:05 +0000
(13:37 +0000)
From: "Jerry D. Hedden" <jdhedden@gmail.com>
Message-ID: <1ff86f510704160631ue286a97kb66a0ce649c9aae4@mail.gmail.com>
p4raw-id: //depot/perl@30967
lib/Thread.t
patch
|
blob
|
history
diff --git
a/lib/Thread.t
b/lib/Thread.t
index
2a0e2af
..
18694c5
100644
(file)
--- a/
lib/Thread.t
+++ b/
lib/Thread.t
@@
-72,9
+72,15
@@
COND_:
return Thread->self->tid;
}
- my $thr = Thread->new(\&thr_wait);
- isa_ok($thr, 'Thread');
- ok(! $thr->done(), 'Thread running');
+ my $thr;
+ {
+ lock($lock);
+ $thr = Thread->new(\&thr_wait);
+ isa_ok($thr, 'Thread');
+ ok(! $thr->done(), 'Thread running');
+ }
+ yield();
+ sleep(1);
{
lock($lock);