added lasterror logic to readstr

1999-05-26 04:28:29 +00:00
parent 8f85e0138a
commit 57355fdfac
1 changed files with 2 additions and 0 deletions
--- 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];