gv.c: Make &.= overloading work

1 files changed, 3 insertions, 0 deletions

diff --git a/gv.c b/gv.c
index 68018162f1..236416a609 100644
--- 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;