Ticket #523: patch-portuninstall.tcl

File patch-portuninstall.tcl, 640 bytes (added by gwright@…, 22 years ago)

Patch to uninstall files with "MD5" in their name

Line 
1patch-portuninstall.tclѺØWòºØWòmBIN‚F--- portuninstall.tcl   Thu May  1 22:15:38 2003
2+++ portuninstall.tcl.sav       Thu May  1 19:35:41 2003
3@@ -87,7 +87,7 @@
4            set uninst_err 0
5            foreach f $contents {
6                set fname [lindex $f 0]
7-               set sumx [lindex $f [lsearch -regex $f MD5]]
8+               set sumx [lindex $f [lsearch -regex $f {MD5\ \(}]]
9                set sum1 [lindex $sumx [expr [llength $sumx] - 1]]
10                if {![string match $sum1 NONE] && ![tbool uninstall.nochecksum]} {
11                    if ![catch {set sum2 [md5 $fname]}] {
12