prettier Test::Harness output on failed tests (from Nicholas Clark

<nick@Bagpuss.uk.boo.com>)

p4raw-id: //depot/perl@6153

diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm
index 6d4e8b9..aded0e9 100644 (file)
--- a/lib/Test/Harness.pm
+++ b/lib/Test/Harness.pm
@@ -212,7 +212,7 @@ sub runtests {
            }
            if (@failed) {
                my ($txt, $canon) = canonfailed($max,$skipped,@failed);
-               print $txt;
+               print "${ml}$txt";
                $failedtests{$test} = { canon => $canon,  max => $max,
                                        failed => scalar @failed,
                                        name => $test, percent => 100*(scalar @failed)/$max,