[73640] trunk/base/src/registry2.0/portuninstall.tcl

[jmr at macports.org]

Revision: 73640
          http://trac.macports.org/changeset/73640
Author:   jmr at macports.org
Date:     2010-11-20 02:27:50 -0800 (Sat, 20 Nov 2010)
Log Message:
-----------
fix uninstall --follow-dependencies with flat registry (#27382)

Modified Paths:
--------------
    trunk/base/src/registry2.0/portuninstall.tcl

Modified: trunk/base/src/registry2.0/portuninstall.tcl
===================================================================
--- trunk/base/src/registry2.0/portuninstall.tcl	2010-11-20 10:23:32 UTC (rev 73639)
+++ trunk/base/src/registry2.0/portuninstall.tcl	2010-11-20 10:27:50 UTC (rev 73640)
@@ -245,8 +245,11 @@
                 array set depportinfo [lindex $result 1]
                 set porturl $depportinfo(porturl)
                 set variations {}
-                set minusvariant [lrange [split [$port negated_variants] -] 1 end]
-                set plusvariant [lrange [split [$port variants] +] 1 end]
+                if {$use_reg2} {
+                    set ref $port
+                }
+                set minusvariant [lrange [split [registry::property_retrieve $ref negated_variants] -] 1 end]
+                set plusvariant [lrange [split $variants +] 1 end]
                 foreach v $plusvariant {
                     lappend variations $v "+"
                 }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20101120/7ddfad4e/attachment.html>