projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
b3d54cb
)
The #4880 was too eager, the $n test is useful too.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Fri, 28 Jan 2000 09:03:37 +0000
(09:03 +0000)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Fri, 28 Jan 2000 09:03:37 +0000
(09:03 +0000)
p4raw-id: //depot/cfgperl@4918
lib/Benchmark.pm
patch
|
blob
|
history
diff --git
a/lib/Benchmark.pm
b/lib/Benchmark.pm
index
7cb78eb
..
f9ade27
100644
(file)
--- a/
lib/Benchmark.pm
+++ b/
lib/Benchmark.pm
@@
-435,7
+435,7
@@
sub timestr {
$r,$pu,$ps,$pt) if $style eq 'noc';
$s=sprintf("%2d wallclock secs (%$f cusr + %$f csys = %$f CPU)",
$r,$cu,$cs,$ct) if $style eq 'nop';
- $s .= sprintf(" @ %$f/s (n=$n)", $n / ( $pu + $ps )) if $
pu +
$ps;
+ $s .= sprintf(" @ %$f/s (n=$n)", $n / ( $pu + $ps )) if $
n && $pu+
$ps;
$s;
}