From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 23 Jun 2001 23:57:28 +0000 (+0000)
Subject: (Retracted by #11586)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5d23d6cde7d4284678e908dcee882c5f24dfa8f2;p=p5sagit%2Fp5-mst-13.2.git

(Retracted by #11586)

Hack to get rid of the UNEXPECTEDLY succeeded message for now.

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

diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm
index e0c4dbe..e5df1f8 100644
--- a/lib/Test/Harness.pm
+++ b/lib/Test/Harness.pm
@@ -575,7 +575,8 @@ sub _show_results {
     my $bonusmsg = _bonusmsg($tot);
 
     if ($tot->{bad} == 0 && $tot->{max}) {
-	print "All tests successful$bonusmsg.\n";
+#	print "All tests successful$bonusmsg.\n";
+	print "All tests successful.\n";
     } elsif ($tot->{tests}==0){
 	die "FAILED--no tests were run for some reason.\n";
     } elsif ($tot->{max} == 0) {