From 6389c77752f6ccdaf7373d97ae65079e9f58d270 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Fri, 23 Dec 2011 20:46:00 -0800
Subject: [PATCH] use VERSION needs to enable uni8bit hint

---
 feature.h              | 4 ++++
 regen/feature.pl       | 4 ++++
 t/lib/feature/implicit | 9 +++++++++
 3 files changed, 17 insertions(+)

diff --git a/feature.h b/feature.h
index b32ff93..2d06450 100644
--- a/feature.h
+++ b/feature.h
@@ -107,6 +107,10 @@ S_enable_feature_bundle(pTHX_ SV *ver)
 			? 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 */
 
diff --git a/regen/feature.pl b/regen/feature.pl
index d862b7c..cea90fb 100755
--- 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
diff --git a/t/lib/feature/implicit b/t/lib/feature/implicit
index 4dd7dcf..1efa62b 100644
--- a/t/lib/feature/implicit
+++ b/t/lib/feature/implicit
@@ -104,3 +104,12 @@ $[ = 1;
 print qw[a b c][2], "\n";
 EXPECT
 b
+########
+# Implicit unicode_string feature
+use v5.14;
+print 'ss' =~ /\xdf/i ? "ok\n" : "nok\n";
+use v5.8.8;
+print 'ss' =~ /\xdf/i ? "ok\n" : "nok\n";
+EXPECT
+ok
+nok
-- 
1.8.3.1