summaryrefslogtreecommitdiff
path: root/mg.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1998-07-29 18:14:32 +0000
committerGurusamy Sarathy <gsar@cpan.org>1998-07-29 18:14:32 +0000
commitaf7f9c15b19acb8a3505931059b5c163366afc7d (patch)
tree4bf3f9d59960226919a8f61c0f4bd065fd909f8d /mg.c
parent46d2b8efbdb8a80b2cd16fb0b25dca2e0cf590b8 (diff)
downloadperl-af7f9c15b19acb8a3505931059b5c163366afc7d.tar.gz
fix typo in change#1489 that prevented magic-autovivification
p4raw-link: @1489 on //depot/perl: 74e13ce44e4508bd9e7db3e72533836d36277ca3 p4raw-id: //depot/maint-5.005/perl@1673
Diffstat (limited to 'mg.c')
-rw-r--r--mg.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/mg.c b/mg.c
index 6068d9bdec..75c14d0f59 100644
--- a/mg.c
+++ b/mg.c
@@ -1398,12 +1398,12 @@ vivify_defelem(SV *sv)
if (mg->mg_obj) {
SV *ahv = LvTARG(sv);
if (SvTYPE(ahv) == SVt_PVHV) {
- HE *he = hv_fetch_ent((HV*)ahv, mg->mg_obj, FALSE, 0);
+ HE *he = hv_fetch_ent((HV*)ahv, mg->mg_obj, TRUE, 0);
if (he)
value = HeVAL(he);
}
else {
- SV **svp = avhv_fetch_ent((AV*)ahv, mg->mg_obj, FALSE, 0);
+ SV **svp = avhv_fetch_ent((AV*)ahv, mg->mg_obj, TRUE, 0);
if (svp)
value = *svp;
}