make tidy

This commit is contained in:
Xavier Guimard 2010-10-04 17:27:32 +00:00
parent 030da0ee57
commit cc2fbdf7d1
2 changed files with 19 additions and 19 deletions

View File

@ -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($@);
} }
} }

View File

@ -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;