diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-12-19 12:23:19 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-12-19 12:23:19 (GMT) |
| commit | a430544f4a1f51fe9471263e696b7e50486aab10 (patch) | |
| tree | 6b24c47156a5389ebe6739d2a980d1183ede6bd6 /library/init.tcl | |
| parent | 0a2389d0abfd3d6bec00e54c0c9539e3e2d87259 (diff) | |
| parent | ee66488c3683d1e2b6ac36f523638c42c5649433 (diff) | |
| download | tcl-a430544f4a1f51fe9471263e696b7e50486aab10.zip tcl-a430544f4a1f51fe9471263e696b7e50486aab10.tar.gz tcl-a430544f4a1f51fe9471263e696b7e50486aab10.tar.bz2 | |
merge core-8-branch. Also change some internal refCount's from int to size_t.
Diffstat (limited to 'library/init.tcl')
| -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 c33a6cc..5450a5c 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -619,8 +619,7 @@ proc auto_execok name { set auto_execs($name) "" set shellBuiltins [list assoc cls copy date del dir echo erase ftype \ - md mkdir mklink move rd ren rename rmdir start \ - time type ver vol] + md mkdir mklink move rd ren rename rmdir start time type ver vol] if {[info exists env(PATHEXT)]} { # Add an initial ; to have the {} extension check first. set execExtensions [split ";$env(PATHEXT)" ";"] @@ -654,10 +653,7 @@ proc auto_execok name { set windir $env(WINDIR) } if {[info exists windir]} { - if {$tcl_platform(os) eq "Windows NT"} { - append path "$windir/system32;" - } - append path "$windir/system;$windir;" + append path "$windir/system32;$windir/system;$windir;" } foreach var {PATH Path path} { |