diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-28 16:17:30 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-28 16:17:30 (GMT) |
| commit | 53aa26be9a07a24dfdcd8a9bfb73945774b4b606 (patch) | |
| tree | 245a519db98eef86b3f37934d0ee9ae19623fd57 /library | |
| parent | 800a6d497e5bafa649964373af2523d09526e914 (diff) | |
| parent | 2cb77a221b5b5d518e3c0dce95f36bc085866f73 (diff) | |
| download | tcl-53aa26be9a07a24dfdcd8a9bfb73945774b4b606.zip tcl-53aa26be9a07a24dfdcd8a9bfb73945774b4b606.tar.gz tcl-53aa26be9a07a24dfdcd8a9bfb73945774b4b606.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 3c0ec22..c1a8f8a 100644 --- a/library/tm.tcl +++ b/library/tm.tcl @@ -316,7 +316,7 @@ proc ::tcl::tm::UnknownHandler {original name args} { proc ::tcl::tm::Defaults {} { global env tcl_platform - regexp {^(\d+)\.(\d+)} [package provide Tcl] - 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 @@ -359,7 +359,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 provide 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} { |