From 455ed3b4b49574fec5149a2d5ee184771a4593a0 Mon Sep 17 00:00:00 2001
From: Xavier Guimard <xavier.guimard@laposte.net>
Date: Mon, 15 Apr 2013 04:12:34 +0000
Subject: [PATCH] Avoid Perl warning

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

diff --git a/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/IssuerDBSAML.pm b/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/IssuerDBSAML.pm
index 06b55d0f1..e50c3ff7a 100644
--- a/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/IssuerDBSAML.pm
+++ b/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/IssuerDBSAML.pm
@@ -1628,7 +1628,7 @@ sub issuerForAuthUser {
             # log that a SAML authn response is build
             my $user = $self->{sessionInfo}->{ $self->{whatToTrace} };
             my $nameIDLog;
-            foreach my $format qw(persistent transient) {
+            foreach my $format (qw(persistent transient)) {
                 if ( $login->nameIdentifier->Format eq
                     $self->getNameIDFormat($format) )
                 {