Attachment "1189657.patch" to
ticket [1189657fff]
added by
dgp
2005-04-26 00:29:54.
Index: library/tm.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/tm.tcl,v
retrieving revision 1.6
diff -u -r1.6 tm.tcl
--- library/tm.tcl 15 Apr 2005 15:50:36 -0000 1.6
+++ library/tm.tcl 25 Apr 2005 17:28:25 -0000
@@ -353,7 +353,7 @@
for {set n $minor} {$n >= 0} {incr n -1} {
path add [file normalize [file join $p ${major}.${n}]]
}
- path add [file normalize [file join $pa site-tcl]]
+ path add [file normalize [file join $p site-tcl]]
}
return
}
Index: tests/tm.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/tm.test,v
retrieving revision 1.5
diff -u -r1.5 tm.test
--- tests/tm.test 5 Nov 2004 09:21:46 -0000 1.5
+++ tests/tm.test 25 Apr 2005 17:28:26 -0000
@@ -204,8 +204,8 @@
set base [file normalize $base]
foreach {major minor} [split [info tclversion] .] break
set results {}
- lappend results [file join $base site-tcl]
set base [file join $base tcl$major]
+ lappend results [file join $base site-tcl]
for {set i 0} {$i <= $minor} {incr i} {
lappend results [file join $base ${major}.$i]
}