PR#6935:ocamldebug:load_printer raise uncaught exception when passing directory

Fix by catching Sys_error exception.
2015-11-17 18:15:17 -08:00 · 2015-11-17 18:15:17 -08:00 · 1f79677ffb
parent 1caf9364e3
commit 1f79677ffb
1 changed files with 3 additions and 0 deletions
--- a/debugger/loadprinter.ml
+++ b/debugger/loadprinter.ml
@ -76,6 +76,9 @@ let rec loadfiles ppf name =
  | Not_found ->
      fprintf ppf "Cannot find file %s@." name;
      false
+  | Sys_error msg ->
+      fprintf ppf "%s: %s@." name msg;
+      false
  | Dynlink.Error e ->
      raise(Error(Load_failure e))