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

View File

@ -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 } );
} }