From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 11 Feb 1999 07:30:08 +0000 (+0000)
Subject: binmode() support for cygwin32 (suggested by Steven Morlock
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=521e077663cf9f26799cd47fe165c4819c1dbddb;p=p5sagit%2Fp5-mst-13.2.git

binmode() support for cygwin32 (suggested by Steven Morlock
<newspost@morlock.net>)

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

diff --git a/perl.h b/perl.h
index 783f904..ddde94b 100644
--- a/perl.h
+++ b/perl.h
@@ -1488,8 +1488,19 @@ union any {
 #endif /* USE_THREADS */
 
 /* Work around some cygwin32 problems with importing global symbols */
-#if defined(CYGWIN32) && defined(DLLIMPORT) 
+#if defined(CYGWIN32)
+#  if defined(DLLIMPORT) 
 #   include "cw32imp.h"
+#  endif
+/* USEMYBINMODE
+ *   This symbol, if defined, indicates that the program should
+ *   use the routine my_binmode(FILE *fp, char iotype) to insure
+ *   that a file is in "binary" mode -- that is, that no translation
+ *   of bytes occurs on read or write operations.
+ */
+#  define USEMYBINMODE / **/
+#  define my_binmode(fp, iotype) \
+            (PerlLIO_setmode(PerlIO_fileno(fp), O_BINARY) != -1 ? TRUE : NULL)
 #endif
 
 #include "regexp.h"