diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-11 11:14:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-11 11:14:18 (GMT) |
| commit | b293fd6b50a40155a894a1ef1afc9e8375d2dcc8 (patch) | |
| tree | 7866d3dcdcff4ca4374b8502a00211398c9c3fc8 /library | |
| parent | 62fea308478c8fb3e38594793d72d6dbd9569d19 (diff) | |
| parent | 15b4eecc823345b12fb41a87076c06a93fffdebd (diff) | |
| download | tcl-b293fd6b50a40155a894a1ef1afc9e8375d2dcc8.zip tcl-b293fd6b50a40155a894a1ef1afc9e8375d2dcc8.tar.gz tcl-b293fd6b50a40155a894a1ef1afc9e8375d2dcc8.tar.bz2 | |
Merge 8.5
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} { |