From 847e9c71ffb55fe1c06ec991a574987c45b33933 Mon Sep 17 00:00:00 2001 From: dkf Date: Fri, 27 Apr 2012 08:46:47 +0000 Subject: Make 'auto_execok START' do the Right Thing --- ChangeLog | 5 +++++ library/init.tcl | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 7484912..58750bd 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2012-04-27 Donal K. Fellows + + * library/init.tcl (auto_execok): Allow shell builtins to be detected + even if they are upper-cased. + 2012-04-24 Jan Nijtmans * 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. -- cgit v0.12