Commit f83677ba authored by François Bobot's avatar François Bobot

[Fix] sysutil filedescriptor leak

parent 845d9ecb
......@@ -82,7 +82,9 @@ let copy_file from to_ =
let n = ref 0 in
while n := input cin buff 0 1024; !n <> 0 do
output cout buff 0 !n
done
done;
close_out cout;
close_in cin
let rec copy_dir from to_ =
if not (Sys.file_exists to_) then Unix.mkdir to_ 0o755;
......
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