From ca270f34714b99e1a9ec8330deff2619b48db814 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 18 Apr 2000 08:03:40 +0000
Subject: [PATCH] Corrected fix for bug #902

---
 rtl/linux/dos.pp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/rtl/linux/dos.pp b/rtl/linux/dos.pp
index 69a31e5375..3dc9a4daf8 100644
--- a/rtl/linux/dos.pp
+++ b/rtl/linux/dos.pp
@@ -711,7 +711,7 @@ Function FSearch(path : pathstr;dirlist : string) : pathstr;
 Var
   info:stat;
 Begin
-  if FStat(path,info) then
+  if (length(Path)>0) and (path[1]='/') and FStat(path,info) then
     FSearch:=path
   else
     FSearch:=Linux.FSearch(path,dirlist);
@@ -914,7 +914,10 @@ End.
 
 {
   $Log$
-  Revision 1.20  2000-04-17 20:43:27  pierre
+  Revision 1.21  2000-04-18 08:03:40  michael
+  Corrected fix for bug 902
+
+  Revision 1.20  2000/04/17 20:43:27  pierre
    fix bug 902 for win32 and linux
 
   Revision 1.19  2000/03/19 18:48:19  peter