X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=mg.c;h=4da71b10230e5a7b74d1620b796696a32d4a9b4b;hb=1aa6dd61aa6395f566dba3dd09a3a1a4396547e3;hp=9fe33690c1d74356338a2453888f1869cc8f1888;hpb=39149da365a92c1591bb7f6e6f7b139f25712356;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/mg.c b/mg.c
index 9fe3369..4da71b1 100644
--- a/mg.c
+++ b/mg.c
@@ -454,6 +454,7 @@ Perl_magic_len(pTHX_ SV *sv, MAGIC *mg)
 		    char *s    = rx->subbeg + s1;
 		    char *send = rx->subbeg + t1;
 
+                    i = t1 - s1;
 		    if (is_utf8_string((U8*)s, i))
 			i = Perl_utf8_length(aTHX_ (U8*)s, (U8*)send);
 		}