Changeset 985


Ignore:
Timestamp:
Oct 7, 2002, 12:17:01 AM (18 years ago)
Author:
jkh
Message:

Loosen MD5 checksum matching to cope with filenames with spaces.

File:
1 edited

Legend:

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

    r918 r985  
    7474            foreach f $contents {
    7575                set fname [lindex $f 0]
    76                 set sum1 [lindex [lindex $f 5] 3]
     76                set sumx [lindex $f [lsearch -regex $f MD5]]
     77                set sum1 [lindex $sumx [expr [llength $sumx] - 1]]
    7778                if {![string match $sum1 NONE] && ![tbool uninstall.nochecksum]} {
    7879                    if ![catch {set sum2 [md5 $fname]}] {
     
    8788                if [file isdirectory $fname] {
    8889                    if [catch {exec rmdir $fname}] {
    89                         ui_msg "$UI_PREFIX  Uninstall unable to remove directory $fname (not empty?)"
     90                        ui_info "$UI_PREFIX  Uninstall unable to remove directory $fname (not empty?)"
    9091                        set uninst_err 1
    9192                    }
    9293                } else {
    9394                    if [catch {exec rm $fname}] {
    94                         ui_msg "$UI_PREFIX  Uninstall unable to remove file $fname"
     95                        ui_info "$UI_PREFIX  Uninstall unable to remove file $fname"
    9596                        set uninst_err 1
    9697                    }
Note: See TracChangeset for help on using the changeset viewer.