Better setmode() prototype for cygwin.

p4raw-id: //depot/perl@18925

diff --git a/perl.h b/perl.h
index fad16f5..547165a 100644 (file)
--- 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__