X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FThread.t;h=18694c5b98d1415a6806f77177e8f9b63724520d;hb=eb60b0e7b57f22da325f4de3b9eed4515e564eef;hp=2a0e2af5af07f657f863f71a3de999cffd9f6f27;hpb=9d40afd19ff47f5f5e62fab1f340c175ed9224e4;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Thread.t b/lib/Thread.t
index 2a0e2af..18694c5 100644
--- 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);