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

[Peter Prymmer]

Here is the version of the patch for perl5.005_03 (note email to
[EMAIL PROTECTED] or to [EMAIL PROTECTED] bounces for me but the
net effect is that this problem can be tickled by Test::Harness but can be
worked around in Test.pm):

--- perl5.005_03/lib/Test.pm.orig       Wed Feb 14 15:39:13 2001
+++ perl5.005_03/lib/Test.pm    Wed Feb 14 15:41:38 2001
@@ -77,8 +77,16 @@
        $context .= ' TODO?!' if $todo;
        print $TESTOUT "ok $ntest # ($context)\n";
     } else {
-       print $TESTOUT "not " if !$ok;
-       print $TESTOUT "ok $ntest\n";
+       # Issuing two separate print()s causes severe trouble 
+       # with Test::Harness on VMS.  The "not "'s for failed tests 
+       # occur 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;
        
        if (!$ok) {
            my $detail = { 'repetition' => $repetition, 'package' => $pkg,
End of Patch.

Peter Prymmer