diff options
| author | andreas_kupries <akupries@shaw.ca> | 2006-03-14 20:11:50 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2006-03-14 20:11:50 (GMT) |
| commit | fd31370c228b6dea905e445ccb9666c1894b4c52 (patch) | |
| tree | d0e78ea5c2f982aa9f68aab33b1954392e3ebbe4 /library/tm.tcl | |
| parent | 54b14791b5842fe7e3c0ad6a77e2e6bd10237627 (diff) | |
| download | tcl-fd31370c228b6dea905e445ccb9666c1894b4c52.zip tcl-fd31370c228b6dea905e445ccb9666c1894b4c52.tar.gz tcl-fd31370c228b6dea905e445ccb9666c1894b4c52.tar.bz2 | |
* library/tm.tcl (::tcl::tm::Defaults): Fixed handling of
environment variable TCLX.y_TM_PATH, bad variable reference. See
[SF Tcl Bug 1448251]. Thanks to Julian Noble.
Diffstat (limited to 'library/tm.tcl')
| -rw-r--r-- | library/tm.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/tm.tcl b/library/tm.tcl index 2830ea6..db1f361 100644 --- a/library/tm.tcl +++ b/library/tm.tcl @@ -323,7 +323,7 @@ proc ::tcl::tm::Defaults {} { set sep ":" } for {set n $minor} {$n >= 0} {incr n -1} { - set ev TCL${major}.{$n}_TM_PATH + set ev TCL${major}.${n}_TM_PATH if {[info exists env($ev)]} { foreach p [split $env($ev) $sep] { path add $p |