Special treatment for U+03B0 and U+0390 in //i,

this means that we can remove the minlen pessimisations
introduced by the #14096.

p4raw-id: //depot/perl@14219

1 files changed, 1 insertions, 3 deletions

diff --git a/regexec.c b/regexec.c
index 0ceff78a7f..78c4e24fc1 100644
--- a/regexec.c
+++ b/regexec.c
@@ -1554,9 +1554,7 @@ Perl_regexec_flags(pTHX_ register regexp *prog, char *stringarg, register char *
     }
 
     minlen = prog->minlen;
-    if (strend - startpos < minlen &&
-	!PL_reg_match_utf8 /* ANYOFs can balloon to EXACTFs */
-	) {
+    if (strend - startpos < minlen) {
         DEBUG_r(PerlIO_printf(Perl_debug_log,
 			      "String too short [regexec_flags]...\n"));
 	goto phooey;