From cecb9de6e36fcce45de32395be2b8a88263ac791 Mon Sep 17 00:00:00 2001
From: David Allsopp <david.allsopp@metastack.com>
Date: Sun, 9 Jun 2024 09:55:30 +0100
Subject: [PATCH] Fix bug in recursion case in OpamSystem.mk_temp_dir

The ~prefix argument wasn't passed when recursing.
---
 src/core/opamSystem.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/core/opamSystem.ml b/src/core/opamSystem.ml
index 5fbd1a2518f..94c60e4a688 100644
--- 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