From f05d7009fffc72d5b11ea5e553117baa7256a9a7 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 16 May 2008 14:13:23 +0200
Subject: 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
---
 toke.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'toke.c')

diff --git a/toke.c b/toke.c
index abdc54d8af..2a63a90a8b 100644
--- 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
-- 
cgit v1.2.1