<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space; "><DIV>I was just poking around and in darwinports_fastload.tcl.in I discovered the following:</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV># I could iterate on the directory, but the only way I know in Tcl involves a</DIV><DIV># native function we provide in pextlib.</DIV><DIV>set dir [file join "@prefix_expanded@" share darwinports Tcl port1.0]</DIV><DIV>catch {source [file join $dir pkgIndex.tcl]}</DIV><DIV>set dir [file join "@prefix_expanded@" share darwinports Tcl package1.0]</DIV><DIV>catch {source [file join $dir pkgIndex.tcl]}</DIV><DIV>set dir [file join "@prefix_expanded@" share darwinports Tcl pextlib1.0]</DIV><DIV>catch {source [file join $dir pkgIndex.tcl]}</DIV><DIV>set dir [file join "@prefix_expanded@" share darwinports Tcl registry1.0]</DIV><DIV>catch {source [file join $dir pkgIndex.tcl]}</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>It's actually rather trivial to do this iteration - that block can be replaced with:</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>foreach dir [glob -directory "@prefix_expanded@" -join share darwinports Tcl *] {</DIV><DIV> catch {source [file join $dir pkgIndex.tcl]}</DIV><DIV>}</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Should I go ahead and commit this change?</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Incidentally, this will source darwintrace1.0/pkgIndex.tcl (which the manual sourcing doesn't), but I looked in that file and it's just comments, so it won't make a difference. I am curious as to what darwintrace1.0 is for, since it doesn't provide any packages in pkgIndex.tcl.</DIV><BR><DIV> <SPAN class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><DIV>-- </DIV><DIV>Kevin Ballard</DIV><DIV><A href="http://kevin.sb.org">http://kevin.sb.org</A></DIV><DIV><A href="mailto:eridius@macports.org">eridius@macports.org</A></DIV><DIV><A href="http://www.tildesoft.com">http://www.tildesoft.com</A></DIV><BR class="Apple-interchange-newline"></SPAN> </DIV><BR></BODY></HTML>