Use STDOUT consistently.

Subject: [ID 20000720.002] [PATCH] Consistency of Test::Harness output
Message-Id: <E13FJjt-0004Jh-00@libra.cus.cam.ac.uk>

p4raw-id: //depot/perl@6424

diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm
index aded0e9..36b5fa8 100644 (file)
--- a/lib/Test/Harness.pm
+++ b/lib/Test/Harness.pm
@@ -140,12 +140,12 @@ sub runtests {
                    $bonus++, $totbonus++ if $todo{$this};
                }
                if ($this > $next) {
-                   # warn "Test output counter mismatch [test $this]\n";
+                   # print "Test output counter mismatch [test $this]\n";
                    # no need to warn probably
                    push @failed, $next..$this-1;
                } elsif ($this < $next) {
                    #we have seen more "ok" lines than the number suggests
-                   warn "Confused test output: test $this answered after test ", $next-1, "\n";
+                   print "Confused test output: test $this answered after test ", $next-1, "\n";
                    $next = $this;
                }
                $next = $this + 1;