From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 3 Jan 2005 18:54:22 +0000 (+0000)
Subject: D'oh! Spurious aTHX_. Here was I thinking that my test build was
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9a3fb6522b161a2f761167a3e37e9407a2011a9e;p=p5sagit%2Fp5-mst-13.2.git

D'oh! Spurious aTHX_. Here was I thinking that my test build was
threaded, but "oh no it isn't!" :-(

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

diff --git a/toke.c b/toke.c
index bdf8ed4..8d343dd 100644
--- a/toke.c
+++ b/toke.c
@@ -2597,7 +2597,7 @@ Perl_yylex(pTHX)
 			    /* The count here deliberately includes the NUL
 			       that terminates the C string constant.  This
 			       embeds the opening NUL into the string.  */
-			    sv_catpvn(aTHX_ PL_linestr, "our @F=split(q", 15);
+			    sv_catpvn(PL_linestr, "our @F=split(q", 15);
 			    s = PL_splitstr;
 			    do {
 				/* Need to \ \s  */