X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=examples%2Flist_domains.ml;h=c97432c0938e7fff57f8c7fc9acd3bdf66ac8169;hb=eb57a2de474de79b12bacf61a7e9ed94d3b82429;hp=f7527544099382fa8bf15be94f9c5b1b96e465ff;hpb=a8b837d5018c488a130fcbea425904817a862210;p=virt-top.git

diff --git a/examples/list_domains.ml b/examples/list_domains.ml
index f752754..c97432c 100644
--- a/examples/list_domains.ml
+++ b/examples/list_domains.ml
@@ -2,7 +2,6 @@
    Usage: list_domains [URI]
    (C) Copyright 2007 Richard W.M. Jones, Red Hat Inc.
    http://libvirt.org/
-   $Id: list_domains.ml,v 1.1 2007/08/06 10:16:53 rjones Exp $
  *)
 
 open Printf
@@ -18,7 +17,7 @@ let () =
 	Some (Sys.argv.(1))
       else
 	None in
-    let conn = C.connect ?name () in
+    let conn = C.connect_readonly ?name () in
 
     (* List running domains. *)
     let n = C.num_of_domains conn in