In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/cf97b304d6039d9a3ad08c2e75ae3dbf3cf32dc8?hp=2c4188f3fe3f46d4ebe3f23a094a7cf96ebe87f1>
- Log -----------------------------------------------------------------
commit cf97b304d6039d9a3ad08c2e75ae3dbf3cf32dc8
Author: Dagfinn Ilmari Mannsåker <ilm...@ilmari.org>
Date: Wed Sep 21 15:38:42 2016 +0100
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.
-----------------------------------------------------------------------
Summary of changes:
dist/Data-Dumper/Dumper.pm | 4 ++--
dist/Data-Dumper/Dumper.xs | 4 ++--
dist/Storable/Storable.pm | 2 +-
dist/Storable/Storable.xs | 4 ++--
doop.c | 2 +-
ext/POSIX/POSIX.xs | 2 +-
ext/POSIX/lib/POSIX.pm | 2 +-
ext/PerlIO-encoding/encoding.pm | 2 +-
ext/PerlIO-encoding/encoding.xs | 2 +-
os2/OS2/OS2-REXX/DLL/DLL.pm | 2 +-
os2/OS2/OS2-REXX/DLL/DLL.xs | 2 +-
os2/os2.c | 2 +-
pod/perlguts.pod | 2 +-
pod/perlhacktut.pod | 2 +-
regcomp.c | 2 +-
sv.c | 2 +-
win32/wince.c | 2 +-
17 files changed, 20 insertions(+), 20 deletions(-)
diff --git a/dist/Data-Dumper/Dumper.pm b/dist/Data-Dumper/Dumper.pm
index c71ad35..f461969 100644
--- a/dist/Data-Dumper/Dumper.pm
+++ b/dist/Data-Dumper/Dumper.pm
@@ -10,7 +10,7 @@
package Data::Dumper;
BEGIN {
- $VERSION = '2.161'; # Don't forget to set version and release
+ $VERSION = '2.162'; # Don't forget to set version and release
} # date in POD below!
#$| = 1;
@@ -1472,7 +1472,7 @@ modify it under the same terms as Perl itself.
=head1 VERSION
-Version 2.161 (July 11 2016)
+Version 2.162 (September 21 2016)
=head1 SEE ALSO
diff --git a/dist/Data-Dumper/Dumper.xs b/dist/Data-Dumper/Dumper.xs
index 0dc7699..017904e 100644
--- a/dist/Data-Dumper/Dumper.xs
+++ b/dist/Data-Dumper/Dumper.xs
@@ -1525,7 +1525,7 @@ Data_Dumper_Dumpxs(href, ...)
}
else {
STRLEN nchars;
- sv_setpvn(name, "$", 1);
+ sv_setpvs(name, "$");
sv_catsv(name, varname);
nchars = my_snprintf(tmpbuf, sizeof(tmpbuf), "%"IVdf,
(IV)(i+1));
sv_catpvn(name, tmpbuf, nchars);
@@ -1575,7 +1575,7 @@ Data_Dumper_Dumpxs(href, ...)
sv_catpvs(retval, ";");
sv_catsv(retval, style.sep);
}
- sv_setpvn(valstr, "", 0);
+ sv_setpvs(valstr, "");
if (gimme == G_ARRAY) {
XPUSHs(sv_2mortal(retval));
if (i < imax) /* not the last time thro ? */
diff --git a/dist/Storable/Storable.pm b/dist/Storable/Storable.pm
index c2a6a48..616869f 100644
--- a/dist/Storable/Storable.pm
+++ b/dist/Storable/Storable.pm
@@ -22,7 +22,7 @@ package Storable; @ISA = qw(Exporter);
use vars qw($canonical $forgive_me $VERSION);
-$VERSION = '2.57';
+$VERSION = '2.58';
BEGIN {
if (eval {
diff --git a/dist/Storable/Storable.xs b/dist/Storable/Storable.xs
index 83cd001..a5f8ecd 100644
--- a/dist/Storable/Storable.xs
+++ b/dist/Storable/Storable.xs
@@ -4894,7 +4894,7 @@ static SV *retrieve_lscalar(pTHX_ stcxt_t *cxt, const
char *cname)
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum"
*/
if (len == 0) {
- sv_setpvn(sv, "", 0);
+ sv_setpvs(sv, "");
return sv;
}
@@ -5684,7 +5684,7 @@ static SV *retrieve_code(pTHX_ stcxt_t *cxt, const char
*cname)
SAVETMPS;
errsv = get_sv("@", GV_ADD);
- sv_setpvn(errsv, "", 0); /* clear $@ */
+ sv_setpvs(errsv, ""); /* clear $@ */
if (SvROK(cxt->eval) && SvTYPE(SvRV(cxt->eval)) == SVt_PVCV) {
PUSHMARK(sp);
XPUSHs(sv_2mortal(newSVsv(sub)));
diff --git a/doop.c b/doop.c
index e6c7fe4..79cf4b6 100644
--- a/doop.c
+++ b/doop.c
@@ -1008,7 +1008,7 @@ Perl_do_vop(pTHX_ I32 optype, SV *sv, SV *left, SV *right)
PERL_ARGS_ASSERT_DO_VOP;
if (sv != left || (optype != OP_BIT_AND && !SvOK(sv)))
- sv_setpvn(sv, "", 0); /* avoid undef warning on |= and ^= */
+ sv_setpvs(sv, ""); /* avoid undef warning on |= and ^= */
if (sv == left) {
lsave = lc = SvPV_force_nomg(left, leftlen);
}
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index 2af848b..d962541 100644
--- a/ext/POSIX/POSIX.xs
+++ b/ext/POSIX/POSIX.xs
@@ -3502,7 +3502,7 @@ asctime(sec, min, hour, mday, mon, year, wday = 0, yday =
0, isdst = -1)
if (result == (time_t)-1)
SvOK_off(TARG);
else if (result == 0)
- sv_setpvn(TARG, "0 but true", 10);
+ sv_setpvs(TARG, "0 but true");
else
sv_setiv(TARG, (IV)result);
} else {
diff --git a/ext/POSIX/lib/POSIX.pm b/ext/POSIX/lib/POSIX.pm
index f11595e..5d96e69 100644
--- a/ext/POSIX/lib/POSIX.pm
+++ b/ext/POSIX/lib/POSIX.pm
@@ -4,7 +4,7 @@ use warnings;
our ($AUTOLOAD, %SIGRT);
-our $VERSION = '1.72';
+our $VERSION = '1.73';
require XSLoader;
diff --git a/ext/PerlIO-encoding/encoding.pm b/ext/PerlIO-encoding/encoding.pm
index 13cb20b..08d2df4 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 ee0836f..1101bf1 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)
diff --git a/os2/OS2/OS2-REXX/DLL/DLL.pm b/os2/OS2/OS2-REXX/DLL/DLL.pm
index 7db9488..2447a72 100644
--- a/os2/OS2/OS2-REXX/DLL/DLL.pm
+++ b/os2/OS2/OS2-REXX/DLL/DLL.pm
@@ -1,6 +1,6 @@
package OS2::DLL;
-our $VERSION = '1.06';
+our $VERSION = '1.07';
use Carp;
use XSLoader;
diff --git a/os2/OS2/OS2-REXX/DLL/DLL.xs b/os2/OS2/OS2-REXX/DLL/DLL.xs
index 90b14ea..56194bd 100644
--- a/os2/OS2/OS2-REXX/DLL/DLL.xs
+++ b/os2/OS2/OS2-REXX/DLL/DLL.xs
@@ -164,7 +164,7 @@ _call(name, address, queue="SESSION", ...)
if (result.strptr)
sv_setpvn(ST(0), result.strptr, result.strlength);
else
- sv_setpvn(ST(0), "", 0);
+ sv_setpvs(ST(0), "");
}
if (result.strptr && result.strptr != resbuf)
DosFreeMem(result.strptr);
diff --git a/os2/os2.c b/os2/os2.c
index a4f5015..91daa81 100644
--- a/os2/os2.c
+++ b/os2/os2.c
@@ -2632,7 +2632,7 @@ XS(XS_OS2_Errors2Drive)
if (DOS_suppression_state > 0)
sv_setpvn(ST(0), &DOS_suppression_state, 1);
else if (DOS_suppression_state == 0)
- sv_setpvn(ST(0), "", 0);
+ sv_setpvs(ST(0), "");
DOS_suppression_state = drive;
}
XSRETURN(1);
diff --git a/pod/perlguts.pod b/pod/perlguts.pod
index 03e1610..576a41c 100644
--- a/pod/perlguts.pod
+++ b/pod/perlguts.pod
@@ -186,7 +186,7 @@ sv_insert() or sv_insert_flags().
If you don't need the existing content of the SV, you can avoid some
copying with:
- sv_setpvn(sv, "", 0);
+ sv_setpvs(sv, "");
s = SvGROW(sv, needlen + 1);
/* something that modifies up to needlen bytes at s, but modifies
newlen bytes
diff --git a/pod/perlhacktut.pod b/pod/perlhacktut.pod
index fc08336..4143ec3 100644
--- a/pod/perlhacktut.pod
+++ b/pod/perlhacktut.pod
@@ -74,7 +74,7 @@ of C<pat>:
items = SP - MARK;
MARK++;
- sv_setpvn(cat, "", 0);
+ sv_setpvs(cat, "");
+ patcopy = pat;
while (pat < patend) {
diff --git a/regcomp.c b/regcomp.c
index 8806c34..b00b385 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -18901,7 +18901,7 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const
regnode *o, const regmatch_
PERL_ARGS_ASSERT_REGPROP;
- sv_setpvn(sv, "", 0);
+ sv_setpvs(sv, "");
if (OP(o) > REGNODE_MAX) /* regnode.type is unsigned */
/* It would be nice to FAIL() here, but this may be called from
diff --git a/sv.c b/sv.c
index e2f199f..3cf52d9 100644
--- a/sv.c
+++ b/sv.c
@@ -10075,7 +10075,7 @@ Perl_sv_ref(pTHX_ SV *dst, const SV *const sv, const
int ob)
if (ob && SvOBJECT(sv)) {
HvNAME_get(SvSTASH(sv))
? sv_sethek(dst, HvNAME_HEK(SvSTASH(sv)))
- : sv_setpvn(dst, "__ANON__", 8);
+ : sv_setpvs(dst, "__ANON__");
}
else {
const char * reftype = sv_reftype(sv, 0);
diff --git a/win32/wince.c b/win32/wince.c
index ce06481..56a23b5 100644
--- a/win32/wince.c
+++ b/win32/wince.c
@@ -1368,7 +1368,7 @@ win32_str_os_error(void *sv, DWORD dwErr)
{
dTHX;
- sv_setpvn((SV*)sv, "Error", 5);
+ sv_setpvs((SV*)sv, "Error");
}
--
Perl5 Master Repository
