From 57355fdfaccfef61524ec431da7a2ad073b8d29d Mon Sep 17 00:00:00 2001
From: Leslee Griffith <les.griffith@vantagesystems.ca>
Date: Wed, 26 May 1999 04:28:29 +0000
Subject: [PATCH] added lasterror logic to readstr

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

diff --git a/harbour/source/rtl/files.c b/harbour/source/rtl/files.c
index 3897e51159..56e841032a 100644
--- a/harbour/source/rtl/files.c
+++ b/harbour/source/rtl/files.c
@@ -595,7 +595,9 @@ HARBOUR FREADSTR()
            readed=0; ch[0]=1;
            while( readed < bytes )
            {
+                 last_error = 0;
                  nRead = read(handle,ch,1);
+                 last_error = errno;
                  if( nRead < 1 || ch[0] == 0 )
                         break;
                  buffer[readed]=ch[0];