zfs: list images: code cleanup

Signed-off-by: Fiona Ebner <f.ebner@proxmox.com>
This commit is contained in:
Fiona Ebner
2022-12-20 14:16:38 +01:00
committed by Fabian Grünbichler
parent 4470f0cbe9
commit 39eb268662

View File

@ -254,16 +254,11 @@ sub free_image {
sub list_images { sub list_images {
my ($class, $storeid, $scfg, $vmid, $vollist, $cache) = @_; my ($class, $storeid, $scfg, $vmid, $vollist, $cache) = @_;
my $zfs_list = $class->zfs_list_zvol($scfg); my $zfs_list = $class->zfs_list_zvol($scfg) // {};
my $res = []; my $res = [];
if (my $dat = $zfs_list) { for my $info (values $zfs_list->%*) {
foreach my $image (keys %$dat) {
my $info = $dat->{$image};
my $volname = $info->{name}; my $volname = $info->{name};
my $parent = $info->{parent}; my $parent = $info->{parent};
my $owner = $info->{vmid}; my $owner = $info->{vmid};
@ -284,7 +279,6 @@ sub list_images {
push @$res, $info; push @$res, $info;
} }
}
return $res; return $res;
} }