From 106de8647719877ebd4511c209464caf12862c74 Mon Sep 17 00:00:00 2001
From: Xavier Guimard <xavier.guimard@laposte.net>
Date: Sun, 29 Sep 2013 18:06:54 +0000
Subject: [PATCH] Just for aesthetical

---
 .../lib/Lemonldap/NG/Portal/UserDBOpenID.pm              | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDBOpenID.pm b/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDBOpenID.pm
index 0066aebf3..d6192e76f 100644
--- a/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDBOpenID.pm
+++ b/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDBOpenID.pm
@@ -42,20 +42,19 @@ sub getUser {
 sub setSessionInfo {
     my $self = shift;
     if ( ref( $self->{exportedVars} ) eq 'HASH' ) {
-        foreach my $k ( keys %{ $self->{exportedVars} } ) {
+        while ( my ( $k, $v ) = each %{ $self->{exportedVars} } ) {
             my $attr = $k;
             my $required = ( $attr =~ s/^!// );
-            if ( $self->{exportedVars}->{$k} =~
+            if ( $v =~
 /^(?:(?:(?:full|nick)nam|languag|postcod|timezon)e|country|gender|email|dob)$/
               )
             {
-                $self->{sessionInfo}->{$attr} =
-                  $self->param("openid.sreg.$self->{exportedVars}->{$k}");
+                $self->{sessionInfo}->{$attr} = $self->param("openid.sreg.$v");
             }
             else {
                 $self->lmLog(
                     'Ignoring attribute '
-                      . $self->{exportedVars}->{$k}
+                      . $v
                       . ' which is not a valid OpenID SREG attribute',
                     'warn'
                 );