fix for ext/threads/t/problems.t failures

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

diff --git a/ext/threads/t/end.t b/ext/threads/t/end.t
index dd26042..19cd704 100644 (file)
--- a/ext/threads/t/end.t
+++ b/ext/threads/t/end.t
@@ -32,7 +32,7 @@ sub ok {
     $test_id++;
     return $ok;
 }
-ok(1);
+ok(1,'');
 END { ok(1,"End block run once") }
 threads->create(sub { eval "END { ok(1,'') }"})->join();
 threads->create(sub { eval "END { ok(1,'') }"})->join();