Package: release.debian.org Severity: normal Hi!
I'd like to upload an expect package with patch that fixes a segfault. The bug was reported to Ubuntu and to comp.lang.tcl Usenet group. See http://groups.google.com/group/comp.lang.tcl/browse_thread/thread/8ea4b666c2f31cac# and https://bugs.launchpad.net/ubuntu/+source/expect/+bug/608343 and https://sourceforge.net/tracker/index.php?func=detail&aid=3095935&group_id=13179&atid=313179 The patch is one-liner, debdiff with 5.44.1.15-3 is attached. -- System Information: Debian Release: 5.0.6 APT prefers stable APT policy: (990, 'stable'), (500, 'unstable') Architecture: i386 (x86_64) Kernel: Linux 2.6.32-3-amd64 (SMP w/8 CPU cores) Locale: LANG=ru_RU.CP1251, LC_CTYPE=ru_RU.CP1251 (charmap=CP1251) Shell: /bin/sh linked to /bin/bash
diff -u expect-5.44.1.15/debian/changelog expect-5.44.1.15/debian/changelog --- expect-5.44.1.15/debian/changelog +++ expect-5.44.1.15/debian/changelog @@ -1,3 +1,10 @@ +expect (5.44.1.15-4) unstable; urgency=low + + * Added patch by upstream which fixes crash during exact string matching + in expect command if the search pattern contains non-ASCII characters. + + -- Sergei Golovan <sgolo...@debian.org> Wed, 27 Oct 2010 10:29:04 +0400 + expect (5.44.1.15-3) unstable; urgency=low * Added patch by upstream (proposed by Per Cederqvist) which fixes diff -u expect-5.44.1.15/debian/patches/series expect-5.44.1.15/debian/patches/series --- expect-5.44.1.15/debian/patches/series +++ expect-5.44.1.15/debian/patches/series @@ -17,0 +18 @@ +21-match.patch only in patch2: unchanged: --- expect-5.44.1.15.orig/debian/patches/21-match.patch +++ expect-5.44.1.15/debian/patches/21-match.patch @@ -0,0 +1,17 @@ +Author: Upstream +Description: Patch fixes segfault for matching exact string with + non-ASCII characters in it. +Bug: https://sourceforge.net/tracker/?func=detail&aid=3095935&group_id=13179&atid=313179 + +--- expect-5.44.1.15.orig/expect.c ++++ expect-5.44.1.15/expect.c +@@ -946,6 +946,9 @@ + expDiagLogU(expPrintify(Tcl_GetString(e->pat))); + expDiagLog("\"? "); + if (p) { ++ /* Bug 3095935. Go from #bytes to #chars */ ++ patLength = Tcl_NumUtfChars (pat, patLength); ++ + e->simple_start = p - str; + o->e = e; + o->matchlen = patLength;
