From: Craig A. Berry <craigberry@mac.com>
Date: Mon, 6 Mar 2000 15:36:13 +0000 (-0600)
Subject: circumvent VMS fileno bug in old DEC C version
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3b7650f455a913091fc29541d18f107d4011e131;p=p5sagit%2Fp5-mst-13.2.git

circumvent VMS fileno bug in old DEC C version

To: vmsperl@perl.org, perl5-porters@perl.org
Cc: jhi@iki.fi, Charles Bailey <BAILEY@newman.upenn.edu>, gsar@activestate.com
Message-Id: <4.2.2.20000306153539.00ca6420@exchi01.midwest.metamorgs.com>

p4raw-id: //depot/cfgperl@5588
---

diff --git a/vms/vmsish.h b/vms/vmsish.h
index a09d2be..34efcb6 100644
--- a/vms/vmsish.h
+++ b/vms/vmsish.h
@@ -717,4 +717,9 @@ typedef char __VMS_SEPYTOTORP__;
 #undef HAS_NTOHL
 #endif
 
+/* The C RTL manual says to undef the macro for DEC C 5.2 and lower. */
+#if defined(fileno) && defined(__DECC_VER) && __DECC_VER < 50300000
+#  undef fileno 
+#endif 
+
 #endif  /* __vmsish_h_included */