From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 28 May 2000 20:58:31 +0000 (+0000)
Subject: prettier Test::Harness output on failed tests (from Nicholas Clark
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e9c9eb1f7997103bcfa9f934056bb6324b2afe80;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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,