This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
206b12d
)
Retract #10874 (the hack should be unnecessary by now)
author
Jarkko Hietaniemi
<jhi@iki.fi>
Sun, 5 Aug 2001 19:26:50 +0000
(19:26 +0000)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Sun, 5 Aug 2001 19:26:50 +0000
(19:26 +0000)
p4raw-id: //depot/perl@11586
lib/Test/Harness.pm
patch
|
blob
|
blame
|
history
diff --git
a/lib/Test/Harness.pm
b/lib/Test/Harness.pm
index
0a7a762
..
29344cd
100644
(file)
--- a/
lib/Test/Harness.pm
+++ b/
lib/Test/Harness.pm
@@
-575,8
+575,7
@@
sub _show_results {
my $bonusmsg = _bonusmsg($tot);
if ($tot->{bad} == 0 && $tot->{max}) {
-# print "All tests successful$bonusmsg.\n";
- print "All tests successful.\n";
+ print "All tests successful$bonusmsg.\n";
} elsif ($tot->{tests}==0){
die "FAILED--no tests were run for some reason.\n";
} elsif ($tot->{max} == 0) {