QemuMigrate: phase2_cleanup misses migrate_cancel

Signed-off-by: Stefan Priebe <s.priebe@profihost.ag>

diff --git a/PVE/QemuMigrate.pm b/PVE/QemuMigrate.pm
index 4239e511ad354af79295f2fda4e982e6711f14cf..de2ee578556a6d8129c9083b32df626c0edd91a6 100644 (file)
--- a/PVE/QemuMigrate.pm
+++ b/PVE/QemuMigrate.pm
@@ -470,6 +470,12 @@ sub phase2_cleanup {
 
     $self->log('info', "aborting phase 2 - cleanup resources");
 
+    $self->log('info', "migrate_cancel");
+    eval {
+       PVE::QemuServer::vm_mon_cmd_nocheck($vmid, "migrate_cancel");
+    };
+    $self->log('info', "migrate_cancel error: $@") if $@;
+
     my $conf = $self->{vmconf};
     delete $conf->{lock};
     eval { PVE::QemuServer::update_config_nolock($vmid, $conf, 1) };