"use overload fallback => 0" should enable overloading [perl #113010]

This makes

  package Foo;
  use overload fallback => 0;

and

  package Bar;
  use overload '+' => \&add, fallback => 0;

behave identically when an operator other than '+' is used.

1 files changed, 8 insertions, 2 deletions

diff --git a/gv.c b/gv.c
index c4089cd123..8251c29a68 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;