X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/67288365cab33e76a48b697c001c11d4dc5b1912..386a54892347d3298ba7f1e98f207e36bc4f3424:/gv.c

diff --git a/gv.c b/gv.c
index c4089cd..8251c29 100644
--- a/gv.c
+++ b/gv.c
@@ -2274,10 +2274,16 @@ Perl_Gv_AMupdate(pTHX_ HV *stash, bool destructing)
 	NOOP;   /* Equivalent to !SvTRUE and !SvOK  */
     }
 #endif
-    else if (SvTRUE(sv))
+    else if (SvTRUE(sv)) {
 	amt.fallback=AMGfallYES;
-    else if (SvOK(sv))
+        filled = 1;
+        have_ovl = 1;
+    }
+    else if (SvOK(sv)) {
 	amt.fallback=AMGfallNEVER;
+        filled = 1;
+        have_ovl = 1;
+    }
 
     for (i = 1; i < lim; i++)
 	amt.table[i] = NULL;