Revision: 69318 http://trac.macports.org/changeset/69318 Author: jmr@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" }