diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-30 12:57:02 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-30 12:57:02 (GMT) |
| commit | 3449d223d1e1e4dbc1a1b60b9b070b24a2ec77da (patch) | |
| tree | b22a7346d6ee21a9768ed6e622a2adf6034421b1 /library/init.tcl | |
| parent | c6f5daec4032421a6e154599df64b8d6fb152b4c (diff) | |
| download | tcl-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.tcl | 12 |
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)" ";"] |