X-Git-Url: http://git.annexia.org/?p=virt-top.git;a=blobdiff_plain;f=virt-ctrl%2Fvirt_ctrl.ml;fp=virt-ctrl%2Fvirt_ctrl.ml;h=b4a31593761dab14bd59a495ba6d7b0a40934376;hp=1de68f41267d7d5fbdf1b0da2e6631cedf2ac248;hb=5881ddaa61385403718e1e5b415057a2d3ef4c45;hpb=8a2211eb0976db33a6795ee9933bd7e7400c933c

diff --git a/virt-ctrl/virt_ctrl.ml b/virt-ctrl/virt_ctrl.ml
index 1de68f4..b4a3159 100644
--- a/virt-ctrl/virt_ctrl.ml
+++ b/virt-ctrl/virt_ctrl.ml
@@ -29,4 +29,7 @@ let () =
     ~shutdown_domain:Vc_domain_ops.shutdown_domain;
 
   (* Enter the Gtk main loop. *)
-  GMain.main ()
+  GMain.main ();
+
+  (* Useful to catch memory bugs in the ocaml libvirt bindings. *)
+  Gc.compact ()