Update Changes.

[p5sagit/p5-mst-13.2.git] / ext / threads / t / list.t

diff --git a/ext/threads/t/list.t b/ext/threads/t/list.t
index e5929ed..f0995a1 100644 (file)
--- a/ext/threads/t/list.t
+++ b/ext/threads/t/list.t
@@ -47,6 +47,7 @@ $thread->join();
 ok(5, scalar @{[threads->list]} == 1);
 
 $thread = threads->create(sub { ok(6, threads->self == (threads->list)[1])});
+threads->yield; # help out non-preemptive thread implementations
 sleep 1;
 ok(7, $thread == (threads->list)[1]);
 $thread->join();