diff options
| author | Tels <nospam-abuse@bloodgate.com> | 2001-11-17 12:29:23 +0100 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2001-11-17 09:38:38 +0000 |
| commit | df7779cfe685aee627732a875b653ed34ef983ed (patch) | |
| tree | 7f6ec92b04519a218a4f028a10a296f56f7cc1eb /lib/Benchmark.pm | |
| parent | a778afa6a6f35f52eba5ee0f0eaae0aa3d425381 (diff) | |
| download | perl-df7779cfe685aee627732a875b653ed34ef983ed.tar.gz | |
Benchmark.pm nit
p4raw-id: //depot/perl@13059
Diffstat (limited to 'lib/Benchmark.pm')
| -rw-r--r-- | lib/Benchmark.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Benchmark.pm b/lib/Benchmark.pm index b39ec461d9..9de99740bb 100644 --- a/lib/Benchmark.pm +++ b/lib/Benchmark.pm @@ -403,7 +403,7 @@ use Exporter; @EXPORT_OK=qw(timesum cmpthese countit clearcache clearallcache disablecache enablecache); -$VERSION = 1.01; +$VERSION = 1.02; &init; @@ -687,7 +687,8 @@ sub timethese{ print " ", join(', ',@names) unless $style eq 'none'; unless ( $n > 0 ) { my $for = n_to_for( $n ); - print ", each for at least $for CPU seconds" unless $style eq 'none'; + print ", each" if $n > 1 && $style ne 'none'; + print " for at least $for CPU seconds" unless $style eq 'none'; } print "...\n" unless $style eq 'none'; |