From c337e92c74561ffa788dcea71cc45dc85da17817 Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Wed, 9 Nov 2011 07:31:44 +1000 Subject: regex: support - as the last element of a char set e.g. {[a-z-]} For Tcl ARE compatibility Signed-off-by: Steve Bennett --- jimregexp.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'jimregexp.c') diff --git a/jimregexp.c b/jimregexp.c index 45f7c31..dbb49e9 100644 --- a/jimregexp.c +++ b/jimregexp.c @@ -711,7 +711,7 @@ static int regatom(regex_t *preg, int *flagp) return 0; } } - if (pattern[0] == '-' && pattern[1]) { + if (pattern[0] == '-' && pattern[1] && pattern[1] != ']') { /* skip '-' */ pattern += utf8_tounicode(pattern, &end); pattern += reg_utf8_tounicode_case(pattern, &end, nocase); -- cgit v1.1