diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-19 07:21:26 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-19 07:21:26 (GMT) |
commit | 8512e037c283c963896ccc29a5118e64a9b5e830 (patch) | |
tree | eca31af1ca2855c59909c98a79d35e666f37c76a | |
parent | f4d2128af7d54bbd23cc5fe49e7042d83a6cb12f (diff) | |
parent | e3afa124209feea2c83bdd8b506ddd3974647cb4 (diff) | |
download | tcl-8512e037c283c963896ccc29a5118e64a9b5e830.zip tcl-8512e037c283c963896ccc29a5118e64a9b5e830.tar.gz tcl-8512e037c283c963896ccc29a5118e64a9b5e830.tar.bz2 |
Merge 8.7
-rw-r--r-- | generic/regc_lex.c | 2 | ||||
-rw-r--r-- | tests/reg.test | 4 |
2 files changed, 5 insertions, 1 deletions
diff --git a/generic/regc_lex.c b/generic/regc_lex.c index c750a26..57ba8d5 100644 --- a/generic/regc_lex.c +++ b/generic/regc_lex.c @@ -427,7 +427,7 @@ next( if (INCON(L_BBND) && NEXT1('}')) { v->now++; INTOCON(L_BRE); - RET('}'); + RETV('}', 1); } else { FAILW(REG_BADBR); } diff --git a/tests/reg.test b/tests/reg.test index 3c9020d..5ebc2f9 100644 --- a/tests/reg.test +++ b/tests/reg.test @@ -1221,6 +1221,10 @@ test reg-33.29 {} { test reg-33.30 {Bug 1080042} { regexp {(\Y)+} foo } 1 +test reg-33.31 {Bug 7c64aa5e1a} { + regexp -inline {(?b).\{1,10\}} {abcdef} +} abcdef + # cleanup ::tcltest::cleanupTests |