[119683] trunk/base/src/port1.0/portdistcheck.tcl
cal at macports.org
cal at macports.org
Sat May 3 14:59:55 PDT 2014
Revision: 119683
https://trac.macports.org/changeset/119683
Author: cal at 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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140503/ceedc6cc/attachment-0001.html>
More information about the macports-changes
mailing list