--recursivePath may handle dots correctly now

This commit is contained in:
Araq 2011-01-29 14:44:53 +01:00
commit c9f4ad0613
2 changed files with 5 additions and 3 deletions

View file

@ -279,8 +279,10 @@ proc addPath(path: string, info: TLineInfo) =
lists.PrependStr(options.searchPaths, path)
proc addPathRec(dir: string, info: TLineInfo) =
var pos = dir.len-1
if dir[pos] == '/': inc(pos)
for k,p in os.walkDir(dir):
if k == pcDir and '.' notin p:
if k == pcDir and p[pos] != '.':
addPathRec(p, info)
if not contains(options.searchPaths, p):
liMessage(info, hintPath, p)