From 4a3610a5813163d322b304d56b41bb68dbe83513 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Thu, 20 Sep 2007 15:13:33 +0100
Subject: 	* virt-top/virt_top.ml: qemu:/// URIs (and others) don't
 support 	  virConnectGetHostname.  Catch this exception.

---
 virt-top/virt_top.ml | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'virt-top')

diff --git a/virt-top/virt_top.ml b/virt-top/virt_top.ml
index a621a18..a5953f3 100644
--- a/virt-top/virt_top.ml
+++ b/virt-top/virt_top.ml
@@ -137,6 +137,9 @@ OPTIONS" in
   let hostname =
     try C.get_hostname conn
     with
+    (* qemu:/// and other URIs didn't support virConnectGetHostname until
+     * libvirt 0.3.3.  Before that they'd throw a virterror. *)
+    | Libvirt.Virterror _
     | Invalid_argument "virConnectGetHostname not supported" -> "unknown" in
 
   let libvirt_version =
-- 
cgit