From b9396412d1de53f593f45c1e8255723da954c9cd Mon Sep 17 00:00:00 2001 From: dgp Date: Wed, 25 Jul 2012 14:34:36 +0000 Subject: :q! --- library/init.tcl | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/library/init.tcl b/library/init.tcl index f2f85e1..02bce3b 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -618,11 +618,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]] -- cgit v0.12 From 3b6f6e4d4166d6ba00d2886efd6136f30e906f82 Mon Sep 17 00:00:00 2001 From: dgp Date: Wed, 25 Jul 2012 14:56:49 +0000 Subject: update changes --- changes | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/changes b/changes index e2d04d2..ba08980 100644 --- a/changes +++ b/changes @@ -7649,7 +7649,11 @@ and Tcl_FSMountsChanged(). (porter) 2012-07-05 (bug fix)[1189293] make "<<" redirect binary safe (porter) +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 16, 2011 --- See ChangeLog for details --- +--- Released 8.5.12, July 27, 2011 --- See ChangeLog for details --- -- cgit v0.12