From 987a03fc5bbe9f29ec2ae5a4dbe63bd583860752 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Fri, 10 Aug 2007 13:37:42 +0000 Subject: [PATCH] Fix compilation with threads p4raw-id: //depot/perl@31700 --- toke.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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: -- 2.7.4