Ticket #523: patch-portuninstall.2.tcl

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

revised patch to fix MD5 uninstall problem

Line 
1patch-portuninstall.tcl<ºÝ>ªºÝ>ªmBIN‚€Ë--- portuninstall.tcl   Tue May  6 10:26:48 2003
2+++ portuninstall.tcl.sav       Mon May  5 22:35:38 2003
3@@ -87,7 +87,12 @@
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 md5index [lsearch -regex [lrange $f 1 end] MD5]
9+               if {$md5index != -1} {
10+                       set sumx [lindex $f [expr $md5index + 1]]
11+               } else {
12+                       set sumx {}
13+               }
14                set sum1 [lindex $sumx [expr [llength $sumx] - 1]]
15                if {![string match $sum1 NONE] && ![tbool uninstall.nochecksum]} {
16                    if ![catch {set sum2 [md5 $fname]}] {
17