paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 11:09:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@17455 -
This commit is contained in:
joost 2011-05-14 13:19:47 +00:00
parent f9c2a7ad51
commit 3064726d71
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fpmkunit/src/fpmkunit.pp
View File

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