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.)

1 files changed, 7 insertions, 0 deletions

diff --git a/feature.h b/feature.h
index 31547fbcff..1cbd0478e5 100644
--- a/feature.h
+++ b/feature.h
@@ -19,6 +19,13 @@
     (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)
+
 #define FEATURE_SAY_IS_ENABLED \
     ( \
 	(CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_510 && \