ソースを参照

* FSearch must skip invalid paths

Tomas Hajny 20 年 前
コミット
1215d90528
1 ファイル変更5 行追加2 行削除
  1. 5 2
      rtl/os2/dos.pas

+ 5 - 2
rtl/os2/dos.pas

@@ -110,7 +110,7 @@ Var
 begin
 begin
   P:=Path;
   P:=Path;
   D:=DirList;
   D:=DirList;
-  DosError:=DosSearchPath(0, PChar(D), PChar(P), @A, 255);
+  DosError := DosSearchPath (dsIgnoreNetErrs, PChar(D), PChar(P), @A, 255);
   fsearch := StrPas (@A);
   fsearch := StrPas (@A);
 end;
 end;
 
 
@@ -534,7 +534,10 @@ end.
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.43  2004-12-06 21:50:04  hajny
+  Revision 1.44  2004-12-27 22:25:43  hajny
+    * FSearch must skip invalid paths
+
+  Revision 1.43  2004/12/06 21:50:04  hajny
     * allow running any type of session from Exec
     * allow running any type of session from Exec
 
 
   Revision 1.42  2004/12/05 19:16:54  hajny
   Revision 1.42  2004/12/05 19:16:54  hajny