proxmox-mirrors/qemu-server
1
0
Fork 0
mirror of https://git.proxmox.com/git/qemu-server synced 2025-08-13 04:56:16 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

replace remaining vm_destroy call-sites with destroy_vm

Browse Source 
This function has been used in one place only into which we inlined its
functionality. Removing it avoids confusion between vm_destroy and vm_destroy.

The whole $importfn is executed in a lock_config_full.
As a consequence, for the inlined code:
1. lock_config is redundant
2. it is not possible that the VM has been started (check_running) in the
    meanwhile
Additionally, it is not possible that the "lock" property has been written into
the VM's config file (check_lock) in the meanwhile

Add warning after eval so that it does not go unnoticed if it ever comes into
action.

Signed-off-by: Dominic Jäger <d.jaeger@proxmox.com>
This commit is contained in:
Dominic Jäger 2019-10-28 12:47:32 +01:00 committed by Thomas Lamprecht
parent 93981fa799
commit b406ab6342
2 changed files with 3 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
PVE/CLI/qm.pm
View File

@ -645,7 +645,6 @@ __PACKAGE__->register_method ({
# reload after disks entries have been created
$conf = PVE::QemuConfig->load_config($vmid);
PVE::QemuConfig->check_lock($conf);
my $firstdisk = PVE::QemuServer::resolve_first_disk($conf);
$conf->{bootdisk} = $firstdisk if $firstdisk;
PVE::QemuConfig->write_config($vmid, $conf);
@ -654,7 +653,9 @@ __PACKAGE__->register_method ({
my $err = $@;
if ($err) {
my $skiplock = 1;
eval { PVE::QemuServer::vm_destroy($storecfg, $vmid, $skiplock); };
# eval for additional safety in error path
eval { PVE::QemuServer::destroy_vm($storecfg, $vmid, undef, $skiplock) };
warn "Could not destroy VM $vmid: $@" if "$@";
die "import failed - $err";
}
};

15
PVE/QemuServer.pm
View File

@ -5937,21 +5937,6 @@ sub vm_sendkey {
});
}
sub vm_destroy {
my ($storecfg, $vmid, $skiplock) = @_;
PVE::QemuConfig->lock_config($vmid, sub {
my $conf = PVE::QemuConfig->load_config($vmid);
if (!check_running($vmid)) {
destroy_vm($storecfg, $vmid, undef, $skiplock);
} else {
die "VM $vmid is running - destroy failed\n";
}
});
}
# vzdump restore implementaion
sub tar_archive_read_firstfile {