Fix realpathing directories on Windows as suggested by @dra27.

ocaml · Nov 26, 2020 · 18369bd · 18369bd
1 parent 5a321b4
commit 18369bd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/otherlibs/win32unix/realpath.c b/otherlibs/win32unix/realpath.c
@@ -44,7 +44,7 @@ CAMLprim value unix_realpath (value p)
   caml_unix_check_path (p, "realpath");
   wp = caml_stat_strdup_to_utf16 (String_val (p));
   h = CreateFile (wp, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING,
-                  FILE_ATTRIBUTE_NORMAL, NULL);
+                  FILE_FLAG_BACKUP_SEMANTICS, NULL);
   caml_stat_free (wp);
 
   if (h == INVALID_HANDLE_VALUE)