diff options
| author | Yves Orton <demerphq@gmail.com> | 2016-10-19 10:50:58 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2016-10-19 13:28:00 +0200 |
| commit | 68fbdc7cf66118cc69542a28a02294de2158c2c5 (patch) | |
| tree | 135f90ba7e49fa979ed586927473502ce5e6b63c /ext/PerlIO-encoding | |
| parent | f7806eea88e5aba9e71c6bb718cccd7f2e85a8e4 (diff) | |
| download | perl-68fbdc7cf66118cc69542a28a02294de2158c2c5.tar.gz | |
ext/PerlIO-encoding: use SvPVCLEAR()
Diffstat (limited to 'ext/PerlIO-encoding')
| -rw-r--r-- | ext/PerlIO-encoding/encoding.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/PerlIO-encoding/encoding.xs b/ext/PerlIO-encoding/encoding.xs index 1101bf1eb3..bb4754f3d9 100644 --- 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) |