ext/PerlIO-encoding: use SvPVCLEAR()

demerphq · demerphq · commit 68fbdc7cf661 · 2016-10-19T13:28:00.000+02:00
diff --git a/ext/PerlIO-encoding/encoding.xs b/ext/PerlIO-encoding/encoding.xs
@@ -203,7 +203,7 @@ PerlIOEncode_get_base(pTHX_ PerlIO * f)
 	e->base.bufsiz = 1024;
     if (!e->bufsv) {
 	e->bufsv = newSV(e->base.bufsiz);
-	sv_setpvs(e->bufsv, "");
+	SvPVCLEAR(e->bufsv);
     }
     e->base.buf = (STDCHAR *) SvPVX(e->bufsv);
     if (!e->base.ptr)

Original file line number	Diff line number	Diff line change
`@@ -203,7 +203,7 @@ PerlIOEncode_get_base(pTHX_ PerlIO * f)`
`203`	`203`	`e->base.bufsiz = 1024;`
`204`	`204`	`if (!e->bufsv) {`
`205`	`205`	`e->bufsv = newSV(e->base.bufsiz);`
`206`		`- sv_setpvs(e->bufsv, "");`
	`206`	`+ SvPVCLEAR(e->bufsv);`
`207`	`207`	`}`
`208`	`208`	`e->base.buf = (STDCHAR *) SvPVX(e->bufsv);`
`209`	`209`	`if (!e->base.ptr)`