diff options
-rw-r--r-- | feature.h | 2 | ||||
-rwxr-xr-x | regen/feature.pl | 2 |
2 files changed, 2 insertions, 2 deletions
@@ -20,7 +20,7 @@ #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. */ 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. */ |