Ticket #1068: uninst.patch

File uninst.patch, 622 bytes (added by jdputsch@…, 21 years ago)

Sample patch to Uninstall.app uninstall.tcl script

  • UnInstaller.app/Contents/Resources/uninstall.tcl

    old new  
    163163        ui_warn "Unable to delete $fullPath: $result"
    164164    }
    165165}
     166set postremove [file join $receiptDir Contents/Resources/postremove ]
     167if {[file exists $postremove]} {
     168    if {[catch {exec $postremove} result]} {
     169        ui_error "Error running post-remove script ($postremove): $result"
     170        exit 4
     171    }
     172}
    166173if {[catch {file delete -force -- $receiptDir} result]} {
    167174    ui_error "Unable to delete package receipt: $result"
    168175    exit 4