Ensure [follow_symlinks] does not prepend paths with [./].

Signed-off-by: Rodolphe Lepigre <rodolphe@bedrocksystems.com>

otherlibs/stdune/fpath.ml

@@ -73,7 +73,13 @@ let rec follow_symlinks path =
   let parent = Filename.dirname path in
   let file = Filename.basename path in
   (* If we reached the root, just return the path. *)
-  if parent = path then Some path
+  if parent = path then Some path else
+  if parent = Filename.current_dir_name then
+    (* Only keep the initial ["."] if it was in the path. *)
+    if path = Filename.concat Filename.current_dir_name file then
+      Some path
+    else
+      Some file
   else
     (* Recurse on parent, and re-add toplevel file. *)
     match follow_symlinks parent with