diff options
| author | Théo Zimmermann | 2016-10-06 18:54:21 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2016-10-12 13:47:34 +0200 |
| commit | 5232d2a29506ee30bf54336acf9998684a3b1cd9 (patch) | |
| tree | f4d97bc4d5d199c1949cc9e5a77108cc807be1c6 | |
| parent | 55699e2b9a91356b7d43c4096f65fb199777b9a1 (diff) | |
Fix git recognition when in worktrees.
git worktrees have a .git file instead of a .git directory.
Using Sys.file_exists is a more general solution which gives true in both cases.
| -rw-r--r-- | configure.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/configure.ml b/configure.ml index 23ec93e078..507fd351a7 100644 --- a/configure.ml +++ b/configure.ml @@ -430,7 +430,7 @@ let dll = if os_type_win32 then ".dll" else ".so" let vcs = let git_dir = try Sys.getenv "GIT_DIR" with Not_found -> ".git" in - if dir_exists git_dir then "git" + if Sys.file_exists git_dir then "git" else if Sys.file_exists ".svn/entries" then "svn" else if dir_exists "{arch}" then "gnuarch" else "none" |