summaryrefslogtreecommitdiff
path: root/mg.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2014-09-27 14:15:00 -0700
committerFather Chrysostomos <sprout@cpan.org>2014-10-10 21:57:15 -0700
commit5f94141d59f532c32f6d4fe11724316757ab822e (patch)
tree1800d27c13cb812ec71c5aca52d830083558f91b /mg.c
parent05a3480266d84ff8acb7473e8a29dc8383393335 (diff)
downloadperl-5f94141d59f532c32f6d4fe11724316757ab822e.tar.gz
Assignment to hash element refs
Diffstat (limited to 'mg.c')
-rw-r--r--mg.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/mg.c b/mg.c
index 8a4bf130f4..1619367e2c 100644
--- a/mg.c
+++ b/mg.c
@@ -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;