use foreach_drive in foreach_storage_used_by_vm

Signed-off-by: Fabian Grünbichler <f.gruenbichler@proxmox.com>

diff --git a/PVE/QemuServer.pm b/PVE/QemuServer.pm
index eb9eae2009509223e023db3e4c87d6bcd7feba3b..0f4af1d8dc7ff978f46f6f7554c1ebe4ad99ceb0 100644 (file)
--- a/PVE/QemuServer.pm
+++ b/PVE/QemuServer.pm
@@ -5825,18 +5825,15 @@ sub foreach_storage_used_by_vm {
 
     my $sidhash = {};
 
-    foreach my $ds (keys %$conf) {
-       next if !is_valid_drivename($ds);
-
-       my $drive = parse_drive($ds, $conf->{$ds});
-       next if !$drive;
-       next if drive_is_cdrom($drive);
+    foreach_drive($conf, sub {
+       my ($ds, $drive) = @_;
+       return if drive_is_cdrom($drive);
 
        my $volid = $drive->{file};
 
        my ($sid, $volname) = PVE::Storage::parse_volume_id($volid, 1);
        $sidhash->{$sid} = $sid if $sid;
-    }
+    });
 
     foreach my $sid (sort keys %$sidhash) {
        &$func($sid);