From 23c4718aa406373582ab86dab2e34b5dc04fdf98 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 5 Jul 1999 05:31:19 +0000
Subject: [PATCH] suppress fancy display when in verbose mode (suggested by
 Paul Johnson <pjcj@transeda.com>)

p4raw-id: //depot/perl@3583
---
 lib/Test/Harness.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm
index 3cc3749..db3109a 100644
--- a/lib/Test/Harness.pm
+++ b/lib/Test/Harness.pm
@@ -77,7 +77,8 @@ sub runtests {
 	my $blank = (' ' x 77);
 	my $leader = "$te" . '.' x (20 - length($te));
 	my $ml = "";
-	$ml = "\r$blank\r$leader" if -t STDOUT and not $ENV{HARNESS_NOTTY};
+	$ml = "\r$blank\r$leader"
+	    if -t STDOUT and not $ENV{HARNESS_NOTTY} and not $verbose;
 	print $leader;
 	my $fh = new FileHandle;
 	$fh->open($test) or print "can't open $test. $!\n";
@@ -117,7 +118,7 @@ sub runtests {
 		my $this = $next;
 		if (/^not ok\s*(\d*)/){
 		    $this = $1 if $1 > 0;
-		    print "${ml}NOK $this\n" if $ml;
+		    print "${ml}NOK $this" if $ml;
 		    if (!$todo{$this}) {
 			push @failed, $this;
 		    } else {
-- 
1.8.3.1