From 4ebc798659d1b2b92cfe1d21cb6a18cf64ce9f31 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Fri, 31 May 2013 18:27:19 -0700 Subject: [PATCH] toke.c: Under -DT, report pending idents more clearly These are treated as forced tokens of type 'p'. Indicate what the 'p' means in the debug output. This: ### 0:LEX_NORMAL/XSTATE "\n;" ### forced token: ### <== 'p' becomes this: ### 0:LEX_NORMAL/XSTATE "\n;" ### forced token: ### <== 'p' (pending identifier) --- toke.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/toke.c b/toke.c index ba67bc6..954ec33 100644 --- a/toke.c +++ b/toke.c @@ -427,7 +427,11 @@ S_tokereport(pTHX_ I32 rv, const YYSTYPE* lvalp) if (name) Perl_sv_catpv(aTHX_ report, name); else if ((char)rv > ' ' && (char)rv <= '~') + { Perl_sv_catpvf(aTHX_ report, "'%c'", (char)rv); + if ((char)rv == 'p') + sv_catpvs(report, " (pending identifier)"); + } else if (!rv) sv_catpvs(report, "EOF"); else -- 2.7.4