From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Wed, 22 Jan 2003 12:27:48 +0000 (+0000)
Subject: #if defined(__irix__) (for stdio invalidate) from Jarkko.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9837d3731bea1e0d3aaed58a46127574f76ffe53;p=p5sagit%2Fp5-mst-13.2.git

#if defined(__irix__) (for stdio invalidate) from Jarkko.

p4raw-id: //depot/perlio@18550
---

diff --git a/perlio.c b/perlio.c
index 888e59a..d9cfc39 100644
--- a/perlio.c
+++ b/perlio.c
@@ -2726,11 +2726,12 @@ PerlIOStdio_invalidate_fileno(pTHX_ FILE *f)
     f->__fileH = 0xff;
     f->__fileL = 0xff;
     return 1;
-   /* Next one ->_file seems to be a reasonable fallback 
-      For OSF only have confirmation for Tru64 (alpha)
-      but assume other OSFs will be similar.
+   /* Next one ->_file seems to be a reasonable fallback, i.e. if
+      your platform does not have special entry try this one.       
+      [For OSF only have confirmation for Tru64 (alpha)
+      but assume other OSFs will be similar.]
     */    
-#  elif defined(_AIX) || defined(__osf__)
+#  elif defined(_AIX) || defined(__osf__) || defined(__irix__)
     f->_file = -1;
     return 1;
 #  elif defined(__FreeBSD__)