[69443] branches/release_1_9/base/src/port1.0/portclean.tcl

[jmr at macports.org]

Revision: 69443
          http://trac.macports.org/changeset/69443
Author:   jmr at macports.org
Date:     2010-07-06 02:46:01 -0700 (Tue, 06 Jul 2010)
Log Message:
-----------
fix clean_dist when patchfiles is not set

Modified Paths:
--------------
    branches/release_1_9/base/src/port1.0/portclean.tcl

Modified: branches/release_1_9/base/src/port1.0/portclean.tcl
===================================================================
--- branches/release_1_9/base/src/port1.0/portclean.tcl	2010-07-06 09:37:41 UTC (rev 69442)
+++ branches/release_1_9/base/src/port1.0/portclean.tcl	2010-07-06 09:46:01 UTC (rev 69443)
@@ -92,7 +92,7 @@
 # This is crude, but works.
 #
 proc portclean::clean_dist {args} {
-    global ports_force name distpath dist_subdir distfiles usealtworkpath portdbpath altprefix
+    global ports_force name distpath dist_subdir distfiles patchfiles usealtworkpath portdbpath altprefix
 
     # remove known distfiles for sure (if they exist)
     set count 0
@@ -124,7 +124,10 @@
     }
 
     set count 0
-    foreach file [option patchfiles] {
+    if {![info exists patchfiles]} {
+        set patchfiles ""
+    }
+    foreach file $patchfiles {
         set patchfile [getdistname $file]
         ui_debug "Looking for $patchfile"
         set patchfile [file join $distpath $patchfile]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100706/106d7fc4/attachment.html>