ext/PerlIO-encoding: use SvPVCLEAR()

diff --git a/ext/PerlIO-encoding/encoding.xs b/ext/PerlIO-encoding/encoding.xs
index 1101bf1..bb4754f 100644 (file)
--- 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)