summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2006-03-14 20:11:50 (GMT)
committerandreas_kupries <akupries@shaw.ca>2006-03-14 20:11:50 (GMT)
commitfd31370c228b6dea905e445ccb9666c1894b4c52 (patch)
treed0e78ea5c2f982aa9f68aab33b1954392e3ebbe4 /library
parent54b14791b5842fe7e3c0ad6a77e2e6bd10237627 (diff)
downloadtcl-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')
-rw-r--r--library/tm.tcl2
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