1set __dir__ $dir 2foreach index [concat \ 3 [glob -nocomplain [file join $dir * pkgIndex.tcl]] \ 4 [glob -nocomplain [file join $dir * * pkgIndex.tcl]]] { 5 set dir [file dirname $index] 6 source $index 7} 8set dir $__dir__ 9unset __dir__ 10 11