summaryrefslogtreecommitdiffstats
path: root/library/init.tcl
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2015-09-30 12:57:02 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2015-09-30 12:57:02 (GMT)
commit3449d223d1e1e4dbc1a1b60b9b070b24a2ec77da (patch)
treeb22a7346d6ee21a9768ed6e622a2adf6034421b1 /library/init.tcl
parentc6f5daec4032421a6e154599df64b8d6fb152b4c (diff)
downloadtcl-3449d223d1e1e4dbc1a1b60b9b070b24a2ec77da.zip
tcl-3449d223d1e1e4dbc1a1b60b9b070b24a2ec77da.tar.gz
tcl-3449d223d1e1e4dbc1a1b60b9b070b24a2ec77da.tar.bz2
Fix [738bc50e93]: auto_execok doesn't recognise mklink on windows. Remove some unnecessary end-of-line spacing.
Diffstat (limited to 'library/init.tcl')
-rw-r--r--library/init.tcl12
1 files changed, 4 insertions, 8 deletions
diff --git a/library/init.tcl b/library/init.tcl
index 4981cd6..62729e6 100644
--- a/library/init.tcl
+++ b/library/init.tcl
@@ -12,7 +12,7 @@
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# This test intentionally written in pre-7.5 Tcl
+# 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]"
}
@@ -346,7 +346,7 @@ proc unknown args {
}
}
- if {([info level] == 1) && ([info script] eq "")
+ if {([info level] == 1) && ([info script] eq "")
&& [info exists tcl_interactive] && $tcl_interactive} {
if {![info exists auto_noexec]} {
set new [auto_execok $name]
@@ -649,12 +649,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)" ";"]