diff options
| -rw-r--r-- | lib/Benchmark.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/Benchmark.pm b/lib/Benchmark.pm index 13acf869bc..e09bc92958 100644 --- a/lib/Benchmark.pm +++ b/lib/Benchmark.pm @@ -367,7 +367,9 @@ sub timethese{ # we could save the results in an array and produce a summary here # sum, min, max, avg etc etc - map timethis($n, $alt->{$_}, $_, $style), @names; + foreach my $name (@names) { + timethis ($n, $alt -> {$name}, $name, $style); + } } 1; |