aboutsummaryrefslogtreecommitdiff
path: root/ide/ideutils.ml
diff options
context:
space:
mode:
Diffstat (limited to 'ide/ideutils.ml')
-rw-r--r--ide/ideutils.ml6
1 files changed, 3 insertions, 3 deletions
diff --git a/ide/ideutils.ml b/ide/ideutils.ml
index 4cf9c1ba22..f8af156c47 100644
--- a/ide/ideutils.ml
+++ b/ide/ideutils.ml
@@ -244,7 +244,7 @@ let rec print_list print fmt = function
let run_command f c =
let result = Buffer.create 127 in
- let cin,cout,cerr = Unix.open_process_full c [||] in
+ let cin,cout,cerr = Unix.open_process_full c (Unix.environment ()) in
let buff = String.make 127 ' ' in
let buffe = String.make 127 ' ' in
let n = ref 0 in
@@ -253,10 +253,10 @@ let run_command f c =
while n:= input cin buff 0 127 ; ne := input cerr buffe 0 127 ;
!n+ !ne <> 0
do
- let r = String.sub buff 0 !n in
+ let r = try_convert (String.sub buff 0 !n) in
f r;
Buffer.add_string result r;
- let r = String.sub buffe 0 !ne in
+ let r = try_convert (String.sub buffe 0 !ne) in
f r;
Buffer.add_string result r
done;