Change 14137 by jhi@alpha on 2002/01/08 16:29:48
Subject: [patch] save a test
From: Hugo van der Sanden <[EMAIL PROTECTED]>
Date: Tue, 08 Jan 2002 16:18:47 +0000
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/regcomp.c#276 edit
Differences ...
==== //depot/perl/regcomp.c#276 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c.~1~ Tue Jan 8 09:45:06 2002
+++ perl/regcomp.c Tue Jan 8 09:45:06 2002
@@ -3459,8 +3459,9 @@
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) != ']') {
End of Patch.
