summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2015-09-30 12:59:56 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2015-09-30 12:59:56 (GMT)
commitc7881ffe33c3bd7f1caa3700d5e554da62a5b2db (patch)
treee97d9086d82a094ad3d21322200b1dcb1c6da820
parent744b806d3d369ad409cd210021e51016abafabda (diff)
parent3964ec3d8cef652a7ff8f12578bf910bedd0f50b (diff)
downloadtcl-c7881ffe33c3bd7f1caa3700d5e554da62a5b2db.zip
tcl-c7881ffe33c3bd7f1caa3700d5e554da62a5b2db.tar.gz
tcl-c7881ffe33c3bd7f1caa3700d5e554da62a5b2db.tar.bz2
Fix [738bc50e93]: auto_execok doesn't recognise mklink on windows
-rw-r--r--library/init.tcl8
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)" ";"]