[differences between cumulative patch application and perl5.004_01]

[perl5.git] / perlio.c

diff --git a/perlio.c b/perlio.c
index 848c9bf..f269dcd 100644 (file)
--- 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
 }