for (nret = 0 ; numattrs && (attr = *attrlist++); numattrs--) {
STRLEN len;
- const char *name = SvPV(attr, len);
+ const char *name = SvPV_const(attr, len);
const bool negated = (*name == '-');
if (negated) {
sv = SvRV(rv);
if (SvOBJECT(sv))
- sv_setpv(TARG, HvNAME_get(SvSTASH(sv)));
+ sv_setpvn(TARG, HvNAME_get(SvSTASH(sv)), HvNAMELEN_get(SvSTASH(sv)));
#if 0 /* this was probably a bad idea */
else if (SvPADMY(sv))
sv_setsv(TARG, &PL_sv_no); /* unblessed lexical */
break;
}
if (stash)
- sv_setpv(TARG, HvNAME_get(stash));
+ sv_setpvn(TARG, HvNAME_get(stash), HvNAMELEN_get(stash));
}
SvSETMAGIC(TARG);
rv = ST(0);
ST(0) = TARG;
- if (SvGMAGICAL(rv))
- mg_get(rv);
+ SvGETMAGIC(rv);
if (!(SvOK(rv) && SvROK(rv)))
goto usage;
sv = SvRV(rv);