From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 11 Mar 2003 19:15:15 +0000 (+0000)
Subject: Better setmode() prototype for cygwin.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=77a4069887dcd1a19497f21acebaf596a50df108;p=p5sagit%2Fp5-mst-13.2.git

Better setmode() prototype for cygwin.

p4raw-id: //depot/perl@18925
---

diff --git a/perl.h b/perl.h
index fad16f5..547165a 100644
--- a/perl.h
+++ b/perl.h
@@ -2161,8 +2161,9 @@ typedef pthread_key_t	perl_key;
  *   of bytes occurs on read or write operations.
  */
 #  define USEMYBINMODE / **/
+#  include <io.h> /* for setmode() prototype */
 #  define my_binmode(fp, iotype, mode) \
-            (PerlLIO_setmode(PerlIO_fileno(fp), mode) != -1 ? TRUE : FALSE)
+            (PerlLIO_setmode(fileno(fp), mode) != -1 ? TRUE : FALSE)
 #endif
 
 #ifdef __CYGWIN__