From 9cff27d0a5391741086a7fd042c9196b3ca5b28e Mon Sep 17 00:00:00 2001
From: dgp <dgp@noemail.net>
Date: Wed, 25 Jul 2012 14:34:36 +0000
Subject: :q!

FossilOrigin-Name: 0e346c8fb9e83e95a441b2de43472c77e9b76240
---
 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