diff options
| author | Abigail <abigail@abigail.be> | 1998-02-01 01:46:08 -0500 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-06 16:43:46 +0000 |
| commit | 4dbb2df9033a1a358a66bce3293b105dd8f84d8c (patch) | |
| tree | f03aa95eb7b7ddd2729ea3edd9557788ffea0dc7 /lib/Benchmark.pm | |
| parent | 9da1e3b5d1d609c7d834473bb3d3269a772dff38 (diff) | |
| download | perl-4dbb2df9033a1a358a66bce3293b105dd8f84d8c.tar.gz | |
Benchmark.pm: timethese corrupts $_
p4raw-id: //depot/perl@474
Diffstat (limited to 'lib/Benchmark.pm')
| -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; |