[124054] trunk/base/src/macports1.0/reclaim.tcl

[ksammons at macports.org]

Revision: 124054
          https://trac.macports.org/changeset/124054
Author:   ksammons at macports.org
Date:     2014-08-17 12:55:50 -0700 (Sun, 17 Aug 2014)
Log Message:
-----------
Added a block to stop it from deleting your home directory

Modified Paths:
--------------
    trunk/base/src/macports1.0/reclaim.tcl

Modified: trunk/base/src/macports1.0/reclaim.tcl
===================================================================
--- trunk/base/src/macports1.0/reclaim.tcl	2014-08-17 19:52:23 UTC (rev 124053)
+++ trunk/base/src/macports1.0/reclaim.tcl	2014-08-17 19:55:50 UTC (rev 124054)
@@ -96,7 +96,7 @@
         set found_distfile no 
 
         # If the directory is empty, and this isn't the root folder, delete it and recursively go up directories until a non-empty one is found.
-        if { $dir ne "/opt/local/var/macports/distfiles" && [readdir $dir] eq ""} {
+        if { $dir ne "/opt/local/var/macports/distfiles" && $dir ne  ${macports::user_home}/.macports$root_dist && [readdir $dir] eq ""} {
 
             set up_dir [file dirname $dir]
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140817/bb9aecd1/attachment.html>