[119679] trunk/base/src/port1.0/fetch_common.tcl

[cal at macports.org]

Revision: 119679
          https://trac.macports.org/changeset/119679
Author:   cal at macports.org
Date:     2014-05-03 14:52:56 -0700 (Sat, 03 May 2014)
Log Message:
-----------
base/port1.0/fetch_common.tcl: Avoid eval

Modified Paths:
--------------
    trunk/base/src/port1.0/fetch_common.tcl

Modified: trunk/base/src/port1.0/fetch_common.tcl
===================================================================
--- trunk/base/src/port1.0/fetch_common.tcl	2014-05-03 20:56:18 UTC (rev 119678)
+++ trunk/base/src/port1.0/fetch_common.tcl	2014-05-03 21:52:56 UTC (rev 119679)
@@ -135,13 +135,13 @@
             set thesubdir ""
         }
 
-        if {"$tag" != ""} {
-            eval append element "${thesubdir}:${tag}"
+        if {$tag ne ""} {
+            append element "${thesubdir}:${tag}"
         } else {
-            eval append element "${thesubdir}"
+            append element "${thesubdir}"
         }
 
-        eval lappend ret $element
+        lappend ret $element
     }
 
     return $ret
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140503/ca81776c/attachment.html>