Commit 16dfbed6 authored by Xavier Guimard's avatar Xavier Guimard

Tidy

parent f4e591ed
Pipeline #2357 passed with stages
in 6 minutes and 40 seconds
......@@ -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
......
......@@ -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 );
}
......
......@@ -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);
}
}
}
......
......@@ -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(
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment