diff options
author | Brian Fraser <fraserbn@gmail.com> | 2011-07-22 18:16:42 +0100 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-06 13:01:20 -0700 |
commit | 89a5757c96fe4f4c0a6bfec37e8037a7d311ee5a (patch) | |
tree | 332effe87608709799eca17ad75d4d7235468ab5 /ext/attributes/attributes.xs | |
parent | 2dc9cdca3520d3d5a348f283070e7a629ff41d38 (diff) | |
download | perl-89a5757c96fe4f4c0a6bfec37e8037a7d311ee5a.tar.gz |
toke.c, ext/attributes/attributes.xs: Make attributes UTF-8 clean.
Diffstat (limited to 'ext/attributes/attributes.xs')
-rw-r--r-- | ext/attributes/attributes.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/attributes/attributes.xs b/ext/attributes/attributes.xs index 3900c36d16..d771889f54 100644 --- a/ext/attributes/attributes.xs +++ b/ext/attributes/attributes.xs @@ -161,7 +161,7 @@ usage: sv = SvRV(rv); if (SvOBJECT(sv)) - sv_setpvn(TARG, HvNAME_get(SvSTASH(sv)), HvNAMELEN_get(SvSTASH(sv))); + Perl_sv_sethek(aTHX_ TARG, HvNAME_HEK(SvSTASH(sv))); #if 0 /* this was probably a bad idea */ else if (SvPADMY(sv)) sv_setsv(TARG, &PL_sv_no); /* unblessed lexical */ @@ -183,7 +183,7 @@ usage: break; } if (stash) - sv_setpvn(TARG, HvNAME_get(stash), HvNAMELEN_get(stash)); + Perl_sv_sethek(aTHX_ TARG, HvNAME_HEK(stash)); } SvSETMAGIC(TARG); |