From abff03211f28018ce193911173afa39ba1a6ff24 Mon Sep 17 00:00:00 2001
From: Thomas Lamprecht <t.lamprecht@proxmox.com>
Date: Tue, 7 Apr 2020 17:15:28 +0200
Subject: [PATCH] followup: refactor loop to use perls values

Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
---
 PVE/API2/Qemu.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/PVE/API2/Qemu.pm b/PVE/API2/Qemu.pm
index e19f7d93..027bbf6f 100644
--- a/PVE/API2/Qemu.pm
+++ b/PVE/API2/Qemu.pm
@@ -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})