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

[ksammons at macports.org]

Revision: 124040
          https://trac.macports.org/changeset/124040
Author:   ksammons at macports.org
Date:     2014-08-17 10:35:52 -0700 (Sun, 17 Aug 2014)
Log Message:
-----------
Added error checking for home dist folder existing

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-08-17 17:28:22 UTC (rev 124039)
+++ branches/gsoc14-cleanup/src/macports1.0/reclaim.tcl	2014-08-17 17:35:52 UTC (rev 124040)
@@ -209,10 +209,13 @@
             ui_msg "No distfiles found in root directory."
         }
 
-        ui_debug "Calling walk_files on home directory."
+        if {[file exists $home_dist]} {
 
-        if {[walk_files $home_dist yes $dist_path] eq "no"} {
-            ui_msg "No distfiles found in home directory."
+            ui_debug "Calling walk_files on home directory."
+
+            if {[walk_files $home_dist yes $dist_path] eq "no"} {
+                ui_msg "No distfiles found in home directory."
+            }
         }
 
         return 0
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140817/df982c7c/attachment.html>