X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=ocaml%2Fexamples%2Finspect_vm.ml;h=44d348e79244d6bdbc5526f6aa30eb1b1f51fd9a;hb=0c60e4d9dd6549c2135699490ba8a9ec1dd50ab9;hp=1d370c958b6d1011c8d32e4a7c2b53c2a98ee798;hpb=fc241abdbac7a016cd2fac169ad64876107df3c8;p=libguestfs.git

diff --git a/ocaml/examples/inspect_vm.ml b/ocaml/examples/inspect_vm.ml
index 1d370c9..44d348e 100644
--- a/ocaml/examples/inspect_vm.ml
+++ b/ocaml/examples/inspect_vm.ml
@@ -43,7 +43,11 @@ let () =
       let cmp (a,_) (b,_) =
         compare (String.length a) (String.length b) in
       let mps = List.sort cmp mps in
-      List.iter (fun (mp, dev) -> g#mount_ro dev mp) mps;
+      List.iter (
+        fun (mp, dev) ->
+          try g#mount_ro dev mp
+          with Guestfs.Error msg -> eprintf "%s (ignored)\n" msg
+      ) mps;
 
       (* If /etc/issue.net file exists, print up to 3 lines. *)
       let filename = "/etc/issue.net" in