diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-11 11:35:59 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-11 11:35:59 (GMT) |
| commit | e43d36be90ead0ee5e2ff6947acea3de0b8de935 (patch) | |
| tree | 91bb8ad0a53d1243b1dfc1e9eebe1af7ff32a009 /library | |
| parent | 76801530639bfebb39fab98219ead45ee7957a75 (diff) | |
| parent | b293fd6b50a40155a894a1ef1afc9e8375d2dcc8 (diff) | |
| download | tcl-e43d36be90ead0ee5e2ff6947acea3de0b8de935.zip tcl-e43d36be90ead0ee5e2ff6947acea3de0b8de935.tar.gz tcl-e43d36be90ead0ee5e2ff6947acea3de0b8de935.tar.bz2 | |
Merge 8.6
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} { |