summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2012-04-27 08:51:06 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2012-04-27 08:51:06 (GMT)
commitb1b14e036e39b348932a8c24e424b79a67af2e00 (patch)
tree5da5b0e06a272fd91ed038e34dc7f35965cc2160
parentdbae0710833f1ecef64a517c3f20bd1ce3b7ed86 (diff)
parentb412ad6981173a44ab0f31ad66b9c429b52ebe30 (diff)
downloadtcl-b1b14e036e39b348932a8c24e424b79a67af2e00.zip
tcl-b1b14e036e39b348932a8c24e424b79a67af2e00.tar.gz
tcl-b1b14e036e39b348932a8c24e424b79a67af2e00.tar.bz2
Make 'auto_execok START' do the Right Thing
-rw-r--r--ChangeLog5
-rw-r--r--library/init.tcl2
2 files changed, 6 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 28f37ba..4120c61 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-26 Jan Nijtmans <nijtmans@users.sf.net>
* generic/tclStubInit.c: get rid of _ANSI_ARGS_ and CONST
diff --git a/library/init.tcl b/library/init.tcl
index 685fc7b..d8de540 100644
--- a/library/init.tcl
+++ b/library/init.tcl
@@ -651,7 +651,7 @@ proc auto_execok name {
set execExtensions [list {} .com .exe .bat .cmd]
}
- if {$name in $shellBuiltins} {
+ if {[string tolower $name] in $shellBuiltins} {
# 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.