From 95c4523e58eb44450a5f89f308b2d49307e5997b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fran=C3=A7ois-Xavier=20Deltombe?= <fxdeltombe@gmail.com>
Date: Wed, 30 Jan 2013 16:08:44 +0000
Subject: [PATCH] Fix a perl var type error in Lemonldap::NG::Portal::Display

---
 lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Display.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Display.pm b/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Display.pm
index 20a0e6017..fe8432c62 100644
--- a/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Display.pm
+++ b/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Display.pm
@@ -314,7 +314,7 @@ sub display {
 
     # Load specific skin from skinRules
     if ( $self->{portalSkinRules} ) {
-        foreach my $skinRule ( sort keys $self->{portalSkinRules} ) {
+        foreach my $skinRule ( sort keys %{ $self->{portalSkinRules} } ) {
             if ( $self->safe->reval($skinRule) ) {
                 $skin = $self->{portalSkinRules}->{$skinRule};
                 $self->lmLog( "Skin $skin selected from skin rule", 'debug' );