From: Abigail <abigail@abigail.be>
Date: Sun, 1 Feb 1998 06:46:08 +0000 (-0500)
Subject: Benchmark.pm: timethese corrupts $_
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4dbb2df9033a1a358a66bce3293b105dd8f84d8c;p=p5sagit%2Fp5-mst-13.2.git

Benchmark.pm: timethese corrupts $_

p4raw-id: //depot/perl@474
---

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