get rid of "implicit fallthrough" warnings with gcc 7

[perl5.git] / toke.c

diff --git a/toke.c b/toke.c
index a91a4fc..6c3148d 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -7231,6 +7231,7 @@ Perl_yylex(pTHX)
                orig_keyword = 0;
                lex = 0;
                off = 0;
+            /* FALLTHROUGH */
        default:                        /* not a keyword */
          just_a_word: {
                int pkgname = 0;