simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 03:05:28 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

in CCUnix, use Unix.environment as the default environment

Browse source
This commit is contained in:
Simon Cruanes 2015-05-07 11:19:16 +02:00
parent d2a02793e2
commit 78fb6c53f2
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/unix/CCUnix.ml
View file

@ -88,7 +88,7 @@ type call_result =
let kbprintf' buf fmt k = Printf.kbprintf k buf fmt let kbprintf' buf fmt k = Printf.kbprintf k buf fmt
let call ?(bufsize=2048) ?(stdin=`Str "") ?(env=[||]) cmd = let call ?(bufsize=2048) ?(stdin=`Str "") ?(env=Unix.environment()) cmd =
(* render the command *) (* render the command *)
let buf = Buffer.create 256 in let buf = Buffer.create 256 in
kbprintf' buf cmd kbprintf' buf cmd
@ -125,7 +125,7 @@ type async_call_result =
wait:Unix.process_status; (* block until the process ends *) wait:Unix.process_status; (* block until the process ends *)
> >
let async_call ?(env=[||]) cmd = let async_call ?(env=Unix.environment()) cmd =
(* render the command *) (* render the command *)
let buf = Buffer.create 256 in let buf = Buffer.create 256 in
kbprintf' buf cmd kbprintf' buf cmd