[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