# HG changeset patch
# User David Scott <dave.scott@xxxxxxxxxxxxx>
# Date 1259595423 0
# Node ID b7ea5ea562e0a28e01736cbf7b7fc4b20f2f579d
# Parent  968a9c3b6d3cabb434a4d6252c1caabe0edb78e8
CA-35165: Remove a spurious excxeption when refreshing VM_guest_metrics when the VM_guest_metrics doesn't exist (ie for dom0)

Signed-off-by: David Scott <dave.scott@xxxxxxxxxxxxx>

diff -r 968a9c3b6d3c -r b7ea5ea562e0 ocaml/xapi/xapi_guest_agent.ml
--- a/ocaml/xapi/xapi_guest_agent.ml	Mon Nov 30 15:37:03 2009 +0000
+++ b/ocaml/xapi/xapi_guest_agent.ml	Mon Nov 30 15:37:03 2009 +0000
@@ -126,7 +126,9 @@
     with _ -> 
       (* Make sure our cached idea of whether the domain is live or not is correct *)
       let vm_guest_metrics = Db.VM.get_guest_metrics ~__context ~self in
-      let live = try Db.VM_guest_metrics.get_live ~__context ~self:vm_guest_metrics with _ -> false in
+	  let live = true
+		&& Db.is_valid_ref vm_guest_metrics 
+		&& Db.VM_guest_metrics.get_live ~__context ~self:vm_guest_metrics in
       if live then
 	dead_domains := IntSet.remove domid !dead_domains
       else