[83471] trunk/base/src/port1.0/portfetch.tcl

[jmr at macports.org]

Revision: 83471
          http://trac.macports.org/changeset/83471
Author:   jmr at macports.org
Date:     2011-09-02 03:39:34 -0700 (Fri, 02 Sep 2011)
Log Message:
-----------
clear distfiles when changing fetch.type rather than changing the behaviour of the suffix proc

Modified Paths:
--------------
    trunk/base/src/port1.0/portfetch.tcl

Modified: trunk/base/src/port1.0/portfetch.tcl
===================================================================
--- trunk/base/src/port1.0/portfetch.tcl	2011-09-02 09:13:58 UTC (rev 83470)
+++ trunk/base/src/port1.0/portfetch.tcl	2011-09-02 10:39:34 UTC (rev 83471)
@@ -165,6 +165,9 @@
 proc portfetch::set_fetch_type {option action args} {
     global os.platform os.major
     if {[string equal ${action} "set"]} {
+        if {$args != "standard"} {
+            distfiles
+        }
         switch $args {
             bzr {
                 depends_fetch-append bin:bzr:bzr
@@ -204,16 +207,8 @@
 
 # Given a distname, return the distname with extract.suffix appended
 proc portfetch::suffix {distname} {
-    global extract.suffix fetch.type
-    switch -- "${fetch.type}" {
-        bzr         -
-        cvs         -
-        svn         -
-        git         -
-        hg          { return "" }
-        standard    -
-        default     { return "${distname}${extract.suffix}" }
-    }
+    global extract.suffix
+    return "${distname}${extract.suffix}"
 }
 # XXX import suffix into the global namespace as it is currently used from
 # Portfiles, but should better go somewhere else
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20110902/07df0488/attachment.html>