]> git.pld-linux.org Git - packages/fpc.git/blob - fpc-skip-dev-dot.patch
- fixes from fedora, rel 2
[packages/fpc.git] / fpc-skip-dev-dot.patch
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
3 @@ -44,8 +44,7 @@
4         if fpstat(name,st)=0 then
5          begin
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}
This page took 0.063594 seconds and 3 git commands to generate.