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

[jmr at macports.org]

Revision: 68816
          http://trac.macports.org/changeset/68816
Author:   jmr at macports.org
Date:     2010-06-14 09:55:42 -0700 (Mon, 14 Jun 2010)
Log Message:
-----------
quote distfile path when passing to curl command (#25245)

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

Modified: trunk/base/src/port1.0/portfetch.tcl
===================================================================
--- trunk/base/src/port1.0/portfetch.tcl	2010-06-14 16:45:51 UTC (rev 68815)
+++ trunk/base/src/port1.0/portfetch.tcl	2010-06-14 16:55:42 UTC (rev 68816)
@@ -478,7 +478,7 @@
                 ui_msg "$UI_PREFIX [format [msgcat::mc "Attempting to fetch %s from %s"] $distfile $site]"
                 set file_url [portfetch::assemble_url $site $distfile]
                 set effectiveURL ""
-                if {![catch {eval curl fetch --effective-url effectiveURL $fetch_options {$file_url} ${distpath}/${distfile}.TMP} result] &&
+                if {![catch {eval curl fetch --effective-url effectiveURL $fetch_options {$file_url} {"${distpath}/${distfile}.TMP"}} result] &&
                     ![catch {file rename -force "${distpath}/${distfile}.TMP" "${distpath}/${distfile}"} result]} {
 
                     # Special hack to check for sourceforge mirrors, which don't return a proper error code on failure
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100614/e58cd070/attachment.html>