diff options
| author | Zefram <zefram@fysh.org> | 2017-11-29 20:19:20 +0000 |
|---|---|---|
| committer | Zefram <zefram@fysh.org> | 2017-11-29 20:19:20 +0000 |
| commit | 97b4caa610942fa2caded4f8ec03ac72089cd30e (patch) | |
| tree | eb4e355f7bb4909b5db236857b80af270a345a62 /keywords.c | |
| parent | 619bbb9ab0f3cffda05f980b2ebb5bf660ad6962 (diff) | |
| download | perl-97b4caa610942fa2caded4f8ec03ac72089cd30e.tar.gz | |
remove useless "break" mechanism
Diffstat (limited to 'keywords.c')
| -rw-r--r-- | keywords.c | 36 |
1 files changed, 10 insertions, 26 deletions
diff --git a/keywords.c b/keywords.c index e68e9f5f6f..1576d4addf 100644 --- a/keywords.c +++ b/keywords.c @@ -950,7 +950,7 @@ Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords) goto unknown; } - case 5: /* 39 tokens of length 5 */ + case 5: /* 38 tokens of length 5 */ switch (name[0]) { case 'B': @@ -1003,32 +1003,16 @@ Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords) } case 'b': - switch (name[1]) - { - case 'l': - if (name[2] == 'e' && - name[3] == 's' && - name[4] == 's') - { /* bless */ - return -KEY_bless; - } - - goto unknown; - - case 'r': - if (name[2] == 'e' && - name[3] == 'a' && - name[4] == 'k') - { /* break */ - return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? -KEY_break : 0); - } - - goto unknown; - - default: - goto unknown; + if (name[1] == 'l' && + name[2] == 'e' && + name[3] == 's' && + name[4] == 's') + { /* bless */ + return -KEY_bless; } + goto unknown; + case 'c': switch (name[1]) { @@ -3417,5 +3401,5 @@ unknown: } /* Generated from: - * 1e6a65fdd2e2d8aec28927cb9cbfed6e8a33ba077f0114b420746a04b0df8792 regen/keywords.pl + * 50664fad65e719c51bf369702163eb7ade79f997461f928cc20f1e1bcf8369b8 regen/keywords.pl * ex: set ro: */ |