X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=virt-top%2Fvirt_top.ml;h=b3e26282db597603023a8914cd739c5322eedcd9;hb=c296b68c99f8c22b0c7db1b072a6cd86f9ac3da9;hp=4bce7dd28ba7b14798879d12bc1e4de48013ead5;hpb=02f659ab60024d194977a58795232398350eec13;p=virt-top.git

diff --git a/virt-top/virt_top.ml b/virt-top/virt_top.ml
old mode 100644
new mode 100755
index 4bce7dd..b3e2628
--- a/virt-top/virt_top.ml
+++ b/virt-top/virt_top.ml
@@ -241,7 +241,7 @@ OPTIONS" in
     (* 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
+    | Libvirt.Not_supported "virConnectGetHostname" -> "unknown" in
 
   let libvirt_version =
     let v, _ = Libvirt.get_version () in
@@ -433,12 +433,12 @@ let collect, clear_pcpu_display_data =
 	      let block_stats =
 		try List.map (fun dev -> dev, D.block_stats dom dev) blkdevs
 		with
-		| Invalid_argument "virDomainBlockStats not supported"
+		| Libvirt.Not_supported "virDomainBlockStats"
 		| Libvirt.Virterror _ -> [] in
 	      let interface_stats =
 		try List.map (fun dev -> dev, D.interface_stats dom dev) netifs
 		with
-		| Invalid_argument "virDomainInterfaceStats not supported"
+		| Libvirt.Not_supported "virDomainInterfaceStats"
 		| Libvirt.Virterror _ -> [] in
 
 	      let prev_info, prev_block_stats, prev_interface_stats =