#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. */
-#define MAX_FEATURE_LEN (sizeof("unicode_strings")-1)
+#define MAX_FEATURE_LEN (sizeof("evalbytes")-1)
#define FEATURE_SAY_IS_ENABLED \
( \
? FEATURE_BUNDLE_510 :
FEATURE_BUNDLE_DEFAULT
) << HINT_FEATURE_SHIFT;
+ /* special case */
+ assert(PL_curcop == &PL_compiling);
+ if (FEATURE_UNICODE_IS_ENABLED) PL_hints |= HINT_UNI_8_BIT;
+ else PL_hints &= ~HINT_UNI_8_BIT;
}
#endif /* PERL_IN_OP_C */