From 5b27a88cfc36898f26f7ef6b3ef326b1e81b6989 Mon Sep 17 00:00:00 2001
From: Leslee Griffith <les.griffith@vantagesystems.ca>
Date: Sun, 30 May 1999 17:10:30 +0000
Subject: [PATCH] added logic for hb_file()

---
 harbour/source/rtl/files.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/harbour/source/rtl/files.c b/harbour/source/rtl/files.c
index 6a43c11153..fbc90371e7 100644
--- a/harbour/source/rtl/files.c
+++ b/harbour/source/rtl/files.c
@@ -610,9 +610,11 @@ HARBOUR HB_FILE()
 
         if( arg1_it )
         {
-                /* TODO: I'm thinking about this :( */
+           last_error = 0;
+           access(_parc(1), 0);
+           last_error = errno;
         }
-        _retl(0);
+        _retl(last_error==0?1:0);
         return;
 }