From: Chip Salzenberg <chip@pobox.com>
Date: Wed, 26 Aug 2009 22:17:55 +0000 (-0700)
Subject: fix threaded build after 8ff3e83b
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=64142370d4f5f7df29204eba9a3c2920c9f6c11d;p=p5sagit%2Fp5-mst-13.2.git

fix threaded build after 8ff3e83b
---

diff --git a/toke.c b/toke.c
index 35ea218..de163fb 100644
--- a/toke.c
+++ b/toke.c
@@ -2826,7 +2826,7 @@ S_intuit_method(pTHX_ char *start, GV *gv, CV *cv)
       bare_package:
 	    start_force(PL_curforce);
 	    NEXTVAL_NEXTTOKE.opval = (OP*)newSVOP(OP_CONST, 0,
-						  S_newSV_maybe_utf8(tmpbuf,len));
+						  S_newSV_maybe_utf8(aTHX_ tmpbuf, len));
 	    NEXTVAL_NEXTTOKE.opval->op_private = OPpCONST_BARE;
 	    if (PL_madskills)
 		curmad('X', newSVpvn(start,SvPVX(PL_linestr) + soff - start));