Revision
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

Diff

Modified: trunk/base/src/port1.0/portdistcheck.tcl (119682 => 119683)


--- 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