浏览代码

* TTYname fix from Maarten Beekers. Apparantly accidentally not commited the first time.

marco 24 年之前
父节点
当前提交
9d59d06fd1
共有 2 个文件被更改,包括 10 次插入2 次删除
  1. 5 1
      rtl/unix/linux.pp
  2. 5 1
      rtl/unix/unix.pp

+ 5 - 1
rtl/unix/linux.pp

@@ -2115,6 +2115,7 @@ var
           if ((st.mode and $E000)=$4000) and  { if it is a directory }
              (strpas(@(d^.name))<>'.') and    { but not ., .. and fd subdirs }
              (strpas(@(d^.name))<>'..') and
+	     (strpas(@(d^.name))<>'') and
              (strpas(@(d^.name))<>'fd') then
            begin                      {we found a directory, search inside it}
              if mysearch(name) then
@@ -2946,7 +2947,10 @@ End.
 
 {
   $Log$
-  Revision 1.17  2001-10-14 13:33:20  peter
+  Revision 1.18  2001-11-30 07:16:41  marco
+   * TTYname fix from Maarten Beekers. Apparantly accidentally not commited the first time.
+
+  Revision 1.17  2001/10/14 13:33:20  peter
     * start of thread support for linux
 
   Revision 1.16  2001/09/17 21:36:31  peter

+ 5 - 1
rtl/unix/unix.pp

@@ -2144,6 +2144,7 @@ var
           if ((st.mode and $E000)=$4000) and  { if it is a directory }
              (strpas(@(d^.name))<>'.') and    { but not ., .. and fd subdirs }
              (strpas(@(d^.name))<>'..') and
+	     (strpas(@(d^.name))<>'') and
              (strpas(@(d^.name))<>'fd') then
            begin                      {we found a directory, search inside it}
              if mysearch(name) then
@@ -2971,7 +2972,10 @@ End.
 
 {
   $Log$
-  Revision 1.18  2001-11-05 21:46:06  michael
+  Revision 1.19  2001-11-30 07:16:42  marco
+   * TTYname fix from Maarten Beekers. Apparantly accidentally not commited the first time.
+
+  Revision 1.18  2001/11/05 21:46:06  michael
   + Added exit status examining functions
 
   Revision 1.17  2001/10/14 13:33:21  peter