From: Abe Timmerman <abe@ztreet.demon.nl>
Date: Sun, 13 Jun 2004 11:41:49 +0000 (+0200)
Subject: t/TEST
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=26affc6c61604c9872ec2aaa162d647ce96277c4;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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/) {