32 lines
752 B
Text
32 lines
752 B
Text
Adjust for OpenBSD-specific Tcl package path layout.
|
|
|
|
Index: tcl/init.tcl
|
|
--- tcl/init.tcl.orig
|
|
+++ tcl/init.tcl
|
|
@@ -30,10 +30,24 @@
|
|
#
|
|
|
|
# Make packages in that directory available
|
|
-eval lappend auto_path $eltcl_pkgPath
|
|
+set na {}
|
|
+foreach p $auto_path {
|
|
+ lappend na [file normalize $p]
|
|
+}
|
|
+foreach p $eltcl_pkgPath {
|
|
+ if {[set np [file normalize $p]] ni $na} {
|
|
+ lappend auto_path $p
|
|
+ lappend na $np
|
|
+ }
|
|
+}
|
|
if { [info exists env(ELTCLLIBPATH)] } {
|
|
- eval lappend auto_path $env(ELTCLLIBPATH)
|
|
+ foreach p $env(ELTCLLIBPATH) {
|
|
+ if {[file normalize $p] ni $na} {
|
|
+ lappend auto_path $p
|
|
+ }
|
|
+ }
|
|
}
|
|
+unset na p np
|
|
|
|
# Install default signal handlers (if the signal command exists)
|
|
if { [info command signal] != "" } { namespace eval el {
|