diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-29 15:24:24 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-29 15:24:24 (GMT) |
commit | 6fce81dac5a1631e6c8b8e03b5ae7c8493c9c935 (patch) | |
tree | 04c4ce3e264a5ca59af3615181bf771b7707df3a | |
parent | cdb98035ab3e41aa6ce5ae01e6c7a9ba0f26f4a7 (diff) | |
download | tcl-6fce81dac5a1631e6c8b8e03b5ae7c8493c9c935.zip tcl-6fce81dac5a1631e6c8b8e03b5ae7c8493c9c935.tar.gz tcl-6fce81dac5a1631e6c8b8e03b5ae7c8493c9c935.tar.bz2 |
fix tm.tcl to include tcl8 locations, and fix corresponding test-cases
-rw-r--r-- | library/tm.tcl | 1 | ||||
-rw-r--r-- | tests/tm.test | 5 |
2 files changed, 5 insertions, 1 deletions
diff --git a/library/tm.tcl b/library/tm.tcl index 4288658..2eff644 100644 --- a/library/tm.tcl +++ b/library/tm.tcl @@ -342,7 +342,6 @@ proc ::tcl::tm::Defaults {} { } } } - } return } diff --git a/tests/tm.test b/tests/tm.test index 73e8261..42352e9 100644 --- a/tests/tm.test +++ b/tests/tm.test @@ -202,6 +202,11 @@ proc genpaths {base} { set base [file normalize $base] foreach {major minor} [split [info tclversion] .] break set results {} + set base8 [file join $base tcl8] + lappend results [file join $base8 site-tcl] + for {set i 0} {$i <= 7} {incr i} { + lappend results [file join $base8 8.$i] + } set base [file join $base tcl$major] lappend results [file join $base site-tcl] for {set i 0} {$i <= $minor} {incr i} { |