summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--perlio.c2
-rw-r--r--perlio.h5
2 files changed, 4 insertions, 3 deletions
diff --git a/perlio.c b/perlio.c
index 5b396793e0..13b135181d 100644
--- a/perlio.c
+++ b/perlio.c
@@ -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;
diff --git a/perlio.h b/perlio.h
index a1436c6b90..62e35e4b94 100644
--- a/perlio.h
+++ b/perlio.h
@@ -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