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

[jmr at macports.org]

Revision: 40729
          http://trac.macports.org/changeset/40729
Author:   jmr at macports.org
Date:     2008-10-12 16:37:22 -0700 (Sun, 12 Oct 2008)
Log Message:
-----------
Make 'port deps' show the correct dependencies when variants are given. (#11891)

Modified Paths:
--------------
    trunk/base/src/port/port.tcl

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2008-10-12 20:04:51 UTC (rev 40728)
+++ trunk/base/src/port/port.tcl	2008-10-12 23:37:22 UTC (rev 40729)
@@ -2001,6 +2001,13 @@
 
         array unset portinfo
         array set portinfo [lindex $result 1]
+        if {[catch {set mport [mportopen $portinfo(porturl) [array get options] [array get variations]]} result]} {
+           ui_debug "$::errorInfo"
+           break_softcontinue "Unable to open port: $result" 1 status
+        }
+        array unset portinfo
+        array set portinfo [mportinfo $mport]
+        mportclose $mport
         # set portname again since the one we were passed may not have had the correct case
         set portname $portinfo(name)
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20081012/7e9245a2/attachment.html