Commit e507700a authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2006-06-06 06:41:13 by afrisch] Empty log message

Original author: afrisch
Date: 2006-06-06 06:41:13+00:00
parent 2f1dde50
......@@ -34,7 +34,10 @@ end
let run_process cmd =
let (sout,sin,serr) as h = Unix.open_process_full cmd (Unix.environment()) in
close_out sin;
Unix.close (Unix.descr_of_out_channel sin);
(* used to be: (close_out sin), but OCaml 3.09.2 seems to segfault
on double closing channels. *)
let sout = Reader.ic sout in
let serr = Reader.ic serr in
sout,serr, Unix.close_process_full h
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