run_erl: Cleanup buggy retry of close

The retry loop wasn't working anyway as it tested fd<0
instead of res.

So, there is no real semantic change here.

1 files changed, 2 insertions, 5 deletions

diff --git a/erts/etc/unix/run_erl.c b/erts/etc/unix/run_erl.c
index f05c729eeb..81a0036c99 100644
--- a/erts/etc/unix/run_erl.c
+++ b/erts/etc/unix/run_erl.c
@@ -1343,11 +1343,8 @@ static int sf_open(const char *path, int type, mode_t mode) {
     return fd;
 }
 static int sf_close(int fd) {
-    int res = 0;
-
-    do { res = close(fd); } while(fd < 0 && errno == EINTR);
-
-    return res;
+    /* "close() should not be retried after an EINTR" */
+    return close(fd);
 }
 /* Extract any control sequences that are ment only for run_erl
  * and should not be forwarded to the pty.