diff options
| author | andreas_kupries <andreas_kupries@noemail.net> | 2008-03-18 18:02:50 (GMT) |
|---|---|---|
| committer | andreas_kupries <andreas_kupries@noemail.net> | 2008-03-18 18:02:50 (GMT) |
| commit | f3fda21842ffb15c3316d744fca375c5f88124db (patch) | |
| tree | 4e0252c4ed0dcdd5f3ad757aaefe82cf67d4209b /library | |
| parent | dab8c722a49b9d8e6271f9a83cf7e276a5552efa (diff) | |
| download | tcl-f3fda21842ffb15c3316d744fca375c5f88124db.zip tcl-f3fda21842ffb15c3316d744fca375c5f88124db.tar.gz tcl-f3fda21842ffb15c3316d744fca375c5f88124db.tar.bz2 | |
Fix oops. Use ::list, not list, prevent use of the namespace local command.
FossilOrigin-Name: bf1856b94a1d5db92a0976b0b3c3b3216ab7ae77
Diffstat (limited to 'library')
| -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 90692d2..baf3667 100644 --- a/library/tm.tcl +++ b/library/tm.tcl @@ -321,7 +321,7 @@ proc ::tcl::tm::Defaults {} { set sep ":" } for {set n $minor} {$n >= 0} {incr n -1} { - foreach ev [list \ + foreach ev [::list \ TCL${major}.${n}_TM_PATH \ TCL${major}_${n}_TM_PATH \ ] { |