diff options
| author | andreas_kupries <andreas_kupries@noemail.net> | 2008-03-18 17:41:58 (GMT) |
|---|---|---|
| committer | andreas_kupries <andreas_kupries@noemail.net> | 2008-03-18 17:41:58 (GMT) |
| commit | c82d5891acd69cb4f5f32703b0c22f95bb7eccb3 (patch) | |
| tree | 2250e7f11bc819a3e31e7c9fee66a5898fee1380 /library | |
| parent | 0c11509e2e24bf1aeda8fdd64d156a44b32e5725 (diff) | |
| download | tcl-c82d5891acd69cb4f5f32703b0c22f95bb7eccb3.zip tcl-c82d5891acd69cb4f5f32703b0c22f95bb7eccb3.tar.gz tcl-c82d5891acd69cb4f5f32703b0c22f95bb7eccb3.tar.bz2 | |
* library/tm.tcl (::tcl::tm::Defaults): Modified handling of
environment variables. See [Bug 1914604]. Solution slightly
different than proposed in the report. Using the underscored
form TCLX_y_TM_PATH even if TCLX.y_TM_PATH exists. Also using a
loop to cut prevent code replication.
FossilOrigin-Name: 87f6d0ef1f94a1570be7144a20fee76c9f4460ee
Diffstat (limited to 'library')
| -rw-r--r-- | library/tm.tcl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/library/tm.tcl b/library/tm.tcl index 8fac14a..90692d2 100644 --- a/library/tm.tcl +++ b/library/tm.tcl @@ -321,8 +321,11 @@ proc ::tcl::tm::Defaults {} { set sep ":" } for {set n $minor} {$n >= 0} {incr n -1} { - set ev TCL${major}.${n}_TM_PATH - if {[info exists env($ev)]} { + foreach ev [list \ + TCL${major}.${n}_TM_PATH \ + TCL${major}_${n}_TM_PATH \ + ] { + if {![info exists env($ev)]} continue foreach p [split $env($ev) $sep] { path add $p } |