diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-12-22 22:48:58 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-24 09:25:19 -0800 |
| commit | ef744b2941d9092cc1d28a001826c37cdc49b359 (patch) | |
| tree | c565ea0bc75e9b3f2ef4a1fa8b18126f84722612 /regen/feature.pl | |
| parent | 87f54e9c952c27bd11af754de11f1dea2af1a0d2 (diff) | |
| download | perl-ef744b2941d9092cc1d28a001826c37cdc49b359.tar.gz | |
feature.h: FEATURE_IS_ENABLED can use CURRENT_HINTS
Diffstat (limited to 'regen/feature.pl')
| -rwxr-xr-x | regen/feature.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/regen/feature.pl b/regen/feature.pl index 5875168e28..44861a2adf 100755 --- a/regen/feature.pl +++ b/regen/feature.pl @@ -216,7 +216,7 @@ print $h <<'EOH'; #define CURRENT_FEATURE_BUNDLE (CURRENT_HINTS >> HINT_FEATURE_SHIFT) #define FEATURE_IS_ENABLED(name) \ - (((PL_curcop == &PL_compiling ? PL_hints : PL_curcop->cop_hints) \ + ((CURRENT_HINTS \ & HINT_LOCALIZE_HH) \ && Perl_feature_is_enabled(aTHX_ STR_WITH_LEN(name))) /* The longest string we pass in. */ |