[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 (file)
--- 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) != ']') {