One more UTF-8 fix from Inaba Hiroto.

p4raw-id: //depot/perl@8415

1 files changed, 2 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index 2d49cf15c6..784c7bf4b1 100644
--- a/pp.c
+++ b/pp.c
@@ -5873,7 +5873,8 @@ PP(pp_split)
 	    s = m;
 	}
     }
-    else if ((rx->reganch & RE_USE_INTUIT) && !rx->nparens
+    else if (do_utf8 == ((rx->reganch & ROPT_UTF8) != 0) &&
+	     (rx->reganch & RE_USE_INTUIT) && !rx->nparens
 	     && (rx->reganch & ROPT_CHECK_ALL)
 	     && !(rx->reganch & ROPT_ANCH)) {
 	int tail = (rx->reganch & RE_INTUIT_TAIL);