paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 14:27:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Patch from Michalis Kamburelis so FSearch does not find a directory

Browse Source
This commit is contained in:
michael 2004-12-18 16:29:09 +00:00
parent cc3523b554
commit d73472e2e3
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/unix/dos.pp
View File

@ -750,7 +750,7 @@ Function FSearch(path : pathstr;dirlist : string) : pathstr;
Var
info : BaseUnix.stat;
Begin
if (length(Path)>0) and (path[1]='/') and (fpStat(path,info)>=0) then
if (length(Path)>0) and (path[1]='/') and (fpStat(path,info)>=0) and (not fpS_ISDIR(Info.st_Mode)) then
FSearch:=path
else
FSearch:=Unix.FSearch(path,dirlist);
@ -892,7 +892,10 @@ End.
{
$Log$
Revision 1.42 2004-12-05 21:04:56 hajny
Revision 1.43 2004-12-18 16:29:09 michael
+ Patch from Michalis Kamburelis so FSearch does not find a directory
Revision 1.42 2004/12/05 21:04:56 hajny
* compilation fix for dosh.inc changes
Revision 1.41 2004/12/05 20:33:32 hajny