UTF-8 bugs in string length & single line regex matches

Message-ID: <20010803113932.A19318@berrange.com>

(the mg_length() fix)

p4raw-id: //depot/perl@11572

1 files changed, 7 insertions, 1 deletions

diff --git a/mg.c b/mg.c
index 5a8c189e82..2e528ba538 100644
--- a/mg.c
+++ b/mg.c
@@ -185,7 +185,13 @@ Perl_mg_length(pTHX_ SV *sv)
 	}
     }
 
-    (void)SvPV(sv, len);
+    if (DO_UTF8(sv)) 
+    {
+        U8 *s = (U8*)SvPV(sv, len);
+        len = Perl_utf8_length(aTHX_ s, s + len);
+    }
+    else
+        (void)SvPV(sv, len);
     return len;
 }