From 5d0094ead9b8b1aeeca9d8bdf1ff9c4c0edfe386 Mon Sep 17 00:00:00 2001
From: Dietmar Maurer <dietmar@proxmox.com>
Date: Wed, 23 May 2012 07:42:55 +0200
Subject: [PATCH] avoid warning if vm does not belong to a pool

---
 PVE/API2/Qemu.pm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/PVE/API2/Qemu.pm b/PVE/API2/Qemu.pm
index 9b26e199..3895b189 100644
--- a/PVE/API2/Qemu.pm
+++ b/PVE/API2/Qemu.pm
@@ -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);
+		}
 	    }
 	};
 
-- 
2.39.5