followup: refactor loop to use perls values

Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
This commit is contained in:
Thomas Lamprecht 2020-04-07 17:15:28 +02:00
parent 84da82174e
commit abff03211f

View File

@ -3469,8 +3469,8 @@ __PACKAGE__->register_method({
$rpcenv->check_vm_perm($authuser, $vmid, undef, ['VM.Config.Disk'])
if !defined($storagemap->{identity});
foreach my $source (keys %{$storagemap->{entries}}) {
$check_storage->($storagemap->{entries}->{$source});
foreach my $source (values %{$storagemap->{entries}}) {
$check_storage->($source);
}
$check_storage->($storagemap->{default})