From 3cb7b6725f8ce3f136bc320e28585ea669d922fd Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Wed, 22 Aug 2012 09:46:28 -0700 Subject: [PATCH] toke.c: -DT should report forced tokens under -Dmad I was wondering why the -DT output was missing things out. This is why: #ifdef PERL_MAD /* FIXME - can these be merged? */ return next_type; #else return REPORT(next_type); #endif --- toke.c | 5 ----- 1 file changed, 5 deletions(-) diff --git a/toke.c b/toke.c index 9985ba9..7e3309d 100644 --- a/toke.c +++ b/toke.c @@ -4517,12 +4517,7 @@ Perl_yylex(pTHX) } if (S_is_opval_token(next_type) && pl_yylval.opval) pl_yylval.opval->op_savefree = 0; /* release */ -#ifdef PERL_MAD - /* FIXME - can these be merged? */ - return next_type; -#else return REPORT(next_type); -#endif } /* interpolated case modifiers like \L \U, including \Q and \E. -- 2.7.4