Changeset 69318


Ignore:
Timestamp:
Jun 30, 2010, 7:48:21 AM (7 years ago)
Author:
jmr@…
Message:

fix uninstall --follow-dependencies when there's no portfile in the registry

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/registry2.0/portuninstall.tcl

    r68864 r69318  
    109109        if {$use_reg2} {
    110110            set port [lindex $ilist 0]
    111             if {$v == ""} {
    112                 set v "[$port version]_[$port revision][$port variants]"
    113             }
     111            set version [$port version]
     112            set revision [$port revision]
     113            set variants [$port variants]
    114114        } else {
    115115            set version [lindex [lindex $ilist 0] 1]
     
    117117            set variants [lindex [lindex $ilist 0] 3]
    118118            set active [lindex [lindex $ilist 0] 4]
    119             if {$v == ""} {
    120                 set v "${version}_${revision}${variants}"
    121             }
     119        }
     120        if {$v == ""} {
     121            set v "${version}_${revision}${variants}"
    122122        }
    123123    } else {
Note: See TracChangeset for help on using the changeset viewer.