migrate: fix auto-vivification in cleanup_bitmaps

this does not currently trigger since nothing uses $self->{target_drive}
afterwards.

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

diff --git a/PVE/QemuMigrate.pm b/PVE/QemuMigrate.pm
index b14ee012451243b8a6cfb90a9b7830e969deb76c..9ded16cfca3db94f1a6919bc0e5c1a173647533d 100644 (file)
--- a/PVE/QemuMigrate.pm
+++ b/PVE/QemuMigrate.pm
@@ -554,7 +554,7 @@ sub cleanup_remotedisks {
 
 sub cleanup_bitmaps {
     my ($self) = @_;
-    foreach my $drive (%{$self->{target_drive}}) {
+    foreach my $drive (keys %{$self->{target_drive}}) {
        my $bitmap = $self->{target_drive}->{$drive}->{bitmap};
        next if !$bitmap;
        $self->log('info', "$drive: removing block-dirty-bitmap '$bitmap'");