1 files changed, 1 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;