Patch from Craig Berry to resolve test failures in VMS.

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

diff --git a/ext/threads/shared/t/cond.t b/ext/threads/shared/t/cond.t
index 8c482cc..82fa886 100644 (file)
--- a/ext/threads/shared/t/cond.t
+++ b/ext/threads/shared/t/cond.t
@@ -27,8 +27,9 @@ my $Base = 0;
 
 sub ok {
     my ($offset, $bool, $text) = @_;
-    print "not " unless $bool;
-    print "ok ", $Base + $offset, " - $text\n";
+    my $not = '';
+    $not = "not " unless $bool;
+    print "${not}ok " . ($Base + $offset) . " - $text\n";
 }
 
 # test locking