gv.c: Make &.= overloading work

diff --git a/gv.c b/gv.c
index 6801816..236416a 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -3266,6 +3266,9 @@ Perl_amagic_call(pTHX_ SV *left, SV *right, int method, int flags)
     case band_amg:
     case bor_amg:
     case bxor_amg:
+    case sband_amg:
+    case sbor_amg:
+    case sbxor_amg:
       if (assign)
         force_scalar = 1;
       break;