[32336] trunk/base/src/port/port.tcl

[jmpp at macports.org]

Revision: 32336
          http://trac.macosforge.org/projects/macports/changeset/32336
Author:   jmpp at 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

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20071225/07451ad2/attachment-0001.html