t/TEST

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

p4raw-id: //depot/perl@22932

1 files changed, 6 insertions, 2 deletions

diff --git a/t/TEST b/t/TEST
index 7b9afa661c..357f230b00 100755
--- 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/) {