From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sun, 19 Nov 2000 16:57:14 +0000 (+0000)
Subject: Missing aTHX_
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d6efbbad1ae8d76e90821a7418ba77645896b8bf;p=p5sagit%2Fp5-mst-13.2.git

Missing aTHX_

p4raw-id: //depot/perlio@7750
---

diff --git a/sv.c b/sv.c
index e193bc5..7a6085a 100644
--- 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);
     }
 }