Commit 01565163 authored by Francois Bobot's avatar Francois Bobot
Browse files

on utilise reellement le timeout

parent 55605308
......@@ -69,7 +69,7 @@ let timed_sys_command ?stdin ?(debug=false) ?timeout cmd =
let t0 = Unix.times () in
let cmd = match timeout with
| None -> Format.sprintf "%s 2>&1" cmd
| Some timeout -> Format.sprintf "%s" (*!cpulimit timeout*) cmd in
| Some timeout -> Format.sprintf "%s %d %s 2>&1" !cpulimit timeout cmd in
if debug then Format.eprintf "command line: %s@." cmd;
let (cin,cout) as p = Unix.open_process cmd in
(match stdin with
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment