Unix.create_process => Unix.create_process_env

ocaml · Apr 30, 2018 · 596b5a6 · 596b5a6
1 parent ec98e86
commit 596b5a6
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/testsuite/tests/win-unicode/exec_tests.ml b/testsuite/tests/win-unicode/exec_tests.ml
@@ -54,7 +54,8 @@ let restart = function
 let main () =
   match Array.length Sys.argv with
   | 1 ->
-      let pid = Unix.create_process Sys.executable_name [|Sys.executable_name; "0"|] Unix.stdin Unix.stdout Unix.stderr in
+      let pid = Unix.create_process_env Sys.executable_name [|Sys.executable_name; "0"|]
+          (Unix.environment ()) Unix.stdin Unix.stdout Unix.stderr in
       begin match Unix.waitpid [] pid with
       | _, Unix.WEXITED 0 -> ()
       | _, (Unix.WEXITED _ | Unix.WSIGNALED _ | Unix.WSTOPPED _) -> failwith "Child process error"