make tidy
This commit is contained in:
parent
030da0ee57
commit
cc2fbdf7d1
@ -361,19 +361,19 @@ s/^(samlSPMetaDataXML|samlSPMetaDataExportedAttributes|samlSPMetaDataOptions)\/(
|
||||
{
|
||||
my $tests = $self->globalTests($newConf);
|
||||
while ( my ( $name, $sub ) = each %$tests ) {
|
||||
my ( $res, $msg );
|
||||
eval {
|
||||
( $res, $msg ) = $sub->();
|
||||
if ($res) {
|
||||
if ($msg) {
|
||||
my ( $res, $msg );
|
||||
eval {
|
||||
( $res, $msg ) = $sub->();
|
||||
if ($res) {
|
||||
if ($msg) {
|
||||
$errors->{warnings}->{$name} = $msg;
|
||||
}
|
||||
}
|
||||
}
|
||||
else {
|
||||
$errors->{error}->{$name} = $msg;
|
||||
}
|
||||
};
|
||||
$errors->{warnings}->{$name} = "Test $name failed: $@" if($@);
|
||||
else {
|
||||
$errors->{error}->{$name} = $msg;
|
||||
}
|
||||
};
|
||||
$errors->{warnings}->{$name} = "Test $name failed: $@" if ($@);
|
||||
}
|
||||
}
|
||||
|
||||
|
@ -235,16 +235,16 @@ sub sregfilter {
|
||||
}
|
||||
|
||||
# Warn if some parameters are rejected
|
||||
if (@rej) {
|
||||
$self->lmLog(
|
||||
"Requested parameter(s) "
|
||||
. join( ',', @rej )
|
||||
. "is(are) not valid OpenID SREG parameter(s)",
|
||||
if (@rej) {
|
||||
$self->lmLog(
|
||||
"Requested parameter(s) "
|
||||
. join( ',', @rej )
|
||||
. "is(are) not valid OpenID SREG parameter(s)",
|
||||
'warn'
|
||||
);
|
||||
}
|
||||
);
|
||||
}
|
||||
|
||||
# Return valid SREG parameters
|
||||
return @ret;
|
||||
return @ret;
|
||||
}
|
||||
1;
|
||||
|
Loading…
Reference in New Issue
Block a user