use VERSION needs to enable uni8bit hint

[perl5.git] / regen / feature.pl

diff --git a/regen/feature.pl b/regen/feature.pl
index d862b7c..cea90fb 100755 (executable)
--- a/regen/feature.pl
+++ b/regen/feature.pl
@@ -300,6 +300,10 @@ for (reverse @HintedBundles[1..$#HintedBundles]) { # skip default
 print $h <<EOJ;
                          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 */
 EOJ