From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 16 May 2008 12:13:23 +0000 (+0200)
Subject: Prevent the tokenizer from segfaulting in debug mode when a FUNC token is forced
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f05d7009fffc72d5b11ea5e553117baa7256a9a7;p=p5sagit%2Fp5-mst-13.2.git

Prevent the tokenizer from segfaulting in debug mode when a FUNC token is forced
   From: "Rafael Garcia-Suarez" <rgarciasuarez@gmail.com>
   Message-ID: <b77c1dce0805160313r78cb1b2bxfeb64460d2e9a7df@mail.gmail.com>

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

diff --git a/toke.c b/toke.c
index abdc54d..2a63a90 100644
--- a/toke.c
+++ b/toke.c
@@ -1359,7 +1359,7 @@ S_force_next(pTHX_ I32 type)
 #ifdef DEBUGGING
     if (DEBUG_T_TEST) {
         PerlIO_printf(Perl_debug_log, "### forced token:\n");
-	tokereport(THING, &NEXTVAL_NEXTTOKE);
+	tokereport(type, &NEXTVAL_NEXTTOKE);
     }
 #endif
 #ifdef PERL_MAD