git.annexia.org
/
libguestfs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
mkfs: Don't die if mke2fs is not available.
[libguestfs.git]
/
ocaml
/
examples
/
inspect_vm.ml
diff --git
a/ocaml/examples/inspect_vm.ml
b/ocaml/examples/inspect_vm.ml
index
1d370c9
..
44d348e
100644
(file)
--- 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
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
(* If /etc/issue.net file exists, print up to 3 lines. *)
let filename = "/etc/issue.net" in