diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-04 13:37:36 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-04 13:37:36 (GMT) |
| commit | 8499ebcb189502c4c4813dab6e03dc2d12ff7ec8 (patch) | |
| tree | e12805b9e148f3e17c4c4940048826066f139bbd /library | |
| parent | 87149792693d751f920b6c9b0511e6d39084ad64 (diff) | |
| parent | f7829afaab261c9156598b36a008a4cac1eb3b86 (diff) | |
| download | tcl-8499ebcb189502c4c4813dab6e03dc2d12ff7ec8.zip tcl-8499ebcb189502c4c4813dab6e03dc2d12ff7ec8.tar.gz tcl-8499ebcb189502c4c4813dab6e03dc2d12ff7ec8.tar.bz2 | |
Merge 9.0
Diffstat (limited to 'library')
| -rw-r--r-- | library/init.tcl | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/library/init.tcl b/library/init.tcl index 4f2b73e..7dd3ca3 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -15,10 +15,6 @@ # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# This test intentionally written in pre-7.5 Tcl -if {[info commands package] == ""} { - error "version mismatch: library\nscripts expect Tcl version 7.5b1 or later but the loaded version is\nonly [info patchlevel]" -} package require -exact tcl 9.0b1 # Compute the auto path to use in this interpreter. @@ -385,7 +381,7 @@ proc auto_load {cmd {namespace {}}} { # try to load (and create sub-cmd handler "_sub_load_cmd" for further usage): foreach name $nameList [set _sub_load_cmd { - # via auto_index: + # via auto_index: if {[info exists auto_index($name)]} { namespace inscope :: $auto_index($name) # There's a couple of ways to look for a command of a given @@ -653,7 +649,7 @@ proc auto_execok name { return "" } - set path "[file dirname [info nameof]];.;" + set path "[file dirname [info nameofexecutable]];.;" if {[info exists env(SystemRoot)]} { set windir $env(SystemRoot) } elseif {[info exists env(WINDIR)]} { |