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 (file)
--- 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