This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perly.c: Emit nl after ‘Reading a token’
authorFather Chrysostomos <sprout@cpan.org>
Wed, 7 Jan 2015 19:01:59 +0000 (11:01 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 7 Jan 2015 19:01:59 +0000 (11:01 -0800)
This makes the -DTp output easier to read.

perly.c

diff --git a/perly.c b/perly.c
index f3243d4..48f0e80 100644 (file)
--- a/perly.c
+++ b/perly.c
@@ -318,7 +318,7 @@ Perl_yyparse (pTHX_ int gramtype)
 
     /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol.  */
     if (parser->yychar == YYEMPTY) {
-       YYDPRINTF ((Perl_debug_log, "Reading a token: "));
+       YYDPRINTF ((Perl_debug_log, "Reading a token:\n"));
        parser->yychar = yylex();
     }