Move programming information to libvirt generated doc.

[virt-top.git] / examples / list_domains.ml

diff --git a/examples/list_domains.ml b/examples/list_domains.ml
old mode 100755 (executable)
new mode 100644 (file)
index 9451ab2..c97432c
--- a/examples/list_domains.ml
+++ b/examples/list_domains.ml
@@ -17,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