This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
toke.c: -DT should report forced tokens under -Dmad
authorFather Chrysostomos <sprout@cpan.org>
Wed, 22 Aug 2012 16:46:28 +0000 (09:46 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 22 Aug 2012 16:46:28 +0000 (09:46 -0700)
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

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.