Store the package name as a shared HEK.

Abolish HvNAME() - as the stored pointer is not a char* you can't set
it directly now.
Storing a pointer to a HEK tracks the length too, and seems to be
faster.

p4raw-id: //depot/perl@24584

1 files changed, 2 insertions, 2 deletions

diff --git a/op.c b/op.c
index c49537cb4f..9d0ca5d169 100644
--- a/op.c
+++ b/op.c
@@ -1535,7 +1535,7 @@ S_apply_attrs(pTHX_ HV *stash, SV *target, OP *attrs, bool for_my)
     ENTER;		/* need to protect against side-effects of 'use' */
     SAVEINT(PL_expect);
     if (stash)
-	stashsv = newSVpv(HvNAME_get(stash), 0);
+	stashsv = newSVpvn(HvNAME_get(stash), HvNAMELEN_get(stash));
     else
 	stashsv = &PL_sv_no;
 
@@ -1588,7 +1588,7 @@ S_apply_attrs_my(pTHX_ HV *stash, OP *target, OP *attrs, OP **imopsp)
 
     /* Build up the real arg-list. */
     if (stash)
-	stashsv = newSVpv(HvNAME_get(stash), 0);
+	stashsv = newSVpvn(HvNAME_get(stash), HvNAMELEN_get(stash));
     else
 	stashsv = &PL_sv_no;
     arg = newOP(OP_PADSV, 0);