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