From: Tels <nospam-abuse@bloodgate.com>
Date: Sat, 17 Nov 2001 11:29:23 +0000 (+0100)
Subject: Benchmark.pm nit
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=df7779cfe685aee627732a875b653ed34ef983ed;p=p5sagit%2Fp5-mst-13.2.git

Benchmark.pm nit

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

diff --git a/lib/Benchmark.pm b/lib/Benchmark.pm
index b39ec46..9de9974 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';