From a9a49e32c1f9e78c132567d5d8b9d71e4569812e Mon Sep 17 00:00:00 2001 From: Thomas Lamprecht Date: Wed, 23 Jan 2019 13:50:14 +0100 Subject: [PATCH] fix #1794: VM resource: catch qmp command exceptions Signed-off-by: Thomas Lamprecht --- src/PVE/HA/Resources/PVEVM.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/PVE/HA/Resources/PVEVM.pm b/src/PVE/HA/Resources/PVEVM.pm index c5276dc..d07d5c9 100644 --- a/src/PVE/HA/Resources/PVEVM.pm +++ b/src/PVE/HA/Resources/PVEVM.pm @@ -124,8 +124,12 @@ sub check_running { # do not count VMs which are suspended for a backup job as running my $conf = PVE::QemuConfig->load_config($vmid, $nodename); if (defined($conf->{lock}) && $conf->{lock} eq 'backup') { - my $qmpstatus = PVE::QemuServer::vm_qmp_command($vmid, {execute => 'query-status'}); - return 0 if $qmpstatus->{status} eq 'prelaunch'; + my $qmpstatus = eval { + PVE::QemuServer::vm_qmp_command($vmid, { execute => 'query-status' }) + }; + warn "$@\n" if $@; + + return 0 if defined($qmpstatus) && $qmpstatus->{status} eq 'prelaunch'; } return 1; -- 2.39.2