rt.perl.org #123977 - clear errno in IRIX PERLIO=stdio

Under some circumstances IRIX stdio fgetc() and fread() set the errno
to ENOENT, which makes no sense according to either IRIX or POSIX docs.
Just clear such an errno.

1 files changed, 6 insertions, 0 deletions

diff --git a/perlio.c b/perlio.c
index ae8cbc9423..8ab47e4936 100644
--- a/perlio.c
+++ b/perlio.c
@@ -3332,6 +3332,12 @@ PerlIOStdio_read(pTHX_ PerlIO *f, void *vbuf, Size_t count)
 	    return -1;
 	SETERRNO(0,0);	/* just in case */
     }
+#ifdef __sgi
+    /* Under some circumstances IRIX stdio fgetc() and fread()
+     * set the errno to ENOENT, which makes no sense according
+     * to either IRIX or POSIX.  [rt.perl.org #123977] */
+    if (errno == ENOENT) SETERRNO(0,0);
+#endif
     return got;
 }