diff options
author | Lukas Mai <l.mai@web.de> | 2016-01-08 02:29:09 +0100 |
---|---|---|
committer | Lukas Mai <l.mai@web.de> | 2016-01-08 02:29:09 +0100 |
commit | 9c096387519b81520f9bffc8b3223dac918d739a (patch) | |
tree | c6ad846dedd6084b6e9ec39eca592bfecff6e861 | |
parent | 283304ddd428e4de67f7981af9fd3b60914ca70e (diff) | |
download | perl-9c096387519b81520f9bffc8b3223dac918d739a.tar.gz |
Deparse.pm lives in lib/B now, not dist/B-Deparse
-rw-r--r-- | keywords.c | 2 | ||||
-rw-r--r-- | keywords.h | 2 | ||||
-rwxr-xr-x | regen/keywords.pl | 29 |
3 files changed, 14 insertions, 19 deletions
diff --git a/keywords.c b/keywords.c index 8c5e8bf4c3..74af832b6a 100644 --- a/keywords.c +++ b/keywords.c @@ -3437,5 +3437,5 @@ unknown: } /* Generated from: - * 963511f90d23994583c88b07c3cf2258473567702972e94b59a635727c4aa944 regen/keywords.pl + * 7e3d76a333c5f9b77d47dd7d423450356b63853a1c2313d3e805042caaa4bc2c regen/keywords.pl * ex: set ro: */ diff --git a/keywords.h b/keywords.h index faf1125ec6..eaa41209df 100644 --- a/keywords.h +++ b/keywords.h @@ -270,5 +270,5 @@ #define KEY_y 254 /* Generated from: - * 963511f90d23994583c88b07c3cf2258473567702972e94b59a635727c4aa944 regen/keywords.pl + * 7e3d76a333c5f9b77d47dd7d423450356b63853a1c2313d3e805042caaa4bc2c regen/keywords.pl * ex: set ro: */ diff --git a/regen/keywords.pl b/regen/keywords.pl index b77fd67558..eafe58c480 100755 --- a/regen/keywords.pl +++ b/regen/keywords.pl @@ -34,24 +34,19 @@ while (<DATA>) { } # If this hash changes, make sure the equivalent hash in -# dist/B-Deparse/Deparse.pm is also updated. +# lib/B/Deparse.pm (%feature_keywords) is also updated. my %feature_kw = ( - given => 'switch', - when => 'switch', - default => 'switch', - # continue is already a keyword - break => 'switch', - - say => 'say', - - state => 'state', - - evalbytes=>'evalbytes', - - __SUB__ => '__SUB__', - - fc => 'fc', - ); + state => 'state', + say => 'say', + given => 'switch', + when => 'switch', + default => 'switch', + # continue is already a keyword + break => 'switch', + evalbytes => 'evalbytes', + __SUB__ => '__SUB__', + fc => 'fc', +); my %pos = map { ($_ => 1) } @{$by_strength{'+'}}; |