[63206] users/jmr/restore_ports/restore_ports.tcl
jmr at macports.org
jmr at macports.org
Fri Jan 29 06:24:57 PST 2010
Revision: 63206
http://trac.macports.org/changeset/63206
Author: jmr at macports.org
Date: 2010-01-29 06:24:55 -0800 (Fri, 29 Jan 2010)
Log Message:
-----------
update
Modified Paths:
--------------
users/jmr/restore_ports/restore_ports.tcl
Property Changed:
----------------
users/jmr/restore_ports/restore_ports.tcl
Modified: users/jmr/restore_ports/restore_ports.tcl
===================================================================
--- users/jmr/restore_ports/restore_ports.tcl 2010-01-29 13:57:07 UTC (rev 63205)
+++ users/jmr/restore_ports/restore_ports.tcl 2010-01-29 14:24:55 UTC (rev 63206)
@@ -23,8 +23,9 @@
proc dependenciesForPort {portName variantInfo} {
set dependencyList [list]
set portSearchResult [mportlookup $portName]
- if {[llength $portSearchResult] < 1} {
- return -code error "port \"$portName\" not found"
+ if {[llength $portSearchResult] < 2} {
+ ui_warn "Skipping $portName (not in the ports tree)"
+ return $dependencyList
}
array set portInfo [lindex $portSearchResult 1]
set mport [mportopen $portInfo(porturl) {} $variantInfo]
@@ -81,7 +82,6 @@
}
lappend newList [list $active $name $variants]
}
- unset portList
set operationList [list]
while {[llength $newList] > 0} {
@@ -133,7 +133,7 @@
return -code error "lookup of portname $name failed: $result"
}
if {[llength $res] < 2} {
- ui_warn "Skipping $name (not in the ports tree)"
+ # not in the index, but we already warned about that earlier
continue
}
array unset portinfo
Property changes on: users/jmr/restore_ports/restore_ports.tcl
___________________________________________________________________
Added: svn:eol-style
+ native
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100129/1e36c447/attachment.html>
More information about the macports-changes
mailing list