More SvPV consting

p4raw-id: //depot/perl@24743

1 files changed, 2 insertions, 2 deletions

diff --git a/mg.c b/mg.c
index e1618474e2..819b01291d 100644
--- a/mg.c
+++ b/mg.c
@@ -263,11 +263,11 @@ Perl_mg_length(pTHX_ SV *sv)
     }
 
     if (DO_UTF8(sv)) {
-        U8 *s = (U8*)SvPV(sv, len);
+        const U8 *s = (U8*)SvPV_const(sv, len);
         len = Perl_utf8_length(aTHX_ s, s + len);
     }
     else
-        (void)SvPV(sv, len);
+        (void)SvPV_const(sv, len);
     return len;
 }