[Unicon-group] Patch to fix bug id 521783

[Robert Parlett]

Please find attached a patch to fsys.r which fixes the above bug in 
sourceforge, which is a problem about reading the last few bytes from an 
internet socket using reads().


Index: fsys.r
===================================================================
RCS file: /cvsroot/unicon/unicon/src/runtime/fsys.r,v
retrieving revision 1.9
diff -u -r1.9 fsys.r
--- fsys.r      13 Jun 2002 19:57:52 -0000      1.9
+++ fsys.r      20 Jun 2002 14:41:54 -0000
@@ -1378,7 +1378,10 @@
               }
            if ((slen = sock_getstrg(sbuf, Maxread, ws)) == -1) {
               /*IntVal(amperErrno) = errno; */
-              fail;
+               if (bytesread == 0)
+                  fail;
+               else
+                  return s;
               }
            if (slen == -3) {
               fail;