Ticket #1324: portuninstall.tcl.2.diff

File portuninstall.tcl.2.diff, 802 bytes (added by pguyot (Paul Guyot), 21 years ago)

Patch to actually do as with exists, i.e. to glob for the version (fixes the problem with hyphens in names)

  • portuninstall.tcl

    RCS file: /Volumes/src/cvs/od/proj/darwinports/base/src/port1.0/portuninstall.tcl,v
    retrieving revision 1.30
    diff -u -r1.30 portuninstall.tcl
     
    126126                }
    127127            }
    128128            if {!$uninst_err || [tbool uninstall.force]} {
    129                 if {[regexp .bz2$ $rfile]} {
    130                         regsub {.bz2$} $rfile {} r_file
    131                         set r_version [lindex [split $r_file -] 1]
    132                 } else {
    133                         set r_version [lindex [split $rfile -] 1]
    134                 }
    135                 registry_delete $portname $r_version
    136                 return 0
     129                        registry_delete $portname
     130                        return 0
    137131            }
    138132        } else {
    139133            return -code error [msgcat::mc "Uninstall failed: Port has no contents entry"]