From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 10 Aug 2007 13:37:42 +0000 (+0000)
Subject: Fix compilation with threads
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=987a03fc5bbe9f29ec2ae5a4dbe63bd583860752;p=p5sagit%2Fp5-mst-13.2.git

Fix compilation with threads

p4raw-id: //depot/perl@31700
---

diff --git a/toke.c b/toke.c
index 889e7ec..428a7c2 100644
--- a/toke.c
+++ b/toke.c
@@ -3561,7 +3561,7 @@ Perl_yylex(pTHX)
     default:
 	if (isIDFIRST_lazy_if(s,UTF))
 	    goto keylookup;
-	len = UTF ? Perl_utf8_length((U8 *) PL_linestart, (U8 *) s) : (STRLEN) (s - PL_linestart);
+	len = UTF ? Perl_utf8_length(aTHX_ (U8 *) PL_linestart, (U8 *) s) : (STRLEN) (s - PL_linestart);
 	Perl_croak(aTHX_ "Unrecognized character \\x%02X in column %d", *s & 255, (int) len + 1);
     case 4:
     case 26: