Browse Source

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

git-svn-id: trunk@17455 -
joost 14 years ago
parent
commit
3064726d71
1 changed files with 1 additions and 1 deletions
  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