diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2007-10-27 13:58:10 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2007-10-27 13:58:10 (GMT) |
| commit | 97bf16b277083d4f894ee3f6ab1f8a55c2895a17 (patch) | |
| tree | 5d9f0014379f16882f75aaefa34e2bbfef1de9c5 /generic/regc_lex.c | |
| parent | ee30df8e7dce83db9022d7742013afd0934ba22c (diff) | |
| download | tcl-97bf16b277083d4f894ee3f6ab1f8a55c2895a17.zip tcl-97bf16b277083d4f894ee3f6ab1f8a55c2895a17.tar.gz tcl-97bf16b277083d4f894ee3f6ab1f8a55c2895a17.tar.bz2 | |
Part of fix for [Bug 1810264]
Diffstat (limited to 'generic/regc_lex.c')
| -rw-r--r-- | generic/regc_lex.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/regc_lex.c b/generic/regc_lex.c index f57779d..bc61e14 100644 --- a/generic/regc_lex.c +++ b/generic/regc_lex.c @@ -875,7 +875,7 @@ lexescape( * Ugly heuristic (first test is "exactly 1 digit?") */ - if (v->now - save == 0 || (int)c <= v->nsubexp) { + if (v->now - save == 0 || ((int) c > 0 && (int)c <= v->nsubexp)) { NOTE(REG_UBACKREF); RETV(BACKREF, (chr)c); } |