diff options
-rw-r--r-- | perlio.c | 2 | ||||
-rw-r--r-- | perlio.h | 5 |
2 files changed, 4 insertions, 3 deletions
@@ -4120,7 +4120,7 @@ PerlIOBuf_get_base(pTHX_ PerlIO *f) if (!b->buf) { if (!b->bufsiz) - b->bufsiz = PERLIO_BUFSIZ; + b->bufsiz = PERLIOBUF_DEFAULT_BUFSIZ; Newxz(b->buf,b->bufsiz, STDCHAR); if (!b->buf) { b->buf = (STDCHAR *) & b->oneword; @@ -189,8 +189,9 @@ PERL_EXPORT_C void PerlIO_clone(pTHX_ PerlInterpreter *proto, #define BUFSIZ 1024 #endif -#ifndef PERLIO_BUFSIZ -#define PERLIO_BUFSIZ 4096 +/* The default buffer size for the perlio buffering layer */ +#ifndef PERLIOBUF_DEFAULT_BUFSIZ +#define PERLIOBUF_DEFAULT_BUFSIZ 4096 #endif #ifndef SEEK_SET |