zfs: list images: code cleanup
Signed-off-by: Fiona Ebner <f.ebner@proxmox.com>
This commit is contained in:
committed by
Fabian Grünbichler
parent
4470f0cbe9
commit
39eb268662
@ -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;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user