From e9c9eb1f7997103bcfa9f934056bb6324b2afe80 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 28 May 2000 20:58:31 +0000
Subject: [PATCH] prettier Test::Harness output on failed tests (from Nicholas
 Clark <nick@Bagpuss.uk.boo.com>)

p4raw-id: //depot/perl@6153
---
 lib/Test/Harness.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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