This commit is contained in:
Xavier Guimard 2017-04-07 10:28:55 +00:00
parent 2c1be99419
commit c1bb34ab11

View File

@ -716,7 +716,7 @@ sub getKey {
}
elsif ( $key =~ qr/^$doubleHashKeys$/o ) {
my @res;
if ( defined $value ) {
$value ||= {};
foreach my $host ( sort keys %$value ) {
my @tmp;
foreach my $k ( sort keys %{ $value->{$host} } ) {
@ -724,7 +724,6 @@ sub getKey {
}
push @res, { k => $host, h => \@tmp };
}
}
return $self->sendJSONresponse( $req, { value => \@res } );
}