diff options
author | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2016-09-21 15:38:42 +0100 |
---|---|---|
committer | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2016-09-21 15:42:44 +0100 |
commit | cf97b304d6039d9a3ad08c2e75ae3dbf3cf32dc8 (patch) | |
tree | 632ffeef6d10d5675c3a3012751964b5bec486b0 /ext/PerlIO-encoding | |
parent | 2c4188f3fe3f46d4ebe3f23a094a7cf96ebe87f1 (diff) | |
download | perl-cf97b304d6039d9a3ad08c2e75ae3dbf3cf32dc8.tar.gz |
Change sv_setpvn(…, "…", …) to sv_setpvs(…, "…")
The dual-life dists affected use Devel::PPPort, so can safely use
sv_setpvs() even though it wasn't added until Perl v5.10.0.
Diffstat (limited to 'ext/PerlIO-encoding')
-rw-r--r-- | ext/PerlIO-encoding/encoding.pm | 2 | ||||
-rw-r--r-- | ext/PerlIO-encoding/encoding.xs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ext/PerlIO-encoding/encoding.pm b/ext/PerlIO-encoding/encoding.pm index 13cb20b3bd..08d2df4713 100644 --- a/ext/PerlIO-encoding/encoding.pm +++ b/ext/PerlIO-encoding/encoding.pm @@ -1,7 +1,7 @@ package PerlIO::encoding; use strict; -our $VERSION = '0.24'; +our $VERSION = '0.25'; our $DEBUG = 0; $DEBUG and warn __PACKAGE__, " called by ", join(", ", caller), "\n"; diff --git a/ext/PerlIO-encoding/encoding.xs b/ext/PerlIO-encoding/encoding.xs index ee0836ff73..1101bf1eb3 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_setpvn(e->bufsv, "", 0); + sv_setpvs(e->bufsv, ""); } e->base.buf = (STDCHAR *) SvPVX(e->bufsv); if (!e->base.ptr) |