From: Hugo van der Sanden <hv@crypt.org>
Date: Tue, 8 Jan 2002 16:18:47 +0000 (+0000)
Subject: [patch] save a test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f064b6ad543541f097880302365d24c06f8f0e8c;p=p5sagit%2Fp5-mst-13.2.git

[patch] save a test
Message-Id: <200201081618.g08GIlN02821@crypt.compulink.co.uk>

p4raw-id: //depot/perl@14137
---

diff --git a/regcomp.c b/regcomp.c
index d8ec0a9..8399899 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -3459,8 +3459,9 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state)
     if (!SIZE_ONLY && ckWARN(WARN_REGEXP) && POSIXCC(nextvalue))
 	checkposixcc(pRExC_state);
 
-    if (UCHARAT(RExC_parse) == ']' || UCHARAT(RExC_parse) == '-')
-	goto charclassloop;		/* allow 1st char to be ] or - */
+    /* allow 1st char to be ] (allowing it to be - is dealt with later) */
+    if (UCHARAT(RExC_parse) == ']')
+	goto charclassloop;
 
     while (RExC_parse < RExC_end && UCHARAT(RExC_parse) != ']') {