Browse Source

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

marco 24 years ago
parent
commit
9d59d06fd1
2 changed files with 10 additions and 2 deletions
  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 }
           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    { but not ., .. and fd subdirs }
              (strpas(@(d^.name))<>'..') and
              (strpas(@(d^.name))<>'..') and
+	     (strpas(@(d^.name))<>'') and
              (strpas(@(d^.name))<>'fd') then
              (strpas(@(d^.name))<>'fd') then
            begin                      {we found a directory, search inside it}
            begin                      {we found a directory, search inside it}
              if mysearch(name) then
              if mysearch(name) then
@@ -2946,7 +2947,10 @@ End.
 
 
 {
 {
   $Log$
   $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
     * start of thread support for linux
 
 
   Revision 1.16  2001/09/17 21:36:31  peter
   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 }
           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    { but not ., .. and fd subdirs }
              (strpas(@(d^.name))<>'..') and
              (strpas(@(d^.name))<>'..') and
+	     (strpas(@(d^.name))<>'') and
              (strpas(@(d^.name))<>'fd') then
              (strpas(@(d^.name))<>'fd') then
            begin                      {we found a directory, search inside it}
            begin                      {we found a directory, search inside it}
              if mysearch(name) then
              if mysearch(name) then
@@ -2971,7 +2972,10 @@ End.
 
 
 {
 {
   $Log$
   $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
   + Added exit status examining functions
 
 
   Revision 1.17  2001/10/14 13:33:21  peter
   Revision 1.17  2001/10/14 13:33:21  peter