summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--changes10
-rw-r--r--library/init.tcl13
2 files changed, 14 insertions, 9 deletions
diff --git a/changes b/changes
index 201ca16..6c4bb5a 100644
--- a/changes
+++ b/changes
@@ -7636,9 +7636,6 @@ problems where [file *able] would return false results on Win/Samba (porter)
2012-05-17 (bug fix)[3106532] proper [switch -indexvar] values (fellows)
*** POTENTIAL INCOMPATIBILITY ***
-2012-06-21 (bug fix)[3362446] [registry keys] failure (nijtmans)
-=> registry 1.2.2
-
2012-06-25 (bug fix)[3537605] [encoding dirs a b] error message (fellows)
2012-06-25 (bug fix)[3024359] crash when multi-thread concurrent [file system]
@@ -7650,10 +7647,15 @@ and Tcl_FSMountsChanged(). (porter)
2012-07-05 (bug fix)[1189293] make "<<" redirect binary safe (porter)
2012-07-11 (bug fix)[3362446] [registry keys] failure (nijtmans)
+=> registry 1.2.2
2012-07-16 (bug fix)[3544683] reentrant syscalls on BSD (cassoff,fellows)
+2012-07-24 (bug fix) stop mem corruption in stacked channel events (max,porter)
+
+2012-07-25 (bug fix)[3546275] [auto_execok] search match [exec] (danckaert)
+
Many revisions to better support a Cygwin environment (nijtmans)
---- Released 8.5.12, July 20, 2011 --- See ChangeLog for details ---
+--- Released 8.5.12, July 27, 2011 --- See ChangeLog for details ---
diff --git a/library/init.tcl b/library/init.tcl
index f6dfdba..16957b3 100644
--- a/library/init.tcl
+++ b/library/init.tcl
@@ -698,11 +698,14 @@ proc auto_execok name {
}
}
- foreach dir [split $path {;}] {
- # Skip already checked directories
- if {[info exists checked($dir)] || ($dir eq {})} { continue }
- set checked($dir) {}
- foreach ext $execExtensions {
+ foreach ext $execExtensions {
+ unset -nocomplain checked
+ foreach dir [split $path {;}] {
+ # Skip already checked directories
+ if {[info exists checked($dir)] || ($dir eq {})} {
+ continue
+ }
+ set checked($dir) {}
set file [file join $dir ${name}${ext}]
if {[file exists $file] && ![file isdirectory $file]} {
return [set auto_execs($name) [list $file]]