diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-02 10:13:10 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-02 10:13:10 +0000 |
| commit | 6a0dd2cacfdb027e8f812533c89aa031ce506a85 (patch) | |
| tree | 63bd92c491c69d42eb057320cf0266d587940b72 /lib/Benchmark.pm | |
| parent | e2c3adefd8c31a020997b83179ab5ab417e7e4ac (diff) | |
| parent | cc31225e4d4aa42bdd0b59e2f2e27664df411220 (diff) | |
| download | perl-6a0dd2cacfdb027e8f812533c89aa031ce506a85.tar.gz | |
integrate selected changes from cfgperl (#4899,4900,4904,4918)
p4raw-id: //depot/perl@4962
Diffstat (limited to 'lib/Benchmark.pm')
| -rw-r--r-- | lib/Benchmark.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Benchmark.pm b/lib/Benchmark.pm index 5157aad4a0..3c10a5bc52 100644 --- 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; } |