2 files changed, 5 insertions, 1 deletions
diff --git a/perlio.c b/perlio.c
index 4073c97b54..5b396793e0 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 = 4096;
+	    b->bufsiz = PERLIO_BUFSIZ;
 	Newxz(b->buf,b->bufsiz, STDCHAR);
 	if (!b->buf) {
 	    b->buf = (STDCHAR *) & b->oneword;
diff --git a/perlio.h b/perlio.h
index a6902d4a95..a1436c6b90 100644
--- a/perlio.h
+++ b/perlio.h
@@ -189,6 +189,10 @@ PERL_EXPORT_C void PerlIO_clone(pTHX_ PerlInterpreter *proto,
 #define BUFSIZ 1024
 #endif
 
+#ifndef PERLIO_BUFSIZ
+#define PERLIO_BUFSIZ 4096
+#endif
+
 #ifndef SEEK_SET
 #define SEEK_SET 0
 #endif