[fpc-devel] FindFirst broken due to ExpandFileName bug?

[Tony Maro]

Michael Van Canneyt wrote:

>On Mon, 12 Sep 2005, Tony Maro wrote:
>
>  
>
>>I just tried to use FindFirst to get a listing of files in a directory.  I
>>passed FindFirst the following:
>>
>>   if FindFirst('/home/tony/test/*',faAnyFile, Res) < 0 then begin
>>
>>It never would return any results.  Then I noticed that FindFirst calls:
>>
>>GlobSearchRec^.Path:=ExpandFileName(ExtractFilePath(Path));
>>
>>So I ran:
>>
>>   ExpandFileName(ExtractFilePath('/home/tony/test/*'));
>>
>>And I got:
>>
>>   /home/tony/LazarusFiles/testapp/"/home/tony/test/
>>    
>>
>
>Do you still have this bug ? 
>The most recent compiler/rtl gives the following, which is IMHO correct:
>
>  
>
I'm running:
Free Pascal Compiler version 2.0.1 [2005/07/20] for i386