[ocaml] disable getenv invocation

mirage · Feb 15, 2010 · 5c2c09b · 5c2c09b
1 parent 6abec46
commit 5c2c09b
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/runtime/base/ocaml/byterun/sys.c b/runtime/base/ocaml/byterun/sys.c
@@ -204,11 +204,7 @@ CAMLprim value caml_sys_getcwd(value unit)
 
 CAMLprim value caml_sys_getenv(value var)
 {
-  char * res;
-
-  res = getenv(String_val(var));
-  if (res == 0) caml_raise_not_found();
-  return caml_copy_string(res);
+  caml_raise_not_found();
 }
 
 char * caml_exe_name;