Revision
119679
Author
cal@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

Diff

Modified: trunk/base/src/port1.0/fetch_common.tcl (119678 => 119679)


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