Integrate perlio:

[p5sagit/p5-mst-13.2.git] / pp_hot.c

diff --git a/pp_hot.c b/pp_hot.c
index 29ec96b..df52bb1 100644 (file)
--- 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;