diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-12-22 20:37:59 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-24 09:25:17 -0800 |
| commit | 2846acbffa436a8a6bda1f5b38257b700500bbf0 (patch) | |
| tree | 387345b45ef14619880d4b8c9aa4c1a5f903c5bb /regen | |
| parent | e233f0c5ea875bcd70051a941babeb77361bdac1 (diff) | |
| download | perl-2846acbffa436a8a6bda1f5b38257b700500bbf0.tar.gz | |
Use new feature-testing macros
Instead of using FEATURE_IS_ENABLED("say"), etc., now use
FEATURE_SAY_IS_ENABLED instead. These new macros, in feature.h, also
check feature bundle hints in PL_hints, so we can start using those
hints. Two commits ago, feature.pm started setting them.
Diffstat (limited to 'regen')
| -rwxr-xr-x | regen/keywords.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/regen/keywords.pl b/regen/keywords.pl index 2cfc5d8641..3e0b0d36f0 100755 --- a/regen/keywords.pl +++ b/regen/keywords.pl @@ -68,6 +68,7 @@ print $c <<"END"; #define PERL_IN_KEYWORDS_C #include "perl.h" #include "keywords.h" +#include "feature.h" I32 Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords) @@ -95,7 +96,7 @@ END elsif (my $feature = $feature_kw{$k}) { $feature =~ s/([\\"])/\\$1/g; return <<END; -return (all_keywords || FEATURE_IS_ENABLED("$feature") ? ${sign}KEY_$k : 0); +return (all_keywords || FEATURE_\U$feature\E_IS_ENABLED ? ${sign}KEY_$k : 0); END } return <<END; |