diff options
author | aspect <aspect+tclcore@abstracted-spleen.org> | 2017-05-22 11:07:46 (GMT) |
---|---|---|
committer | aspect <aspect+tclcore@abstracted-spleen.org> | 2017-05-22 11:07:46 (GMT) |
commit | 2c354a86e775219285742b14b444444a5d78b38e (patch) | |
tree | 5e737832b2c59acaf71d2cd0d9ccbbe8b574efcc | |
parent | 8193fd22af12588b6d925662249568f9d4bc819c (diff) | |
download | tcl-aspect_string_match.zip tcl-aspect_string_match.tar.gz tcl-aspect_string_match.tar.bz2 |
fix advancement of snext: could not cook up a test for this, but the error is clearaspect_string_match
-rw-r--r-- | generic/tclUtil.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index 666757a..d4080ac 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -2128,7 +2128,7 @@ matchFail: * it first. */ pattern = pnext; - str = snext + TclUtfToUniChar(str, &sch); + str = snext + TclUtfToUniChar(snext, &sch); if (*str) goto matchLoop; } return 0; |