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

diff --git a/toke.c b/toke.c
index 9985ba9..7e3309d 100644 (file)
--- 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.