Use newSVhek where we're generating SVs from package names

p4raw-id: //depot/perl@24697

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':