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 | 0dc45b9fe32757b2732fb96074bc20110b636a0d (patch) | |
| tree | 04c4ce3e264a5ca59af3615181bf771b7707df3a | |
| parent | e65b0210505c7ec941c532e64f378b0c2bbc72ff (diff) | |
| download | tcl-0dc45b9fe32757b2732fb96074bc20110b636a0d.zip tcl-0dc45b9fe32757b2732fb96074bc20110b636a0d.tar.gz tcl-0dc45b9fe32757b2732fb96074bc20110b636a0d.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} { |