summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog5
-rw-r--r--library/init.tcl2
2 files changed, 6 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 7484912..58750bd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2012-04-27 Donal K. Fellows <dkf@users.sf.net>
+
+ * library/init.tcl (auto_execok): Allow shell builtins to be detected
+ even if they are upper-cased.
+
2012-04-24 Jan Nijtmans <nijtmans@users.sf.net>
* generic/tclInt.decls: [Bug 3508771] load tclreg.dll in cygwin tclsh
diff --git a/library/init.tcl b/library/init.tcl
index 8a53c69..f2f85e1 100644
--- a/library/init.tcl
+++ b/library/init.tcl
@@ -580,7 +580,7 @@ proc auto_execok name {
set execExtensions [list {} .com .exe .bat]
}
- if {[lsearch -exact $shellBuiltins $name] != -1} {
+ if {[lsearch -exact $shellBuiltins [string tolower $name]] != -1} {
# When this is command.com for some reason on Win2K, Tcl won't
# exec it unless the case is right, which this corrects. COMSPEC
# may not point to a real file, so do the check.