FAQ

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

Rafael Garcia-Suarez
May 16, 2008 at 10:13 am
Could someone apply this ?
In case the patch isn't crystal clear, it prevents the tokenizer from
segfaulting in debug mode when a FUNC token is forced. Makes also the
debug report for forced tokens more explicit.

--- toke.c
+++ toke.c
@@ -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
reply

Search Discussions

1 response

  • H.Merijn Brand at May 16, 2008 at 12:13 pm

    On Fri, 16 May 2008 12:13:23 +0200, "Rafael Garcia-Suarez" wrote:

    Could someone apply this ?
    Done in change #33833
    In case the patch isn't crystal clear, it prevents the tokenizer from
    segfaulting in debug mode when a FUNC token is forced. Makes also the
    debug report for forced tokens more explicit.

    --- toke.c
    +++ toke.c
    @@ -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

    --
    H.Merijn Brand Amsterdam Perl Mongers (http://amsterdam.pm.org/)
    using & porting perl 5.6.2, 5.8.x, 5.10.x on HP-UX 10.20, 11.00, 11.11,
    & 11.23, SuSE 10.1 & 10.2, AIX 5.2, and Cygwin. http://qa.perl.org
    http://mirrors.develooper.com/hpux/ http://www.test-smoke.org
    http://www.goldmark.org/jeff/stupid-disclaimers/

Related Discussions

Discussion Navigation
viewthread | post