diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-09-27 14:15:00 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-10-10 21:57:15 -0700 |
commit | 5f94141d59f532c32f6d4fe11724316757ab822e (patch) | |
tree | 1800d27c13cb812ec71c5aca52d830083558f91b /mg.c | |
parent | 05a3480266d84ff8acb7473e8a29dc8383393335 (diff) | |
download | perl-5f94141d59f532c32f6d4fe11724316757ab822e.tar.gz |
Assignment to hash element refs
Diffstat (limited to 'mg.c')
-rw-r--r-- | mg.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -2484,6 +2484,10 @@ Perl_magic_setlvref(pTHX_ SV *sv, MAGIC *mg) case SVt_PVAV: av_store((AV *)mg->mg_obj, SvIV((SV *)mg->mg_ptr), SvREFCNT_inc_simple_NN(SvRV(sv))); + break; + case SVt_PVHV: + hv_store_ent((HV *)mg->mg_obj, (SV *)mg->mg_ptr, + SvREFCNT_inc_simple_NN(SvRV(sv)), 0); } sv_unmagic(sv, PERL_MAGIC_lvref); return 0; |