diff options
author | Nicholas Clark <nick@ccl4.org> | 2005-06-03 11:06:36 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2005-06-03 11:06:36 +0000 |
commit | 5aaec2b4ba9ed3b1a9d1569e09bc40d19ec30f8c (patch) | |
tree | 96dd815438c6206c6b8c4060abf84e640d6b7060 /pp.c | |
parent | c1b02ed82fa9b8892ce2668d35b6825f1fd3fb59 (diff) | |
download | perl-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.c | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -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': |