diff options
| author | hypnotoad <yoda@etoyoc.com> | 2017-12-29 15:13:23 (GMT) |
|---|---|---|
| committer | hypnotoad <yoda@etoyoc.com> | 2017-12-29 15:13:23 (GMT) |
| commit | 47c7771af1ba8080797098c3f3840e376c800f2d (patch) | |
| tree | f1cc7cb32bcde9b2bb04e5639f56f7c8e02b5c62 /library/init.tcl | |
| parent | 72af38dd32cbdeb61262ea5971f75e4463019e37 (diff) | |
| parent | 4a038240c4966cfaa72e90901a3a9951f6f3d020 (diff) | |
| download | tcl-47c7771af1ba8080797098c3f3840e376c800f2d.zip tcl-47c7771af1ba8080797098c3f3840e376c800f2d.tar.gz tcl-47c7771af1ba8080797098c3f3840e376c800f2d.tar.bz2 | |
Pulling changes from core-8-branch
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 3f99b95..d4a66e2 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} { |