Parcourir la source

* Fixed detection of empty cleanup-directories on non-Dos/Windows

git-svn-id: trunk@17455 -
joost il y a 14 ans
Parent
commit
3064726d71
1 fichiers modifiés avec 1 ajouts et 1 suppressions
  1. 1 1
      packages/fpmkunit/src/fpmkunit.pp

+ 1 - 1
packages/fpmkunit/src/fpmkunit.pp

@@ -1283,7 +1283,7 @@ var
   SearchResult: longint;
 begin
   result := true;
-  SearchResult := FindFirst(IncludeTrailingPathDelimiter(directory)+'*.*', faAnyFile, searchRec);
+  SearchResult := FindFirst(IncludeTrailingPathDelimiter(directory)+AllFilesMask, faAnyFile+faSymLink, searchRec);
   try
     while SearchResult=0 do
       begin