X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=examples%2Flist_domains.ml;h=c97432c0938e7fff57f8c7fc9acd3bdf66ac8169;hb=5e15e5798813ee7d1f459685e669fcc22c870ec2;hp=9451ab2adff24b195743bcff0345694bf43872b9;hpb=3126bfee333b5c635dc60a54265936af06117f6a;p=virt-top.git

diff --git a/examples/list_domains.ml b/examples/list_domains.ml
old mode 100755
new mode 100644
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