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
|
# log that a SAML authn response is build
|
||||||
my $user = $self->{sessionInfo}->{ $self->{whatToTrace} };
|
my $user = $self->{sessionInfo}->{ $self->{whatToTrace} };
|
||||||
my $nameIDLog;
|
my $nameIDLog;
|
||||||
foreach my $format qw(persistent transient) {
|
foreach my $format (qw(persistent transient)) {
|
||||||
if ( $login->nameIdentifier->Format eq
|
if ( $login->nameIdentifier->Format eq
|
||||||
$self->getNameIDFormat($format) )
|
$self->getNameIDFormat($format) )
|
||||||
{
|
{
|
||||||
|
Loading…
Reference in New Issue
Block a user