diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-11 11:37:02 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-11 11:37:02 (GMT) |
| commit | 810e5a0f6911de9bf6c77c9ec3b467225de93bbd (patch) | |
| tree | 329259423776323997d110c5780a81528e100a2b /library | |
| parent | a142b502a9982917e5aa68800d487102840ddc7e (diff) | |
| parent | e43d36be90ead0ee5e2ff6947acea3de0b8de935 (diff) | |
| download | tcl-810e5a0f6911de9bf6c77c9ec3b467225de93bbd.zip tcl-810e5a0f6911de9bf6c77c9ec3b467225de93bbd.tar.gz tcl-810e5a0f6911de9bf6c77c9ec3b467225de93bbd.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'library')
| -rw-r--r-- | library/tm.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/tm.tcl b/library/tm.tcl index 66c56a1..1802bb9 100644 --- a/library/tm.tcl +++ b/library/tm.tcl @@ -311,7 +311,7 @@ proc ::tcl::tm::UnknownHandler {original name args} { proc ::tcl::tm::Defaults {} { global env tcl_platform - lassign [split [info tclversion] .] major minor + regexp {^(\d+)\.(\d+)} [package provide Tcl] - major minor set exe [file normalize [info nameofexecutable]] # Note that we're using [::list], not [list] because [list] means @@ -354,7 +354,7 @@ proc ::tcl::tm::Defaults {} { # Calls 'path add' to paths to the list of module search paths. proc ::tcl::tm::roots {paths} { - regexp {^(\d+)\.(\d+)} [package present Tcl] - major minor + regexp {^(\d+)\.(\d+)} [package provide Tcl] - major minor foreach pa $paths { set p [file join $pa tcl$major] for {set n $minor} {$n >= 0} {incr n -1} { |