Oops, fix threaded build
Rafael Garcia-Suarez [Thu, 1 Sep 2005 15:00:15 +0000 (15:00 +0000)]
p4raw-id: //depot/perl@25346

toke.c

diff --git a/toke.c b/toke.c
index cb2c589..ae39bcf 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -2294,7 +2294,7 @@ S_find_in_my_stash(pTHX_ const char *pkgname, I32 len)
 }
 
 STATIC char *
-S_tokenize_use(int is_use, char *s) {
+S_tokenize_use(pTHX_ int is_use, char *s) {
     if (PL_expect != XSTATE)
        yyerror(Perl_form(aTHX_ "\"%s\" not allowed in expression",
                    is_use ? "use" : "no"));