[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