From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 27 Jan 2001 04:44:04 +0000 (+0000)
Subject: Threadedness patch for #8562 from Doug MacEachern.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=61b2116b4a324a590192eed179e698231a0e5cd6;p=p5sagit%2Fp5-mst-13.2.git

Threadedness patch for #8562 from Doug MacEachern.

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

diff --git a/toke.c b/toke.c
index d2dd026..1b41dcc 100644
--- a/toke.c
+++ b/toke.c
@@ -176,12 +176,12 @@ int yyactlevel = -1;
 #define OLDLOP(f) return(yylval.ival=f,PL_expect = XTERM,PL_bufptr = s,(int)LSTOP)
 
 void
-S_tokereport(char *thing, char* s, I32 rv)
+S_tokereport(pTHX_ char *thing, char* s, I32 rv)
 { 
     SV *report;
     DEBUG_T({
         report = newSVpv(thing, 0);
-        sv_catpvf(report, ":line %i:%i:", CopLINE(PL_curcop), rv);
+        Perl_sv_catpvf(aTHX_ report, ":line %i:%i:", CopLINE(PL_curcop), rv);
 
         if (s - PL_bufptr > 0)
             sv_catpvn(report, PL_bufptr, s - PL_bufptr);