1 --- fpc/fpcsrc/rtl/unix/ttyname.inc~ 2005-02-14 18:13:31.000000000 +0100
2 +++ fpc/fpcsrc/rtl/unix/ttyname.inc 2006-10-13 18:56:54.686466592 +0200
4 if fpstat(name,st)=0 then
6 if (fpS_ISDIR(st.st_mode)) and { if it is a directory }
7 - (strpas(@(d^.d_name))<>'.') and { but not ., .. and fd subdirs }
8 - (strpas(@(d^.d_name))<>'..') and
9 + (strpas(@(d^.d_name))[1]<>'.') and { but not ., .. and fd subdirs }
10 (strpas(@(d^.d_name))<>'') and
11 (strpas(@(d^.d_name))<>'fd') then
12 begin {we found a directory, search inside it}