Revision: 119679 https://trac.macports.org/changeset/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: -------------- 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