New try for ID 20010407.006: detach the semantics

"was the last match target UTF8" into its own variable.

p4raw-id: //depot/perl@11717

1 files changed, 2 insertions, 0 deletions

diff --git a/pp.c b/pp.c
index c0148b36a1..e470d1c411 100644
--- a/pp.c
+++ b/pp.c
@@ -4055,6 +4055,8 @@ PP(pp_split)
     TAINT_IF((pm->op_pmflags & PMf_LOCALE) &&
 	     (pm->op_pmflags & (PMf_WHITE | PMf_SKIPWHITE)));
 
+    PL_reg_sv_utf8 = do_utf8;
+
     if (pm->op_pmreplroot) {
 #ifdef USE_ITHREADS
 	ary = GvAVn((GV*)PL_curpad[(PADOFFSET)pm->op_pmreplroot]);