X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=gv.c;h=65419bdfefcc118824f74b832adb8516db63bbec;hb=cbfd0a879b2bf2ade4a309e6d56c08ba19f320e1;hp=d14557991d553fa820d24e3697853a2693432c11;hpb=67fbe0e1b13187d3561157e5b4b998bec3109d41;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/gv.c b/gv.c
index d145579..65419bd 100644
--- a/gv.c
+++ b/gv.c
@@ -1865,11 +1865,11 @@ Perl_amagic_call(pTHX_ SV *left, SV *right, int method, int flags)
 	   * masked by overloading.pm */
 	  STRLEN len;
 	  const int offset = method / 8;
-	  const int bit    = method % 7;
+	  const int bit    = method % 8;
 	  char *pv = SvPV(lex_mask, len);
 
 	  /* Bit set, so this overloading operator is disabled */
-	  if ( (STRLEN)offset <= len && pv[offset] & ( 1 << bit ) )
+	  if ( (STRLEN)offset < len && pv[offset] & ( 1 << bit ) )
 	      return NULL;
       }
   }