(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 (file)
--- 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) {