Avoid Perl warning
This commit is contained in:
parent
a280a8f993
commit
455ed3b4b4
|
@ -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) )
|
||||
{
|
||||
|
|
Loading…
Reference in New Issue
Block a user