diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-05-16 14:13:23 +0200 |
---|---|---|
committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2008-05-16 12:13:21 +0000 |
commit | f05d7009fffc72d5b11ea5e553117baa7256a9a7 (patch) | |
tree | 39e4b6acdb594ca017cde024ee70150edcc3d5f3 /toke.c | |
parent | 06c0dd34a681f87b6f50a0e24a82a6da479fe953 (diff) | |
download | perl-f05d7009fffc72d5b11ea5e553117baa7256a9a7.tar.gz |
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
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |