diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-08-10 13:37:42 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-08-10 13:37:42 +0000 |
| commit | 987a03fc5bbe9f29ec2ae5a4dbe63bd583860752 (patch) | |
| tree | c09d72e970841cbf52ff4cdfc03edf6cb3212801 /toke.c | |
| parent | 356c7adf53ddf6b2b7f62f53bc2d999b974db873 (diff) | |
| download | perl-987a03fc5bbe9f29ec2ae5a4dbe63bd583860752.tar.gz | |
Fix compilation with threads
p4raw-id: //depot/perl@31700
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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: |