Ticket #299: portuninstall.tcl.diff

File portuninstall.tcl.diff, 690 bytes (added by jpm@…, 22 years ago)

adds contents list ordering at uninstall

  • base/src/port1.0/portuninstall.tcl

    RCS file: /Volumes/src/cvs/od/proj/darwinports/base/src/port1.0/portuninstall.tcl,v
    retrieving revision 1.21
    diff -u -d -b -w -r1.21 portuninstall.tcl
     
    8383        # Now look for a contents list
    8484        set ix [lsearch $entry contents]
    8585        if {$ix >= 0} {
    86             set contents [lindex $entry [incr ix]]
     86            set contents [lsort -decreasing [lindex $entry [incr ix]]]
    8787            set uninst_err 0
    8888            foreach f $contents {
    8989                set fname [lindex $f 0]