From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 1 Sep 2005 15:00:15 +0000 (+0000)
Subject: Oops, fix threaded build
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cc6ed77d04bf16cb06af8602b4d69f01bf68bd79;p=p5sagit%2Fp5-mst-13.2.git

Oops, fix threaded build

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

diff --git a/toke.c b/toke.c
index cb2c589..ae39bcf 100644
--- 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"));