Finish up (ha!) the Unicode case folding;

enhance regex dumping code.

p4raw-id: //depot/perl@14096

1 files changed, 4 insertions, 1 deletions

diff --git a/pp_hot.c b/pp_hot.c
index 29ec96beda..df52bb19f9 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1235,7 +1235,10 @@ PP(pp_match)
 	pm = PL_curpm;
 	rx = PM_GETRE(pm);
     }
-    if (rx->minlen > len) goto failure;
+    if (rx->minlen > len &&
+	!PL_reg_match_utf8 /* ANYOFs can balloon to EXACTFs */
+	)
+      goto failure;
 
     truebase = t = s;