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

[jmr at macports.org]

Revision: 69318
          http://trac.macports.org/changeset/69318
Author:   jmr at macports.org
Date:     2010-06-30 00:48:21 -0700 (Wed, 30 Jun 2010)
Log Message:
-----------
fix uninstall --follow-dependencies when there's no portfile in the registry

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-06-30 06:41:38 UTC (rev 69317)
+++ trunk/base/src/registry2.0/portuninstall.tcl	2010-06-30 07:48:21 UTC (rev 69318)
@@ -108,18 +108,18 @@
     } elseif { [llength $ilist] == 1 } {
         if {$use_reg2} {
             set port [lindex $ilist 0]
-            if {$v == ""} {
-                set v "[$port version]_[$port revision][$port variants]"
-            }
+            set version [$port version]
+            set revision [$port revision]
+            set variants [$port variants]
         } else {
             set version [lindex [lindex $ilist 0] 1]
             set revision [lindex [lindex $ilist 0] 2]
             set variants [lindex [lindex $ilist 0] 3]
             set active [lindex [lindex $ilist 0] 4]
-            if {$v == ""} {
-                set v "${version}_${revision}${variants}"
-            }
         }
+        if {$v == ""} {
+            set v "${version}_${revision}${variants}"
+        }
     } else {
         throw registry::invalid "Registry error: $portname not registered as installed"
     }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100630/51f33b0f/attachment.html>