Re: Thread.t hangs, even under normal test...

From: "Jerry D. Hedden" <jdhedden@gmail.com>
Message-ID: <1ff86f510704160631ue286a97kb66a0ce649c9aae4@mail.gmail.com>

p4raw-id: //depot/perl@30967

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);