Add VCS dir check for bzr and svn

This commit is contained in:
Tuncer Ayaz 2010-12-07 19:32:58 +01:00
parent 3e12630f23
commit 07269ebdb9

View file

@ -373,5 +373,10 @@ has_vcs_dir(git, Dir) ->
filelib:is_dir(filename:join(Dir, ".git"));
has_vcs_dir(hg, Dir) ->
filelib:is_dir(filename:join(Dir, ".hg"));
has_vcs_dir(bzr, Dir) ->
filelib:is_dir(filename:join(Dir, ".bzr"));
has_vcs_dir(svn, Dir) ->
filelib:is_dir(filename:join(Dir, ".svn"))
orelse filelib:is_dir(filename:join(Dir, "_svn"));
has_vcs_dir(_, _) ->
true.