Skip to content
Permalink
Browse files

adding more debug output

  • Loading branch information...
quicquid committed Nov 29, 2016
1 parent ca8dbea commit dacae3ff1b0a003c3aff012068a64c09fa07c0e8
Showing with 3 additions and 1 deletion.
  1. +3 −1 src/params.ml
@@ -81,7 +81,9 @@ let get_exec e =
| Unchecked (exec, cmd, vers) ->
let tod = Unix.gettimeofday () |> int_of_float in
let r = 10000 + (Random.int 10000) in
let stat = sprintf "%s stat `which %s` >/tmp/stat-%d-%d.txt" path_prefix exec tod r in
let stat = sprintf "echo path prefix: \"%s\" ; %s stat `which %s` >/tmp/stat-%d-%d.txt"
path_prefix path_prefix exec tod r in

ignore (Sys.command stat);
let check = sprintf "%s type %s >/tmp/check-%d-%d.txt" path_prefix exec tod r in
eprintf "probing command: %s\n" check;

0 comments on commit dacae3f

Please sign in to comment.
You can’t perform that action at this time.