fix IO::File to support binmode

[perl5.git] / dosish.h

diff --git a/dosish.h b/dosish.h
index 1e4a58b..e7be877 100644 (file)
--- a/dosish.h
+++ b/dosish.h
@@ -60,9 +60,9 @@
  * if you need the last, try #DEFINE MEM_SIZE unsigned long.
  */
 #ifdef MSDOS
- #ifndef DJGPP
-  #define HAS_64K_LIMIT
- #endif
+#  ifndef DJGPP
+#    define HAS_64K_LIMIT
+#  endif
 #endif
 
 /* USEMYBINMODE
@@ -80,7 +80,12 @@
  *     information.
  */
 #if defined(WIN64) || defined(USE_LARGE_FILES)
+# if defined(__BORLANDC__) /* buk */
+#  include <sys\stat.h>
+#  define Stat_t struct stati64
+# else
 #define Stat_t struct _stati64
+# endif
 #else
 #if defined(UNDER_CE)
 #define Stat_t struct xcestat