Change 13059 by ams@lustre on 2001/11/17 09:38:38
Subject: [PATCH] Benchmark.pm nit
From: Tels <[EMAIL PROTECTED]>
Date: Sat, 17 Nov 2001 11:29:23 +0100 (CET)
Affected files ...
.... //depot/perl/lib/Benchmark.pm#26 edit
Differences ...
==== //depot/perl/lib/Benchmark.pm#26 (text) ====
Index: perl/lib/Benchmark.pm
--- perl/lib/Benchmark.pm.~1~ Sat Nov 17 02:45:05 2001
+++ perl/lib/Benchmark.pm Sat Nov 17 02:45:05 2001
@@ -403,7 +403,7 @@
@EXPORT_OK=qw(timesum cmpthese countit
clearcache clearallcache disablecache enablecache);
-$VERSION = 1.01;
+$VERSION = 1.02;
&init;
@@ -687,7 +687,8 @@
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';
End of Patch.
