diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2007-10-30 10:27:33 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2007-10-30 10:27:33 (GMT) |
commit | 762a8ef28132fae9d79de8c2e800c514f467cfec (patch) | |
tree | a39e92094fa8fa6c997baa1e9d37be96a31bd97d /generic/regc_lex.c | |
parent | 7fbc341785bb4ee6bde3d4cdd745a553fbeafd8d (diff) | |
download | tcl-762a8ef28132fae9d79de8c2e800c514f467cfec.zip tcl-762a8ef28132fae9d79de8c2e800c514f467cfec.tar.gz tcl-762a8ef28132fae9d79de8c2e800c514f467cfec.tar.bz2 |
Backport of fix for first part of [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 1acc3f4..588718d 100644 --- a/generic/regc_lex.c +++ b/generic/regc_lex.c @@ -783,7 +783,7 @@ struct vars *v; if (ISERR()) FAILW(REG_EESCAPE); /* 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); } |