Change 31700 by [EMAIL PROTECTED] on 2007/08/10 13:37:42
Fix compilation with threads
Affected files ...
... //depot/perl/toke.c#790 edit
Differences ...
==== //depot/perl/toke.c#790 (text) ====
Index: perl/toke.c
--- perl/toke.c#789~31699~ 2007-08-10 02:57:08.000000000 -0700
+++ perl/toke.c 2007-08-10 06:37:42.000000000 -0700
@@ -3561,7 +3561,7 @@
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:
End of Patch.
