From: Craig A. Berry <craigberry@mac.com>
Date: Mon, 12 Feb 2001 11:05:25 +0000 (-0600)
Subject: integral ok lines for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=22458fee088355241b83feb63ceff2f9c03b92a5;p=p5sagit%2Fp5-mst-13.2.git

integral ok lines for VMS
Message-Id: <p04330104b6ac5dfe6d45@[172.16.52.1]>

p4raw-id: //depot/perl@8797
---

diff --git a/t/lib/filehand.t b/t/lib/filehand.t
index 827410a..0f3e177 100755
--- a/t/lib/filehand.t
+++ b/t/lib/filehand.t
@@ -20,7 +20,7 @@ $| = 1;
 autoflush $mystdout;
 print "1..11\n";
 
-print $mystdout "ok ",fileno($mystdout),"\n";
+print $mystdout "ok ".fileno($mystdout)."\n";
 
 $fh = (new FileHandle "./TEST", O_RDONLY
        or new FileHandle "TEST", O_RDONLY)
diff --git a/t/lib/test-harness.t b/t/lib/test-harness.t
index 90326d9..4ce6e17 100644
--- 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++;
 }
 
diff --git a/t/lib/texttabs.t b/t/lib/texttabs.t
index aa5380d..2856aff 100755
--- a/t/lib/texttabs.t
+++ b/t/lib/texttabs.t
@@ -91,9 +91,9 @@ DONE
 
 $| = 1;
 
-print "1..";
-print @tests/2;
-print "\n";
+my $testcount = "1..";
+$testcount .= @tests/2;
+print "$testcount\n";
 
 use Text::Tabs;