Run exit hooks before Unix.exec'ing

Signed-off-by: Rudi Grinberg <[email protected]>
ocaml · Feb 19, 2021 · 5d6bab2 · 5d6bab2
1 parent b9d4a0d
commit 5d6bab2
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/CHANGES.md b/CHANGES.md
@@ -51,6 +51,9 @@ Unreleased
 - Workaround incorrect exception raised by Unix.utimes (OCaml PR#8857) in
   Path.touch on Windows (#4223, @dra27)
 
+- Cleanup temporary files after running `$ dune exec`. (#.., fixes #4243,
+  @rgrinberg)
+
 2.8.2 (21/01/2021)
 ------------------
 

diff --git a/src/stdune/proc.ml b/src/stdune/proc.ml
@@ -13,5 +13,6 @@ let restore_cwd_and_execve prog argv ~env =
     | WSTOPPED _ -> assert false
   else (
     ignore (Unix.sigprocmask SIG_SETMASK [] : int list);
+    Stdlib.do_at_exit ();
     Unix.execve prog argv env
   )