From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 5 Jul 1999 05:31:19 +0000 (+0000)
Subject: suppress fancy display when in verbose mode (suggested by
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=23c4718aa406373582ab86dab2e34b5dc04fdf98;p=p5sagit%2Fp5-mst-13.2.git

suppress fancy display when in verbose mode (suggested by
Paul Johnson <pjcj@transeda.com>)

p4raw-id: //depot/perl@3583
---

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 {