b35f6050f8
WordNet stack and heap overflows. Thanks to Rob Holland of oCERT for contacting us with the advisory. - housekeeping: regenerate PLIST, move to Tcl/Tk 8.5, use SUBST_CMD macro rather than hand-rolled command.
22 lines
954 B
Plaintext
22 lines
954 B
Plaintext
$OpenBSD: patch-src_wnb,v 1.2 2008/09/01 20:02:53 sthen Exp $
|
|
--- src/wnb.orig Tue Sep 11 11:41:42 2007
|
|
+++ src/wnb Tue Sep 11 11:41:47 2007
|
|
@@ -103,7 +103,7 @@ set version "3.0"
|
|
|
|
if {$tcl_platform(platform) == "unix"} {
|
|
if {[lsearch -exact [array names env] WNHOME] == -1} {
|
|
- set resourcedir "/usr/local/WordNet-3.0/lib/wnres"
|
|
+ set resourcedir "${LOCALBASE}/share/wordnet/lib/wnres"
|
|
} else {
|
|
set resourcedir "$env(WNHOME)/lib/wnres"
|
|
}
|
|
@@ -357,7 +357,7 @@ proc searchanddisplay {searchword senses posnumber sea
|
|
if {$index != -1 && $schar != 0} {
|
|
set line [string range $i 0 [expr $index - 1]]
|
|
if {[regexp -indices -nocase -- \
|
|
- "(\[\.\})>,\] |^|, )($morphedword)\[0-9\]*(#\[0-9\]+)?( \[(\]|,|$\)" \
|
|
+ "(\[\.\})>,\] |^|, )($morphedword)\[0-9\]*(#\[0-9\]+)?( \[(\]|,|$)" \
|
|
$line dummy dummy indices]} {
|
|
.results.text tag add overviewhighlight \
|
|
"end - 2 lines linestart + [lindex $indices 0] chars" \
|