diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-08-03 12:41:11 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-09-15 22:45:05 -0700 |
| commit | 2e800d795e15b864092072119d45b4d3b18b4c88 (patch) | |
| tree | 3a26ed24f78ac44e0583caa579ea9878f1016877 /scope.c | |
| parent | 6d5c21479838db78689e08afd075ef4e9100ef0d (diff) | |
| download | perl-2e800d795e15b864092072119d45b4d3b18b4c88.tar.gz | |
CvNAME_HEK_set
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 8 |
1 files changed, 3 insertions, 5 deletions
@@ -937,8 +937,7 @@ Perl_leave_scope(pTHX_ I32 base) assert(hek); share_hek_hek(hek); cv_undef((CV *)sv); - SvANY((CV *)sv)->xcv_gv_u.xcv_hek = hek; - CvNAMED_on(sv); + CvNAME_HEK_set(sv, hek); break; } default: @@ -964,9 +963,8 @@ Perl_leave_scope(pTHX_ I32 base) /* Share name */ assert(CvNAMED(sv)); - SvANY((CV *)*svp)->xcv_gv_u.xcv_hek = - share_hek_hek(SvANY((CV *)sv)->xcv_gv_u.xcv_hek); - CvNAMED_on(*svp); + CvNAME_HEK_set(*svp, + share_hek_hek(CvNAME_HEK((CV *)sv))); /* Steal magic */ while (mg) { |