Revision
119682
Author
cal@macports.org
Date
2014-05-03 14:59:10 -0700 (Sat, 03 May 2014)

Log Message

base/port1.0/portfetch.tcl: Replace eval with argument expansion

Modified Paths

Diff

Modified: trunk/base/src/port1.0/portfetch.tcl (119681 => 119682)


--- trunk/base/src/port1.0/portfetch.tcl	2014-05-03 21:56:51 UTC (rev 119681)
+++ trunk/base/src/port1.0/portfetch.tcl	2014-05-03 21:59:10 UTC (rev 119682)
@@ -538,7 +538,7 @@
                 ui_notice "$UI_PREFIX [format [msgcat::mc "Attempting to fetch %s from %s"] $distfile $site]"
                 set file_url [portfetch::assemble_url $site $distfile]
                 try {
-                    eval curl fetch $fetch_options {$file_url} {"${distpath}/${distfile}.TMP"}
+                    curl fetch {*}$fetch_options $file_url "${distpath}/${distfile}.TMP"
                     file rename -force "${distpath}/${distfile}.TMP" "${distpath}/${distfile}"
                     set fetched 1
                     break