Rename PERLIO_BUFSIZ to PERLIOBUF_DEFAULT_BUFSIZ.

PERLIO_BUFSIZ was already in use by Encode::Unicode for the
PerlIOEncode_xxx layer, so it makes sense to specify that this
macro is for the PerlIOBuf_xxx layer and that it is a default
value that may eventually be settable at run-time.

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