diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-18 15:52:13 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-18 15:52:13 (GMT) |
commit | ae78b892336fb5325a124506f2de9e283760857c (patch) | |
tree | 04dd21e507e2eece455ffffefbeef87056e04c42 /generic/tclTest.c | |
parent | b563c159d7f63f0a4ca1e9190ec4111d5d4908d9 (diff) | |
parent | f97560a94963b378ccc5b75e5dbc2949eca30b9f (diff) | |
download | tcl-ae78b892336fb5325a124506f2de9e283760857c.zip tcl-ae78b892336fb5325a124506f2de9e283760857c.tar.gz tcl-ae78b892336fb5325a124506f2de9e283760857c.tar.bz2 |
Merge 8.6
Diffstat (limited to 'generic/tclTest.c')
-rw-r--r-- | generic/tclTest.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 06a0834..7ec3c41 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -3966,7 +3966,7 @@ TestregexpObjCmd( if (ii == -1) { TclRegExpRangeUniChar(regExpr, ii, &start, &end); newPtr = Tcl_GetRange(objPtr, start, end); - } else if (ii > info.nsubs) { + } else if (ii > info.nsubs || info.matches[ii].end <= 0) { newPtr = Tcl_NewObj(); } else { newPtr = Tcl_GetRange(objPtr, info.matches[ii].start, |