CA-33440: remove some more unused functions from forkhelpers

Signed-off-by: David Scott <dave.scott@eu.citrix.com>

diff --git a/stdext/forkhelpers.ml b/stdext/forkhelpers.ml
index f69a461b0bd000bfa710edada061332689653bb5..e5e8d32e9449f54a23eeb8bae85690d6526017b7 100644 (file)
--- a/stdext/forkhelpers.ml
+++ b/stdext/forkhelpers.ml
@@ -83,10 +83,6 @@ let with_logfile_fd ?(delete = true) prefix f =
     Failure(read_logfile(), e)
 
 
-let with_dev_null f = Unixext.with_file "/dev/null" [ Unix.O_WRONLY ] 0o0 f
-let with_dev_null_read f = Unixext.with_file "/dev/null" [ Unix.O_RDONLY ] 0o0 f
-
-
 exception Spawn_internal_error of string * string * Unix.process_status
 
 let id = ref 0 

diff --git a/stdext/forkhelpers.mli b/stdext/forkhelpers.mli
index 9cc4d6143bc64229b244d14381b7564c08aafa6c..7bbb86c713649cd881c037e596ccea22051b1afa 100644 (file)
--- a/stdext/forkhelpers.mli
+++ b/stdext/forkhelpers.mli
@@ -52,5 +52,3 @@ val waitpid_nohang : pidty -> (int * Unix.process_status)
 val dontwaitpid : pidty -> unit
 val waitpid_fail_if_bad_exit : pidty -> unit
 val getpid : pidty -> int
-
-val with_dev_null : (Unix.file_descr -> 'a) -> 'a