Re: [PATCH: perl 5.005_03] Record I/O fix for Test.pm in older perl

Message-ID: <Pine.OSF.4.10.10102231042010.79050-100000@aspara.forte.com>

p4raw-id: //depot/perl@8949

diff --git a/lib/Test.pm b/lib/Test.pm
index 4a38d54..89b9cec 100644 (file)
--- a/lib/Test.pm
+++ b/lib/Test.pm
@@ -86,11 +86,13 @@ sub ok ($;$$) {
        # on a separate line and would not get counted as failures.
        #print $TESTOUT "not " if !$ok;
        #print $TESTOUT "ok $ntest\n";
-       # Replace with a single print() as a workaround:
-       my $okline = '';
-       $okline = "not " if !$ok;
-       $okline .= "ok $ntest\n";
-       print $TESTOUT $okline;
+       # Replace with one of a pair of single print()'s as a workaround:
+       if (!$ok) {
+           print $TESTOUT "not ok $ntest\n";
+        }
+        else {
+           print $TESTOUT "ok $ntest\n";
+        }
        
        if (!$ok) {
            my $detail = { 'repetition' => $repetition, 'package' => $pkg,