This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/TEST
authorAbe Timmerman <abe@ztreet.demon.nl>
Sun, 13 Jun 2004 11:41:49 +0000 (13:41 +0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 13 Jun 2004 15:35:00 +0000 (15:35 +0000)
Message-Id: <200406131141.50361.abe@ztreet.demon.nl>

p4raw-id: //depot/perl@22932

t/TEST

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