Changeset 51138


Ignore:
Timestamp:
May 19, 2009, 6:01:34 AM (11 years ago)
Author:
jmr@…
Message:

don't report ports as installed when there is a receipt directory but no receipt

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/registry1.0/receipt_flat.tcl

    r51133 r51138  
    485485        set rlist [list]
    486486        foreach p $x {
     487                if {![file isfile [file join $p receipt.bz2]] && ![file isfile [file join $p receipt]]} {
     488                        continue
     489                }
    487490                set plist [list]
    488491                regexp {([-_a-zA-Z0-9\.]+)_([0-9]*)([+-_a-zA-Z0-9]*)$} [lindex [file split $p] end] match version revision variants
Note: See TracChangeset for help on using the changeset viewer.