Ticket #1324: darwinports.tcl.diff

File darwinports.tcl.diff, 1.2 KB (added by pguyot (Paul Guyot), 20 years ago)

Patch to darwinports.tcl to glob for receipts if no port version is provided in delete procedure

  • darwinports.tcl 

    RCS file: /Volumes/src/cvs/od/proj/darwinports/base/src/darwinports1.0/darwinports.tcl,v
retrieving revision 1.98
diff -u -r1.98 darwinports.tcl
     
    712712    }
    713713}
    714714
    715 proc dportregistry::delete {portname {portversion 1.0}} {
     715proc dportregistry::delete {portname {portversion 0}} {
    716716    global darwinports::registry.path
    717717
    718     # Try both versions, just to be sure.
    719     exec rm -f [file join ${darwinports::registry.path} ${portname}-${portversion}]
    720     exec rm -f [file join ${darwinports::registry.path} ${portname}-${portversion}].bz2
     718    # regex match case, as in exists
     719    if {$portversion == 0} {
     720                set x [glob -nocomplain [file join ${darwinports::registry.path} ${portname}-*]]
     721                if {[string length $x]} {
     722                    exec rm -f [lindex $x 0]
     723                }
     724        } else {
     725                # Try both versions, just to be sure.
     726                exec rm -f [file join ${darwinports::registry.path} ${portname}-${portversion}]
     727                exec rm -f [file join ${darwinports::registry.path} ${portname}-${portversion}].bz2
     728        }
    721729}
    722730
    723731proc dportregistry::fileinfo_for_file {fname} {