Re: ebcdic <-> ascii tables interjected in uv <-> utf8 considered harmful

[perl5.git] / dosish.h

diff --git a/dosish.h b/dosish.h
index 08b48fa..5f12b9d 100644 (file)
--- a/dosish.h
+++ b/dosish.h
@@ -100,7 +100,11 @@
 #define fwrite1 fwrite
 
 #define Fstat(fd,bufptr)   fstat((fd),(bufptr))
-#define Fflush(fp)         fflush(fp)
+#ifdef DJGPP
+#   define Fflush(fp)      djgpp_fflush(fp)
+#else
+#   define Fflush(fp)      fflush(fp)
+#endif
 #define Mkdir(path,mode)   mkdir((path),(mode))
 
 #ifndef WIN32