avoid redundant initialisation around Newxz()

Reduce Newxz() to Newx() where all relevant parts of the memory are
being explicitly initialised, and don't explicitly zero memory that was
already zeroed.  [perl #36078]

1 files changed, 1 insertions, 1 deletions

diff --git a/perlio.c b/perlio.c
index 054f210e37..e7dd7f5f18 100644
--- a/perlio.c
+++ b/perlio.c
@@ -4281,7 +4281,7 @@ PerlIOBuf_get_base(pTHX_ PerlIO *f)
     if (!b->buf) {
 	if (!b->bufsiz)
 	    b->bufsiz = PERLIOBUF_DEFAULT_BUFSIZ;
-	Newxz(b->buf,b->bufsiz, STDCHAR);
+	Newx(b->buf,b->bufsiz, STDCHAR);
 	if (!b->buf) {
 	    b->buf = (STDCHAR *) & b->oneword;
 	    b->bufsiz = sizeof(b->oneword);