threads - miscellaneous

[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 8f84eed..47a483f 100644 (file)
--- a/ext/threads/t/end.t
+++ b/ext/threads/t/end.t
@@ -28,6 +28,8 @@ share($test_id);
 sub ok {
     my ($ok, $name) = @_;
 
+    lock($test_id);
+
     # You have to do it this way or VMS will get confused.
     print $ok ? "ok $test_id - $name\n" : "not ok $test_id - $name\n";