This commit is contained in:
Xavier Guimard 2018-07-12 09:04:05 +02:00
parent f4e591ed02
commit 16dfbed636
4 changed files with 7 additions and 7 deletions

View File

@ -129,7 +129,7 @@
.\" ========================================================================
.\"
.IX Title "llng-fastcgi-server 1"
.TH llng-fastcgi-server 1 "2018-06-12" "perl v5.26.2" "User Contributed Perl Documentation"
.TH llng-fastcgi-server 1 "2018-07-02" "perl v5.26.2" "User Contributed Perl Documentation"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l

View File

@ -744,7 +744,7 @@ sub metadata {
}
else {
$self->logger->info(
"REST request to get configuration metadata ($res->{cfgNum})" );
"REST request to get configuration metadata ($res->{cfgNum})");
}
return $self->sendJSONresponse( $req, $res );
}

View File

@ -65,7 +65,7 @@ sub _wrapEntryPoint {
# Launch sub and break loop if result isn't PE_OK (==0)
if ( my $sub = $_->$name() ) {
my $res = $_->$sub($req);
return $res if($res);
return $res if ($res);
}
}
}

View File

@ -59,11 +59,11 @@ SKIP: {
# Try yo authenticate
# -------------------
ok( $res = $client->_get('/',accept=>'text/html'), 'Get menu');
my @form = ($res->[2]->[0] =~ m#<form.*?</form>#sg);
ok(@form ==2,'Display 2 choices');
ok( $res = $client->_get( '/', accept => 'text/html' ), 'Get menu' );
my @form = ( $res->[2]->[0] =~ m#<form.*?</form>#sg );
ok( @form == 2, 'Display 2 choices' );
foreach (@form) {
expectForm([$res->[0],$res->[1],[$_]],undef,undef,'test');
expectForm( [ $res->[0], $res->[1], [$_] ], undef, undef, 'test' );
}
ok(
$res = $client->_post(