From: Father Chrysostomos <sprout@cpan.org>
Date: Wed, 22 Aug 2012 16:46:28 +0000 (-0700)
Subject: toke.c: -DT should report forced tokens under -Dmad
X-Git-Tag: upstream/5.20.0~5689
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=3cb7b6725f8ce3f136bc320e28585ea669d922fd;p=platform%2Fupstream%2Fperl.git

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
--- 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.