t/TEST

Message-Id: <200406131141.50361.abe@ztreet.demon.nl>

p4raw-id: //depot/perl@22932

diff --git a/t/TEST b/t/TEST
index 7b9afa6..357f230 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -448,8 +448,12 @@ EOT
        }
        else {
            $next += 1;
-           print "${te}FAILED at test $next";
-           print ($next > $max) ? "\tpossibly due to extra output\n" : "\n";
+           if ($next > $max) {
+               print "${te}FAILED at test $next\tpossibly due to extra output\n";
+           }
+           else {
+               print "${te}FAILED at test $next\n";
+           }
            $bad = $bad + 1;
            $_ = $test;
            if (/^base/) {