avoid warning if vm does not belong to a pool

This commit is contained in:
Dietmar Maurer 2012-05-23 07:42:55 +02:00
parent a125592ce0
commit 5d0094ead9

View File

@ -907,11 +907,12 @@ __PACKAGE__->register_method({
my $delVMfromPoolFn = sub {
my $usercfg = cfs_read_file("user.cfg");
my $pool = $usercfg->{vms}->{$vmid};
if (my $data = $usercfg->{pools}->{$pool}) {
delete $data->{vms}->{$vmid};
delete $usercfg->{vms}->{$vmid};
cfs_write_file("user.cfg", $usercfg);
if (my $pool = $usercfg->{vms}->{$vmid}) {
if (my $data = $usercfg->{pools}->{$pool}) {
delete $data->{vms}->{$vmid};
delete $usercfg->{vms}->{$vmid};
cfs_write_file("user.cfg", $usercfg);
}
}
};