This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
D'oh! Spurious aTHX_. Here was I thinking that my test build was
authorNicholas Clark <nick@ccl4.org>
Mon, 3 Jan 2005 18:54:22 +0000 (18:54 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 3 Jan 2005 18:54:22 +0000 (18:54 +0000)
threaded, but "oh no it isn't!" :-(

p4raw-id: //depot/perl@23733

toke.c

diff --git a/toke.c b/toke.c
index bdf8ed4..8d343dd 100644 (file)
--- 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  */