fix #22, hang with some rel paths in DUB projs

This commit is contained in:
Basile Burg 2016-02-29 02:33:50 +01:00
parent 166bca0f14
commit 1d3c14c000
1 changed files with 4 additions and 4 deletions

View File

@ -615,10 +615,10 @@ begin
for i := 0 to arr.Count-1 do
begin
pth := TrimRightSet(arr.Strings[i], ['/','\']);
if pth.dirExists then
if pth.dirExists and FilenameIsAbsolute(pth) then
tryAddFromFolder(pth)
else
tryAddFromFolder(fBasePath + pth);
tryAddFromFolder(expandFilenameEx(fBasePath, pth));
end;
end;
// custom files
@ -643,10 +643,10 @@ begin
for i := 0 to arr.Count-1 do
begin
pth := TrimRightSet(arr.Strings[i], ['/','\']);
if pth.dirExists then
if pth.dirExists and FilenameIsAbsolute(pth) then
tryAddFromFolder(pth)
else
tryAddFromFolder(fBasePath + pth);
tryAddFromFolder(expandFilenameEx(fBasePath, pth));
end;
end;
// custom files in current config