SecBSD's official ports repository

lang/eltclsh/patches/patch-tcl_init_tcl

@@ -0,0 +1,32 @@
+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 {