summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2005-06-03 11:06:36 +0000
committerNicholas Clark <nick@ccl4.org>2005-06-03 11:06:36 +0000
commit5aaec2b4ba9ed3b1a9d1569e09bc40d19ec30f8c (patch)
tree96dd815438c6206c6b8c4060abf84e640d6b7060 /pp.c
parentc1b02ed82fa9b8892ce2668d35b6825f1fd3fb59 (diff)
downloadperl-5aaec2b4ba9ed3b1a9d1569e09bc40d19ec30f8c.tar.gz
Use newSVhek where we're generating SVs from package names
p4raw-id: //depot/perl@24697
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/pp.c b/pp.c
index 97a5cfba8a..2014f6f525 100644
--- a/pp.c
+++ b/pp.c
@@ -600,9 +600,8 @@ PP(pp_gelem)
break;
case 'P':
if (strEQ(elem2, "ACKAGE")) {
- const char *name = HvNAME_get(GvSTASH(gv));
- sv = newSVpvn(name ? name : "__ANON__",
- name ? HvNAMELEN_get(GvSTASH(gv)) : 8);
+ const HEK *hek = HvNAME_HEK(GvSTASH(gv));
+ sv = hek ? newSVhek(hek) : newSVpvn("__ANON__", 8);
}
break;
case 'S':