HINT_UTF8 is not propagated to the op tree anymore; add a

perlunicode.pod that reflects changes to unicode support so far

p4raw-id: //depot/perl@4941

1 files changed, 1 insertions, 2 deletions

diff --git a/regcomp.c b/regcomp.c
index 5972724410..bf08761d43 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -1339,9 +1339,8 @@ Perl_pregcomp(pTHX_ char *exp, char *xend, PMOP *pm)
     if (exp == NULL)
 	FAIL("NULL regexp argument");
 
-    if (PL_curcop == &PL_compiling ? (PL_hints & HINT_UTF8) : IN_UTF8) {
+    if (pm->op_pmdynflags & PMdf_UTF8) {
 	PL_reg_flags |= RF_utf8;
-	pm->op_pmdynflags |= PMdf_UTF8;
     }
     else
 	PL_reg_flags = 0;