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;
=head1 VERSION
-Version 2.161 (July 11 2016)
+Version 2.162 (September 21 2016)
=head1 SEE ALSO
}
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);
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 ? */
use vars qw($canonical $forgive_me $VERSION);
-$VERSION = '2.57';
+$VERSION = '2.58';
BEGIN {
if (eval {
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */
if (len == 0) {
- sv_setpvn(sv, "", 0);
+ sv_setpvs(sv, "");
return sv;
}
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)));
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);
}
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 {
our ($AUTOLOAD, %SIGRT);
-our $VERSION = '1.72';
+our $VERSION = '1.73';
require XSLoader;
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";
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)
package OS2::DLL;
-our $VERSION = '1.06';
+our $VERSION = '1.07';
use Carp;
use XSLoader;
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);
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);
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
items = SP - MARK;
MARK++;
- sv_setpvn(cat, "", 0);
+ sv_setpvs(cat, "");
+ patcopy = pat;
while (pat < patend) {
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
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);
{
dTHX;
- sv_setpvn((SV*)sv, "Error", 5);
+ sv_setpvs((SV*)sv, "Error");
}