Stop process on cleanup

ocaml-multicore · Sep 30, 2022 · 0127acc · 0127acc
1 parent 91c7c4a
commit 0127acc
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/lib_eio_linux/eio_linux.ml b/lib_eio_linux/eio_linux.ml
@@ -1206,9 +1206,11 @@ let process = object
     let process = pid_to_process close pid in
     let cleanup () =
       try 
-        ignore (wait_for_process [] pid);
+        process#stop;
         close ()
-      with Unix.Unix_error (ECHILD, _, _) -> ()
+      with Unix.Unix_error (Unix.ESRCH, _, _) -> 
+      (* Process is already finished when trying to stop it. *)
+      ()
     in
     Switch.on_release sw cleanup;
     process