X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/08aa1457cd52a368c210ab76a3da91cfadabea1a..3e3baf6d63945cb64e829d6e5c70a7d00f3d3d03:/perlio.c

diff --git a/perlio.c b/perlio.c
index 848c9bf..f269dcd 100644
--- a/perlio.c
+++ b/perlio.c
@@ -360,7 +360,11 @@ PerlIO *f;
 #ifdef HAS_SETLINEBUF
     setlinebuf(f);
 #else
+#  ifdef __BORLANDC__ /* Borland doesn't like NULL size for _IOLBF */
+    setvbuf(f, Nullch, _IOLBF, BUFSIZ);
+#  else
     setvbuf(f, Nullch, _IOLBF, 0);
+#  endif
 #endif
 }