16 lines
549 B
Plaintext
16 lines
549 B
Plaintext
$OpenBSD: patch-lib_textsearch_examples_demo_tcl,v 1.1.1.1 2012/08/09 04:53:10 stu Exp $
|
|
--- lib/textsearch/examples/demo.tcl.orig Sat Sep 22 13:59:17 2007
|
|
+++ lib/textsearch/examples/demo.tcl Sun Nov 27 22:22:04 2011
|
|
@@ -47,10 +47,7 @@ menu .m.f
|
|
menu .m.s
|
|
textSearch::searchMenu .m.s
|
|
|
|
-foreach dir {. tcl ../tcl} {
|
|
- if {![catch {set ch [open [file join $dir textsearch.tcl] r]}]} {
|
|
+ if {![catch {set ch [open ${PREFIX}/share/doc/textsearch/readme.txt r]}]} {
|
|
$w insert end [read $ch]
|
|
close $ch
|
|
- break
|
|
}
|
|
-}
|