Remove warnings from tests.

[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 193546f..f8f82d2 100644 (file)
--- a/ext/threads/t/list.t
+++ b/ext/threads/t/list.t
@@ -34,21 +34,21 @@ sub ok {
     return $ok;
 }
 
-ok(2, scalar @{[threads->list]} == 0);
+ok(2, scalar @{[threads->list]} == 0,'');
 
 
 
 threads->create(sub {})->join();
-ok(3, scalar @{[threads->list]} == 0);
+ok(3, scalar @{[threads->list]} == 0,'');
 
 my $thread = threads->create(sub {});
-ok(4, scalar @{[threads->list]} == 1);
+ok(4, scalar @{[threads->list]} == 1,'');
 $thread->join();
-ok(5, scalar @{[threads->list]} == 0);
+ok(5, scalar @{[threads->list]} == 0,'');
 
-$thread = threads->create(sub { ok(6, threads->self == (threads->list)[0])});
+$thread = threads->create(sub { ok(6, threads->self == (threads->list)[0],'')});
 threads->yield; # help out non-preemptive thread implementations
 sleep 1;
-ok(7, $thread == (threads->list)[0]);
+ok(7, $thread == (threads->list)[0],'');
 $thread->join();
-ok(8, scalar @{[threads->list]} == 0);
+ok(8, scalar @{[threads->list]} == 0,'');