Fix #1207
This commit is contained in:
parent
2c1be99419
commit
c1bb34ab11
|
@ -716,14 +716,13 @@ sub getKey {
|
||||||
}
|
}
|
||||||
elsif ( $key =~ qr/^$doubleHashKeys$/o ) {
|
elsif ( $key =~ qr/^$doubleHashKeys$/o ) {
|
||||||
my @res;
|
my @res;
|
||||||
if ( defined $value ) {
|
$value ||= {};
|
||||||
foreach my $host ( sort keys %$value ) {
|
foreach my $host ( sort keys %$value ) {
|
||||||
my @tmp;
|
my @tmp;
|
||||||
foreach my $k ( sort keys %{ $value->{$host} } ) {
|
foreach my $k ( sort keys %{ $value->{$host} } ) {
|
||||||
push @tmp, { k => $k, v => $value->{$host}->{$k} };
|
push @tmp, { k => $k, v => $value->{$host}->{$k} };
|
||||||
}
|
|
||||||
push @res, { k => $host, h => \@tmp };
|
|
||||||
}
|
}
|
||||||
|
push @res, { k => $host, h => \@tmp };
|
||||||
}
|
}
|
||||||
return $self->sendJSONresponse( $req, { value => \@res } );
|
return $self->sendJSONresponse( $req, { value => \@res } );
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue
Block a user