From ef744b2941d9092cc1d28a001826c37cdc49b359 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Thu, 22 Dec 2011 22:48:58 -0800 Subject: [PATCH] feature.h: FEATURE_IS_ENABLED can use CURRENT_HINTS --- feature.h | 2 +- regen/feature.pl | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/feature.h b/feature.h index ce8d81b..e34c3d3 100644 --- a/feature.h +++ b/feature.h @@ -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 5875168..44861a2 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. */ -- 2.7.4