From: Father Chrysostomos <sprout@cpan.org>
Date: Fri, 23 Dec 2011 06:48:58 +0000 (-0800)
Subject: feature.h: FEATURE_IS_ENABLED can use CURRENT_HINTS
X-Git-Tag: accepted/trunk/20130322.191538~1553^2~10
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=ef744b2941d9092cc1d28a001826c37cdc49b359;p=platform%2Fupstream%2Fperl.git

feature.h: FEATURE_IS_ENABLED can use CURRENT_HINTS
---

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.  */