Subject: fix tm.tcl to include tcl8 locations, and fix corresponding test-cases

From: "jan.nijtmans" <[email-masked]>
Date: Sat, 29 Dec 2012 15:24:24 +0000

---
 library/tm.tcl | 1 -
 tests/tm.test  | 5 +++++
 2 files changed, 5 insertions(+), 1 deletion(-)

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} {
-- 
cgit v0.12