[66722] users/jmr/restore_ports/restore_ports.tcl

[jmr at macports.org]

Revision: 66722
          http://trac.macports.org/changeset/66722
Author:   jmr at macports.org
Date:     2010-04-21 07:19:38 -0700 (Wed, 21 Apr 2010)
Log Message:
-----------
restore_ports: bring back implicit variant filtering when needed

Modified Paths:
--------------
    users/jmr/restore_ports/restore_ports.tcl

Modified: users/jmr/restore_ports/restore_ports.tcl
===================================================================
--- users/jmr/restore_ports/restore_ports.tcl	2010-04-21 14:10:40 UTC (rev 66721)
+++ users/jmr/restore_ports/restore_ports.tcl	2010-04-21 14:19:38 UTC (rev 66722)
@@ -151,8 +151,14 @@
         set porturl $portinfo(porturl)
         
         # XXX should explicitly turn off default variants that don't appear in the list
+        if {[llength [info commands mport_filtervariants]] > 0} {
+            set filtered_variations [mport_filtervariants $variations no]
+        } else {
+            # platform variants don't exist in trunk/1.9
+            set filtered_variations $variations
+        }
         
-        if {[catch {set workername [mportopen $porturl {} $variations]} result]} {
+        if {[catch {set workername [mportopen $porturl {} $filtered_variations]} result]} {
             global errorInfo
             ui_debug "$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/20100421/02dd1a6e/attachment.html>