This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Prevent the tokenizer from segfaulting in debug mode when a FUNC token is forced
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 16 May 2008 12:13:23 +0000 (14:13 +0200)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Fri, 16 May 2008 12:13:21 +0000 (12:13 +0000)
   From: "Rafael Garcia-Suarez" <rgarciasuarez@gmail.com>
   Message-ID: <b77c1dce0805160313r78cb1b2bxfeb64460d2e9a7df@mail.gmail.com>

p4raw-id: //depot/perl@33833

toke.c

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