19 lines
611 B
Text
19 lines
611 B
Text
Index: library/tm.tcl
|
|
--- library/tm.tcl.orig
|
|
+++ library/tm.tcl
|
|
@@ -321,10 +321,11 @@ proc ::tcl::tm::Defaults {} {
|
|
|
|
# Note that we're using [::list], not [list] because [list] means
|
|
# something other than [::list] in this namespace.
|
|
- roots [::list \
|
|
- [file dirname [info library]] \
|
|
- [file join [file dirname [file dirname $exe]] lib] \
|
|
- ]
|
|
+
|
|
+ # OpenBSD layout
|
|
+ add [file join [info library] modules] \
|
|
+ [file join [lindex $::tcl_pkgPath 0] modules 86] \
|
|
+ [file join [lindex $::tcl_pkgPath 0] modules 85]
|
|
|
|
if {$tcl_platform(platform) eq "windows"} {
|
|
set sep ";"
|