[71395] contrib/mpab/chroot-scripts/genportlist.tcl

[jmr at macports.org]

Revision: 71395
          http://trac.macports.org/changeset/71395
Author:   jmr at macports.org
Date:     2010-09-11 17:49:29 -0700 (Sat, 11 Sep 2010)
Log Message:
-----------
mpab: genportlist.tcl updates:
 * load tcl package from prefix
 * use mportlistall

Modified Paths:
--------------
    contrib/mpab/chroot-scripts/genportlist.tcl

Modified: contrib/mpab/chroot-scripts/genportlist.tcl
===================================================================
--- contrib/mpab/chroot-scripts/genportlist.tcl	2010-09-11 23:47:13 UTC (rev 71394)
+++ contrib/mpab/chroot-scripts/genportlist.tcl	2010-09-12 00:49:29 UTC (rev 71395)
@@ -31,8 +31,10 @@
 # IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 #
 
+set prefix /opt/local
+
 catch {source \
-   [file join "/" Library Tcl macports1.0 macports_fastload.tcl]}
+   [file join ${prefix} share macports Tcl macports1.0 macports_fastload.tcl]}
 package require macports
 
 
@@ -67,7 +69,7 @@
    fatal "Failed to initialize ports sytem: $result"
 }
 
-if {[catch {set search_result [mportsearch ^.+$ no]} result]} {
+if {[catch {set search_result [mportlistall]} result]} {
    puts "$errorInfo"
    fatal "Failed to find any ports: $result"
 }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100911/415d30d3/attachment.html>