[66795] trunk/base/src/port1.0/fetch_common.tcl

[jmr at macports.org]

Revision: 66795
          http://trac.macports.org/changeset/66795
Author:   jmr at macports.org
Date:     2010-04-22 18:25:49 -0700 (Thu, 22 Apr 2010)
Log Message:
-----------
efficiency!

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

Modified: trunk/base/src/port1.0/fetch_common.tcl
===================================================================
--- trunk/base/src/port1.0/fetch_common.tcl	2010-04-23 01:20:48 UTC (rev 66794)
+++ trunk/base/src/port1.0/fetch_common.tcl	2010-04-23 01:25:49 UTC (rev 66795)
@@ -76,7 +76,7 @@
 # return it.
 proc portfetch::assemble_url {site distfile} {
     if {[string index $site end] != "/"} {
-        set site "${site}/"
+        append site /
     }
     return "${site}[percent_encode ${distfile}]"
 }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100422/5532ea40/attachment-0001.html>