From: Chip Salzenberg <chip@atlantic.net>
Date: Wed, 15 Jan 1997 21:35:34 +0000 (+1200)
Subject: Fix overly picky carping about leading '{' in regex
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=85afd4ae870f9ff4e42276c9fef1ecf04ae2c95a;p=p5sagit%2Fp5-mst-13.2.git

Fix overly picky carping about leading '{' in regex
---

diff --git a/regcomp.c b/regcomp.c
index 2f3fb40..de6104a 100644
--- 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 '\\':