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 a9ebc47..41ac6c2 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) = @_;
 
-    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};