Efficiency patchlet for pp_aassign()

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

diff --git a/regcomp.c b/regcomp.c
index 2f3fb40..de6104a 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -764,10 +764,15 @@ tryagain:
        croak("internal urp in regexp at /%s/", regparse);
                                /* Supposed to be caught earlier. */
        break;
+    case '{':
+       if (!regcurly(regparse)) {
+           regparse++;
+           goto defchar;
+       }
+       /* FALL THROUGH */
     case '?':
     case '+':
     case '*':
-    case '{':
        FAIL("?+*{} follows nothing in regexp");
        break;
     case '\\':