Change 33833: [PATCH] Prevent the tokenizer from segfaulting in debug mode when a FUNC token is forced

[H . Merijn Brand]

Change 33833 by [EMAIL PROTECTED] on 2008/05/16 12:13:21

        Subject: [PATCH] Prevent the tokenizer from segfaulting in debug mode 
when a FUNC token is forced
           From: "Rafael Garcia-Suarez" <[EMAIL PROTECTED]>
           Date: Fri, 16 May 2008 12:13:23 +0200
           Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/toke.c#821 edit

Differences ...

==== //depot/perl/toke.c#821 (text) ====
Index: perl/toke.c
--- perl/toke.c#820~33822~      2008-05-11 08:10:32.000000000 -0700
+++ perl/toke.c 2008-05-16 05:13:21.000000000 -0700
@@ -1359,7 +1359,7 @@
 #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
End of Patch.