Tidy
This commit is contained in:
parent
f4e591ed02
commit
16dfbed636
|
@ -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(
|
||||
|
|
Loading…
Reference in New Issue