[78085] contrib/restore_ports/restore_ports.tcl

jmr at macports.org jmr at macports.org
Sat Apr 23 00:59:10 PDT 2011


Revision: 78085
          http://trac.macports.org/changeset/78085
Author:   jmr at macports.org
Date:     2011-04-23 00:59:09 -0700 (Sat, 23 Apr 2011)
Log Message:
-----------
restore_ports: maintain trunk compatibility

Modified Paths:
--------------
    contrib/restore_ports/restore_ports.tcl

Modified: contrib/restore_ports/restore_ports.tcl
===================================================================
--- contrib/restore_ports/restore_ports.tcl	2011-04-23 07:53:05 UTC (rev 78084)
+++ contrib/restore_ports/restore_ports.tcl	2011-04-23 07:59:09 UTC (rev 78085)
@@ -28,7 +28,7 @@
       return $dependencyList
    }
    array set portInfo [lindex $portSearchResult 1]
-   if {[catch {set mport [mportopen $portInfo(porturl) {} $variantInfo]} result]} {
+   if {[catch {set mport [mportopen $portInfo(porturl) [list subport $portInfo(name)] $variantInfo]} result]} {
       global errorInfo
       puts "$errorInfo"
       return -code error "Unable to open port '$portName': $result"
@@ -168,7 +168,7 @@
         
         # XXX should explicitly turn off default variants that don't appear in the list
         
-        if {[catch {set workername [mportopen $porturl {} $variations]} result]} {
+        if {[catch {set workername [mportopen $porturl [list subport $portinfo(name)] $variations]} result]} {
             global errorInfo
             puts "$errorInfo"
             return -code error "Unable to open port '$name': $result"
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20110423/29a8bf02/attachment.html>


More information about the macports-changes mailing list