2
Description: Patch fixes segfault for matching exact string with
3
non-ASCII characters in it.
4
Bug: https://sourceforge.net/tracker/?func=detail&aid=3095935&group_id=13179&atid=313179
6
--- expect-5.44.1.15.orig/expect.c
7
+++ expect-5.44.1.15/expect.c
9
expDiagLogU(expPrintify(Tcl_GetString(e->pat)));
12
+ /* Bug 3095935. Go from #bytes to #chars */
13
+ patLength = Tcl_NumUtfChars (pat, patLength);
15
e->simple_start = p - str;
17
o->matchlen = patLength;