[libmath-prime-util-perl] 26/43: Concerns about each

[Partha P. Mukherjee]

This is an automated email from the git hooks/post-receive script.

ppm-guest pushed a commit to annotated tag v0.40
in repository libmath-prime-util-perl.

commit 2b7dae3935b094e2685de4e2928980677a65250a
Author: Dana Jacobsen <dana at acm.org>
Date:   Thu Apr 3 11:44:30 2014 -0700

    Concerns about each
---
 lib/Math/Prime/Util.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/Math/Prime/Util.pm b/lib/Math/Prime/Util.pm
index e6947cf..c083865 100644
--- a/lib/Math/Prime/Util.pm
+++ b/lib/Math/Prime/Util.pm
@@ -156,7 +156,8 @@ sub prime_get_config {
 # loaded.  Your calls will probably die horribly.
 sub prime_set_config {
   my %params = (@_);  # no defaults
-  while (my($param, $value) = each %params) {
+  foreach my $param (keys %params) {
+    my $value = $params{$param};
     $param = lc $param;
     # dispatch table should go here.
     if      ($param eq 'xs') {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmath-prime-util-perl.git