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 (executable)
--- 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 (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++;
 }
 

diff --git a/t/lib/texttabs.t b/t/lib/texttabs.t
index aa5380d..2856aff 100755 (executable)
--- 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;