PVE::CLIHandler::print_api_list - improve format check

We can only print lists of objects.

diff --git a/src/PVE/CLIHandler.pm b/src/PVE/CLIHandler.pm
index a9ebc4731acb7555c30c3f17b3b292a776db932a..41ac6c26f6d42d33ca26e9595686ed6b6c14ba60 100644 (file)
--- a/src/PVE/CLIHandler.pm
+++ b/src/PVE/CLIHandler.pm
@@ -495,7 +495,8 @@ sub print_text_table {
 sub print_api_list {
     my ($data, $returninfo, $props_to_print) = @_;
 
 sub print_api_list {
     my ($data, $returninfo, $props_to_print) = @_;
 

-    die "can only print array result" if $returninfo->{type} ne 'array';
+    die "can only print object lists\n"
+       if !($returninfo->{type} eq 'array' && $returninfo->{items}->{type} eq 'object');

 
     my $returnprops = $returninfo->{items}->{properties};
 
 
     my $returnprops = $returninfo->{items}->{properties};