migration: log error from query-migrate upon migration failure

if it is present. Should give more information for some failures and
even if it's not present, that fact helps to narrow things down.

Signed-off-by: Fiona Ebner <f.ebner@proxmox.com>

diff --git a/PVE/QemuMigrate.pm b/PVE/QemuMigrate.pm
index 5e466d954cb21d3b3c30d41dfc6ed1b77b765b51..cb0afaa7c776d9d50c8496f244ad732cf7588c4f 100644 (file)
--- a/PVE/QemuMigrate.pm
+++ b/PVE/QemuMigrate.pm
@@ -1271,7 +1271,8 @@ sub phase2 {
        }
 
        if ($status eq 'failed' || $status eq 'cancelled') {
-           $self->log('info', "migration status error: $status");
+           my $message = $stat->{'error-desc'} ? "$status - $stat->{'error-desc'}" : $status;
+           $self->log('info', "migration status error: $message");
            die "aborting\n"
        }