This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change sv_setpvn(…, "…", …) to sv_setpvs(…, "…")
authorDagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Wed, 21 Sep 2016 14:38:42 +0000 (15:38 +0100)
committerDagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Wed, 21 Sep 2016 14:42:44 +0000 (15:42 +0100)
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.

17 files changed:
dist/Data-Dumper/Dumper.pm
dist/Data-Dumper/Dumper.xs
dist/Storable/Storable.pm
dist/Storable/Storable.xs
doop.c
ext/POSIX/POSIX.xs
ext/POSIX/lib/POSIX.pm
ext/PerlIO-encoding/encoding.pm
ext/PerlIO-encoding/encoding.xs
os2/OS2/OS2-REXX/DLL/DLL.pm
os2/OS2/OS2-REXX/DLL/DLL.xs
os2/os2.c
pod/perlguts.pod
pod/perlhacktut.pod
regcomp.c
sv.c
win32/wince.c

index c71ad35..f461969 100644 (file)
@@ -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
 
index 0dc7699..017904e 100644 (file)
@@ -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 ? */
index c2a6a48..616869f 100644 (file)
@@ -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 {
index 83cd001..a5f8ecd 100644 (file)
@@ -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 (file)
--- 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);
     }
index 2af848b..d962541 100644 (file)
@@ -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 {
index f11595e..5d96e69 100644 (file)
@@ -4,7 +4,7 @@ use warnings;
 
 our ($AUTOLOAD, %SIGRT);
 
-our $VERSION = '1.72';
+our $VERSION = '1.73';
 
 require XSLoader;
 
index 13cb20b..08d2df4 100644 (file)
@@ -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";
 
index ee0836f..1101bf1 100644 (file)
@@ -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)
index 7db9488..2447a72 100644 (file)
@@ -1,6 +1,6 @@
 package OS2::DLL;
 
-our $VERSION = '1.06';
+our $VERSION = '1.07';
 
 use Carp;
 use XSLoader;
index 90b14ea..56194bd 100644 (file)
@@ -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);
index a4f5015..91daa81 100644 (file)
--- 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);
index 03e1610..576a41c 100644 (file)
@@ -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
index fc08336..4143ec3 100644 (file)
@@ -74,7 +74,7 @@ of C<pat>:
 
     items = SP - MARK;
     MARK++;
-    sv_setpvn(cat, "", 0);
+    sv_setpvs(cat, "");
  +  patcopy = pat;
     while (pat < patend) {
 
index 8806c34..b00b385 100644 (file)
--- 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 (file)
--- 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);
index ce06481..56a23b5 100644 (file)
@@ -1368,7 +1368,7 @@ win32_str_os_error(void *sv, DWORD dwErr)
 {
   dTHX;
 
-  sv_setpvn((SV*)sv, "Error", 5);
+  sv_setpvs((SV*)sv, "Error");
 }