Browse Source

* Fix for attributes.
M unix/sysutils.pp

git-svn-id: branches/unicode@24782 -

marco 12 years ago
parent
commit
7728a7084b
1 changed files with 1 additions and 0 deletions
  1. 1 0
      rtl/unix/sysutils.pp

+ 1 - 0
rtl/unix/sysutils.pp

@@ -716,6 +716,7 @@ begin
   If not Do_FindGetFileInfo then
     exit;
   WinAttr:=LinuxToWinAttr(s,st);
+  result:=(WinAttr and Not d^.searchattr)=0;
 end;
 
 Type