[121230] branches/gsoc14-cleanup/src/macports1.0/reclaim.tcl

[ksammons at macports.org]

Revision: 121230
          https://trac.macports.org/changeset/121230
Author:   ksammons at macports.org
Date:     2014-06-20 16:14:15 -0700 (Fri, 20 Jun 2014)
Log Message:
-----------
Fixed a major bug that would completely destroy your root path.

Modified Paths:
--------------
    branches/gsoc14-cleanup/src/macports1.0/reclaim.tcl

Modified: branches/gsoc14-cleanup/src/macports1.0/reclaim.tcl
===================================================================
--- branches/gsoc14-cleanup/src/macports1.0/reclaim.tcl	2014-06-20 23:14:13 UTC (rev 121229)
+++ branches/gsoc14-cleanup/src/macports1.0/reclaim.tcl	2014-06-20 23:14:15 UTC (rev 121230)
@@ -61,7 +61,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 "distfiles" && [readdir $dir] eq ""} {
+        if { $dir ne "/opt/local/var/macports/distfiles" && [readdir $dir] eq ""} {
 
             # Get the directory above the current one
             set up_dir [file dirname $dir]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140620/c44eff78/attachment.html>