Missing aTHX_

p4raw-id: //depot/perlio@7750

diff --git a/sv.c b/sv.c
index e193bc5..7a6085a 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -4006,7 +4006,7 @@ Perl_sv_len_utf8(pTHX_ register SV *sv)
        STRLEN len;
        U8 *s = (U8*)SvPV(sv, len);
 
-       return Perl_utf8_length(s, s + len);
+       return Perl_utf8_length(aTHX_ s, s + len);
     }
 }