diff options
author | Dave Mitchell <davem@fdisolutions.com> | 2008-04-25 02:21:31 +0000 |
---|---|---|
committer | Dave Mitchell <davem@fdisolutions.com> | 2008-04-25 02:21:31 +0000 |
commit | 7d5a38cba25181bf0f2e3c4a2cd1028ddb76f6b9 (patch) | |
tree | d7b81147ce80223edf960179e4f8f41f83be6497 /pp.c | |
parent | dab1532eff4365c648cd9640294149cef13873c5 (diff) | |
download | perl-7d5a38cba25181bf0f2e3c4a2cd1028ddb76f6b9.tar.gz |
Integrate:
[ 32813]
Possible future bugs found by the creation of newSVpvn_flags().
But use newSVhek() in preference when possible.
[ 32815]
We can now sv_upgrade(sv, SVt_PVHV), so do so, to simplify the code.
p4raw-link: @32815 on //depot/perl: 4ea5041177724167b8ebcdd1a7c30762d7639fc4
p4raw-link: @32813 on //depot/perl: a663657d0cdfdd8f98eb85b84cbe10f066631c32
p4raw-id: //depot/maint-5.10/perl@33742
p4raw-integrated: from //depot/perl@32815 'merge in' mro.c (@32169..)
p4raw-integrated: from //depot/perl@32813 'merge in' perl.c pp.c
regcomp.c (@32807..) sv.c (@32811..)
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -630,7 +630,7 @@ PP(pp_gelem) break; case 'N': if (strEQ(second_letter, "AME")) - sv = newSVpvn(GvNAME(gv), GvNAMELEN(gv)); + sv = newSVhek(GvNAME_HEK(gv)); break; case 'P': if (strEQ(second_letter, "ACKAGE")) { |