[59654] trunk/base/src/registry1.0/portuninstall.tcl

jmr at macports.org jmr at macports.org
Sun Oct 18 16:42:13 PDT 2009


Revision: 59654
          http://trac.macports.org/changeset/59654
Author:   jmr at macports.org
Date:     2009-10-18 16:42:11 -0700 (Sun, 18 Oct 2009)
Log Message:
-----------
unbreak uninstall (oops)

Modified Paths:
--------------
    trunk/base/src/registry1.0/portuninstall.tcl

Modified: trunk/base/src/registry1.0/portuninstall.tcl
===================================================================
--- trunk/base/src/registry1.0/portuninstall.tcl	2009-10-18 21:49:42 UTC (rev 59653)
+++ trunk/base/src/registry1.0/portuninstall.tcl	2009-10-18 23:42:11 UTC (rev 59654)
@@ -189,10 +189,10 @@
 				}
 			}
 			
-			if { [file exists $f] || (![catch {file type $f}] && [file type $f] == "link") } {
+			set theFile [file normalize $fname]
+			if { [file exists $theFile] || (![catch {file type $theFile}] && [file type $theFile] == "link") } {
 			    # Normalize the file path to avoid removing the intermediate
 			    # symlinks (remove the empty directories instead)
-			    set theFile [file normalize [lindex $f 0]]
 			    lappend files $theFile
 
 			    # Split out the filename's subpaths and add them to the
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20091018/098b1181/attachment.html>


More information about the macports-changes mailing list