This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[patch] save a test
authorHugo van der Sanden <hv@crypt.org>
Tue, 8 Jan 2002 16:18:47 +0000 (16:18 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 8 Jan 2002 16:29:48 +0000 (16:29 +0000)
Message-Id: <200201081618.g08GIlN02821@crypt.compulink.co.uk>

p4raw-id: //depot/perl@14137

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