Integrate perlio:

[p5sagit/p5-mst-13.2.git] / t / lib / test-harness.t

diff --git a/t/lib/test-harness.t b/t/lib/test-harness.t
index 90326d9..4ce6e17 100644 (file)
--- a/t/lib/test-harness.t
+++ b/t/lib/test-harness.t
@@ -20,10 +20,11 @@ package main;
 my $test_num = 1;
 sub ok ($;$) {
     my($test, $name) = @_;
-    print "not " unless $test;
-    print "ok $test_num";
-    print " - $name" if defined $name;
-    print "\n";
+    my $okstring = '';
+    $okstring = "not " unless $test;
+    $okstring .= "ok $test_num";
+    $okstring .= " - $name" if defined $name;
+    print "$okstring\n";
     $test_num++;
 }