bugfix: io module: read("*a") fails to automatically resume the read() system call upon EINTR. thanks Michal Cichra for the report in openresty/resty-cli#35.

Signed-off-by: Yichun Zhang (agentzh) <[email protected]>

Author: thibaultcha

src/lib_io.c

@@ -164,9 +164,14 @@ static void io_file_readall(lua_State *L, FILE *fp)
   MSize m, n;
   for (m = LUAL_BUFFERSIZE, n = 0; ; m += m) {
     char *buf = lj_buf_tmp(L, m);
-    n += (MSize)fread(buf+n, 1, m-n, fp);
-    if (n != m) {
-      setstrV(L, L->top++, lj_str_new(L, buf, (size_t)n));
+    for (;;) {
+      n += (MSize)fread(buf+n, 1, m-n, fp);
+      if (n == m) break;
+      if (ferror(fp)) {
+        if (errno == EINTR) { clearerr(fp); continue; }
+      } else {
+        setstrV(L, L->top++, lj_str_new(L, buf, (size_t)n));
+      }
       lj_gc_check(L);
       return;
     }