From 9b4bab1fe618affd0e69666ec6467b414cee325e Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Tue, 8 Jan 2008 13:26:23 +0000
Subject: Move programming information to libvirt generated doc. 	*
 README, libvirt/libvirt.mli: Moved programming information to 	  libvirt
 generated documentation, greatly expanded examples and 	  other
 issues. 	* examples/Makefile.in, examples/node_info.ml,
 examples/.depend: 	  Added node_info example program. 	* .hgignore,
 Makefile.in: Ignore, clean up node_info binary. 	*
 examples/list_domains.ml: Make a read-only connection.

---
 examples/list_domains.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)
 mode change 100755 => 100644 examples/list_domains.ml

(limited to 'examples/list_domains.ml')

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
-- 
cgit