Changeset 1782 for trunk/base


Ignore:
Timestamp:
Jan 20, 2003, 8:38:24 AM (17 years ago)
Author:
landonf (Landon Fuller)
Message:

Remove the recursive deletion of directories as it is unneccesary and very dangerous

File:
1 edited

Legend:

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

    r1657 r1782  
    105105                ui_info "$UI_PREFIX [format [msgcat::mc "Uninstall is removing %s"] $fname]"
    106106                if [file isdirectory $fname] {
    107                     if [catch {exec rmdir $fname}] {
    108                         if ![tbool uninstall.force] {
     107                    if [catch {file delete -- $fname}] {
     108                        # A non-empty directory is not a fatal error
     109                        if {$result != "error deleting \"$fullPath\": directory not empty"} {
    109110                            ui_info "$UI_PREFIX  [format [msgcat::mc "Uninstall unable to remove directory %s (not empty?)"] $fname]"
    110                             set uninst_err 1
    111                         } else {
    112                             # No, I INSIST!
    113                             exec rm -rf $fname
    114111                        }
    115112                    }
Note: See TracChangeset for help on using the changeset viewer.