Benchmark.pm: timethese corrupts $_

p4raw-id: //depot/perl@474

diff --git a/lib/Benchmark.pm b/lib/Benchmark.pm
index 13acf86..e09bc92 100644 (file)
--- 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;