diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-12-22 21:42:54 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-24 09:25:18 -0800 |
commit | 7d058bc9453370017e3a3e70a0897188891b03cb (patch) | |
tree | f782272281505c1da89ed22e8971321c5d3f2837 /regen/feature.pl | |
parent | dd0ac2b9f1fe5cbdd4fd355527bd5e60b37a4d14 (diff) | |
download | perl-7d058bc9453370017e3a3e70a0897188891b03cb.tar.gz |
Move FEATURE_IS_ENABLED to feature.h
It makes little sense to have it in perl.h any more. (Until
recently, feature.h didn’t exist.)
Diffstat (limited to 'regen/feature.pl')
-rwxr-xr-x | regen/feature.pl | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/regen/feature.pl b/regen/feature.pl index ab60389edd..32d7123187 100755 --- a/regen/feature.pl +++ b/regen/feature.pl @@ -209,13 +209,20 @@ for (@HintedBundles) { print $h "#define FEATURE_BUNDLE_$key ", $count++, "\n"; } -print $h <<EOH; +print $h <<'EOH'; #define FEATURE_BUNDLE_CUSTOM (HINT_FEATURE_MASK >> HINT_FEATURE_SHIFT) -#define CURRENT_HINTS \\ +#define CURRENT_HINTS \ (PL_curcop == &PL_compiling ? PL_hints : PL_curcop->cop_hints) #define CURRENT_FEATURE_BUNDLE (CURRENT_HINTS >> HINT_FEATURE_SHIFT) +#define FEATURE_IS_ENABLED(name) \ + (((PL_curcop == &PL_compiling ? PL_hints : PL_curcop->cop_hints) \ + & HINT_LOCALIZE_HH) \ + && Perl_feature_is_enabled(aTHX_ STR_WITH_LEN(name))) +/* The longest string we pass in. */ +#define MAX_FEATURE_LEN (sizeof("unicode_strings")-1) + EOH for ( |