From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Wed, 22 Jan 2003 08:47:24 +0000 (+0000)
Subject: Add defined(__osf__) case to invalidate_fileno (for Tru64).
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9110aad070a9791bfefe4a0d1718537633723305;p=p5sagit%2Fp5-mst-13.2.git

Add defined(__osf__) case to invalidate_fileno (for Tru64).

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

diff --git a/perlio.c b/perlio.c
index 225cdf4..888e59a 100644
--- a/perlio.c
+++ b/perlio.c
@@ -2726,7 +2726,11 @@ PerlIOStdio_invalidate_fileno(pTHX_ FILE *f)
     f->__fileH = 0xff;
     f->__fileL = 0xff;
     return 1;
-#  elif defined(_AIX)
+   /* Next one ->_file seems to be a reasonable fallback 
+      For OSF only have confirmation for Tru64 (alpha)
+      but assume other OSFs will be similar.
+    */    
+#  elif defined(_AIX) || defined(__osf__)
     f->_file = -1;
     return 1;
 #  elif defined(__FreeBSD__)