summaryrefslogtreecommitdiff
path: root/ext/attributes/attributes.xs
diff options
context:
space:
mode:
authorBrian Fraser <fraserbn@gmail.com>2011-07-22 18:16:42 +0100
committerFather Chrysostomos <sprout@cpan.org>2011-10-06 13:01:20 -0700
commit89a5757c96fe4f4c0a6bfec37e8037a7d311ee5a (patch)
tree332effe87608709799eca17ad75d4d7235468ab5 /ext/attributes/attributes.xs
parent2dc9cdca3520d3d5a348f283070e7a629ff41d38 (diff)
downloadperl-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.xs4
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);