[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