diff options
author | Steve Bennett <steveb@workware.net.au> | 2011-11-09 07:31:44 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2011-11-10 07:39:49 +1000 |
commit | c337e92c74561ffa788dcea71cc45dc85da17817 (patch) | |
tree | e54e2456db2b2e3279d857fc8be7dcff8270fcb3 | |
parent | cd2e4d7831ccc468a11247596c7891a1df81f505 (diff) | |
download | jimtcl-c337e92c74561ffa788dcea71cc45dc85da17817.zip jimtcl-c337e92c74561ffa788dcea71cc45dc85da17817.tar.gz jimtcl-c337e92c74561ffa788dcea71cc45dc85da17817.tar.bz2 |
regex: support - as the last element of a char set
e.g. {[a-z-]}
For Tcl ARE compatibility
Signed-off-by: Steve Bennett <steveb@workware.net.au>
-rw-r--r-- | jimregexp.c | 2 |
1 files changed, 1 insertions, 1 deletions
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); |