X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/59d944039581ef3428697794370a008a816f0702..654c77f7d905725b35cae0a341c597f180583fed:/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
--- 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