Revision: 119683 https://trac.macports.org/changeset/119683 Author: cal@macports.org Date: 2014-05-03 14:59:55 -0700 (Sat, 03 May 2014) Log Message: ----------- base: port1.0/portdistcheck.tcl: Replace eval with argument expansion Modified Paths: -------------- trunk/base/src/port1.0/portdistcheck.tcl Modified: trunk/base/src/port1.0/portdistcheck.tcl =================================================================== --- trunk/base/src/port1.0/portdistcheck.tcl 2014-05-03 21:59:10 UTC (rev 119682) +++ trunk/base/src/port1.0/portdistcheck.tcl 2014-05-03 21:59:55 UTC (rev 119683) @@ -85,7 +85,7 @@ foreach site $urlmap($url_var) { ui_debug [format [msgcat::mc "Checking %s from %s"] $distfile $site] set file_url [portfetch::assemble_url $site $distfile] - if {[catch {set urlnewer [eval curl isnewer $curl_options {$file_url} $port_moddate]} error]} { + if {[catch {set urlnewer [curl isnewer {*}$curl_options $file_url $port_moddate]} error]} { ui_warn "couldn't fetch $file_url for $subport ($error)" } else { if {$urlnewer} { @@ -102,7 +102,7 @@ foreach site $urlmap($url_var) { ui_debug [format [msgcat::mc "Checking %s from %s"] $distfile $site] set file_url [portfetch::assemble_url $site $distfile] - if {[catch {set urlsize [eval curl getsize $curl_options {$file_url}]} error]} { + if {[catch {set urlsize [curl getsize {*}$curl_options $file_url]} error]} { ui_warn "couldn't fetch $file_url for $subport ($error)" } else { incr count