From 1d3c14c000acf3a0cde4437e78c351cd4a302f43 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Mon, 29 Feb 2016 02:33:50 +0100
Subject: [PATCH] fix #22, hang with some rel paths in DUB projs

---
 src/ce_dubproject.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/ce_dubproject.pas b/src/ce_dubproject.pas
index cabaafaa..5da2ff72 100644
--- a/src/ce_dubproject.pas
+++ b/src/ce_dubproject.pas
@@ -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