diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-30 12:59:56 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-30 12:59:56 (GMT) |
| commit | c7881ffe33c3bd7f1caa3700d5e554da62a5b2db (patch) | |
| tree | e97d9086d82a094ad3d21322200b1dcb1c6da820 /library | |
| parent | 744b806d3d369ad409cd210021e51016abafabda (diff) | |
| parent | 3964ec3d8cef652a7ff8f12578bf910bedd0f50b (diff) | |
| download | tcl-c7881ffe33c3bd7f1caa3700d5e554da62a5b2db.zip tcl-c7881ffe33c3bd7f1caa3700d5e554da62a5b2db.tar.gz tcl-c7881ffe33c3bd7f1caa3700d5e554da62a5b2db.tar.bz2 | |
Fix [738bc50e93]: auto_execok doesn't recognise mklink on windows
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 9bb28e9..85900d2 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -636,12 +636,8 @@ proc auto_execok name { } set auto_execs($name) "" - set shellBuiltins [list cls copy date del erase dir echo mkdir \ - md rename ren rmdir rd time type ver vol] - if {$tcl_platform(os) eq "Windows NT"} { - # NT includes the 'start' built-in - lappend shellBuiltins "start" - } + set shellBuiltins [list cls copy date del dir echo erase md mkdir \ + mklink 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)" ";"] |