Displaying 1 result from an estimated 1 matches for "bd382cb11".
2018 Apr 16
2
[PATCH] v2v: Give better diagnostics if filesystem falls back to read-only (RHBZ#1567763).
...00644
--- a/generator/OCaml.ml
+++ b/generator/OCaml.ml
@@ -40,6 +40,7 @@ let ocaml_errnos = [
"EPERM";
"ESRCH";
"ENOENT";
+ "EROFS";
]
(* Generate the OCaml bindings interface. *)
diff --git a/v2v/inspect_source.ml b/v2v/inspect_source.ml
index bd382cb11..c1a7e5737 100644
--- a/v2v/inspect_source.ml
+++ b/v2v/inspect_source.ml
@@ -41,16 +41,33 @@ let rec inspect_source root_choice g =
let mps = List.sort cmp mps in
List.iter (
fun (mp, dev) ->
- try g#mount dev mp
- with G.Error msg ->
- if mp = "/" then...