test.pl: ok mess to stdout not stderr on success

sub _ok() uses _diag() to print any additional messages passed as
args.  These go to stderr, and so mess up harness output. Make it
instead use note() on success, which goes to stdout.

1 files changed, 5 insertions, 4 deletions

diff --git a/t/test.pl b/t/test.pl
index a66857699c..5c2ac08006 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -131,13 +131,14 @@ sub _ok {
 
     _print "$out\n";
 
-    unless ($pass) {
+    if ($pass) {
+	note @mess; # Ensure that the message is properly escaped.
+    }
+    else {
 	_diag "# Failed $where\n";
+	_diag @mess;
     }
 
-    # Ensure that the message is properly escaped.
-    _diag @mess;
-
     $test = $test + 1; # don't use ++
 
     return $pass;