cleanup previous commit

This commit is contained in:
Dietmar Maurer 2014-01-10 13:09:19 +01:00
parent a89fded11f
commit 8b8345f3ac

View File

@ -3094,30 +3094,30 @@ sub qga_unfreezefs {
#need to impplement call to qemu-ga #need to impplement call to qemu-ga
} }
sub PVE::QemuServer::set_migration_caps { sub set_migration_caps {
my ($vmid) = @_; my ($vmid) = @_;
my @capabilities = (); my $cap_ref = [];
my $cap_ref = \@capabilities;
my $enabled_cap = { my $enabled_cap = {
"auto-converge" => 1, "auto-converge" => 1,
"xbzrle" => 0, "xbzrle" => 0,
"x-rdma-pin-all" => 0, "x-rdma-pin-all" => 0,
"zero-blocks" => 0, "zero-blocks" => 0,
}; };
my $supported_capabilities = PVE::QemuServer::vm_mon_cmd_nocheck($vmid, "query-migrate-capabilities"); my $supported_capabilities = vm_mon_cmd_nocheck($vmid, "query-migrate-capabilities");
for my $supported_capability (@$supported_capabilities){ for my $supported_capability (@$supported_capabilities) {
if($enabled_cap->{$supported_capability->{capability}} eq 1){ if ($enabled_cap->{$supported_capability->{capability}} eq 1) {
my $capability->{capability} = $supported_capability->{capability}; push @$cap_ref, {
$capability->{state} = JSON::true; capability => $supported_capability->{capability},
push(@$cap_ref,$capability); state => JSON::true,
};
} }
} }
PVE::QemuServer::vm_mon_cmd_nocheck($vmid, "migrate-set-capabilities", capabilities => $cap_ref); vm_mon_cmd_nocheck($vmid, "migrate-set-capabilities", capabilities => $cap_ref);
} }
sub vm_start { sub vm_start {