X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlio.c;h=f269dcdb1ded38f14712c5cf98af40d36e56d73d;hb=64f14228217abb04a437553319642d6e7a82a3e8;hp=ffdd3f019774338267ee91dfd0f6c16c6e5a2fd2;hpb=9010f3dde9d2f67a11bc3a0f3506440c77114d6b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perlio.c b/perlio.c
index ffdd3f0..f269dcd 100644
--- a/perlio.c
+++ b/perlio.c
@@ -308,6 +308,7 @@ char *buf;
  return fgetname(f,buf);
 #else
  croak("Don't know how to get file name");
+ return NULL;
 #endif
 }
 
@@ -359,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
 }