From 3064726d71a7db98815b7969d2ac93cde565f773 Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Sat, 14 May 2011 13:19:47 +0000
Subject: [PATCH]  * Fixed detection of empty cleanup-directories on
 non-Dos/Windows

git-svn-id: trunk@17455 -
---
 packages/fpmkunit/src/fpmkunit.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fpmkunit/src/fpmkunit.pp b/packages/fpmkunit/src/fpmkunit.pp
index dcead8fa49..b115856630 100644
--- a/packages/fpmkunit/src/fpmkunit.pp
+++ b/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