Avoid Perl warning

This commit is contained in:
Xavier Guimard 2013-04-15 04:12:34 +00:00
parent a280a8f993
commit 455ed3b4b4

View File

@ -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) )
{