Revision: 32336 http://trac.macosforge.org/projects/macports/changeset/32336 Author: jmpp@macports.org Date: 2007-12-25 14:11:50 -0800 (Tue, 25 Dec 2007) Log Message: ----------- Bail out with a suitable message if the requested port is not installed when polling its dependents. Modified Paths: -------------- trunk/base/src/port/port.tcl Modified: trunk/base/src/port/port.tcl =================================================================== --- trunk/base/src/port/port.tcl 2007-12-25 21:45:43 UTC (rev 32335) +++ trunk/base/src/port/port.tcl 2007-12-25 22:11:50 UTC (rev 32336) @@ -1400,13 +1400,21 @@ } - proc action_dependents { action portlist opts } { require_portlist portlist + set ilist {} + foreachport $portlist { registry::open_dep_map + + set composite_version [composite_version $portversion [array get variations]] + if { [catch {set ilist [concat $ilist [registry::installed $portname $composite_version]]} result] } { + global errorInfo + ui_debug "$errorInfo" + break_softcontinue "$result" 1 status + } + set deplist [registry::list_dependents $portname] - if { [llength $deplist] > 0 } { set dl [list] # Check the deps first