Fix bug in recursion case in OpamSystem.mk_temp_dir

The ~prefix argument wasn't passed when recursing.
dra27 · Jun 9, 2024 · cecb9de · cecb9de
1 parent 3dbe20a
commit cecb9de
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/core/opamSystem.ml b/src/core/opamSystem.ml
@@ -84,7 +84,9 @@ let temp_basename prefix =
 let rec mk_temp_dir ?(prefix="opam") () =
   let s = Filename.get_temp_dir_name () / temp_basename prefix in
   if Sys.file_exists s then
-    mk_temp_dir ()
+    mk_temp_dir ~prefix ()
+  else
+    real_path s
   else
     real_path s