summaryrefslogtreecommitdiff
path: root/perly.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2016-12-07 15:15:26 +0000
committerDavid Mitchell <davem@iabyn.com>2016-12-07 15:15:26 +0000
commit6d17784b921190b24fedff274376615eec2e3733 (patch)
treef0a8b07078f71710e2bb18f1b5560d9d0258d868 /perly.c
parent5247d03dd8125594173a7d27bc27bcc08b01b7b1 (diff)
downloadperl-6d17784b921190b24fedff274376615eec2e3733.tar.gz
perly.c: silence a -Wempty-body warning
perly.c:350:21: warning: suggest braces around empty body in an ‘if’ statement [ -Wempty-body]
Diffstat (limited to 'perly.c')
-rw-r--r--perly.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/perly.c b/perly.c
index 5d1519f262..8fc1913511 100644
--- a/perly.c
+++ b/perly.c
@@ -346,8 +346,9 @@ Perl_yyparse (pTHX_ int gramtype)
YYDPRINTF ((Perl_debug_log, "Reading a token:\n"));
parser->yychar = yylex();
assert(parser->yychar >= 0);
- if (parser->yychar == YYEOF)
+ if (parser->yychar == YYEOF) {
YYDPRINTF ((Perl_debug_log, "Now at end of input.\n"));
+ }
/* perly.tab is shipped based on an ASCII system, so need
* to index it with characters translated to ASCII.
* Although it's not designed for this purpose, we can use