More EBCDIC stuff:

[p5sagit/p5-mst-13.2.git] / lib / Test.pm

diff --git a/lib/Test.pm b/lib/Test.pm
index 4a38d54..19a9089 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,
@@ -149,7 +151,7 @@ __END__
 
 =head1 NAME
 
-  Test - provides a simple framework for writing test scripts
+Test - provides a simple framework for writing test scripts
 
 =head1 SYNOPSIS