clear portinfo before loading each new subport in portindex
--- trunk/base/src/port/portindex.tcl 2011-07-29 23:42:33 UTC (rev 81360)
+++ trunk/base/src/port/portindex.tcl 2011-07-29 23:44:27 UTC (rev 81361)
@@ -146,6 +146,7 @@
incr stats(failed)
} else {
set prefix $save_prefix
+ array unset portinfo
array set portinfo [mportinfo $interp]
mportclose $interp
set portinfo(portdir) $portdir