diff options
| author | David Mitchell <davem@iabyn.com> | 2011-06-15 16:12:16 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2011-06-15 16:12:16 +0100 |
| commit | 58747404ef23d45dec1e39238612403d2ffe64d9 (patch) | |
| tree | 2be728390c15d7023061d7a9d1e879c1d127ed3a | |
| parent | 6e59d93aee950461947904b4f24a7f52c6c85f58 (diff) | |
| download | perl-58747404ef23d45dec1e39238612403d2ffe64d9.tar.gz | |
Benchmark.t: fix count estimate
Commit bb6c6e4b8d10f2e460a7fe48e677d3d998a7f77d, which added
improved diagnostics, also broke the count estimate.
| -rw-r--r-- | lib/Benchmark.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Benchmark.t b/lib/Benchmark.t index fdf2d039a8..fde9ada984 100644 --- a/lib/Benchmark.t +++ b/lib/Benchmark.t @@ -69,7 +69,7 @@ my $in_threesecs_adj = $in_threesecs; $in_threesecs_adj *= (3/$cpu3); # adjust because may not have run for exactly 3s print "# in_threesecs_adj=$in_threesecs_adj adjusted iterations\n"; -my $estimate = int (100 * $in_threesecs / 3) / 100; +my $estimate = int (100 * $in_threesecs_adj / 3) / 100; print "# from the 3 second run estimate $estimate iterations in 1 second...\n"; $baz = 0; my $onesec = countit(1, $coderef); |