From 78fb6c53f236cc3dc8c072a5662bd1905e465f85 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Thu, 7 May 2015 11:19:16 +0200 Subject: [PATCH] in CCUnix, use `Unix.environment` as the default environment --- src/unix/CCUnix.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/unix/CCUnix.ml b/src/unix/CCUnix.ml index 9f498225..b996f279 100644 --- a/src/unix/CCUnix.ml +++ b/src/unix/CCUnix.ml @@ -88,7 +88,7 @@ type call_result = 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 *) let buf = Buffer.create 256 in kbprintf' buf cmd @@ -125,7 +125,7 @@ type async_call_result = wait:Unix.process_status; (* block until the process ends *) > -let async_call ?(env=[||]) cmd = +let async_call ?(env=Unix.environment()) cmd = (* render the command *) let buf = Buffer.create 256 in kbprintf' buf cmd