Revision: 119619 https://trac.macports.org/changeset/119619 Author: snc@macports.org Date: 2014-05-02 08:45:12 -0700 (Fri, 02 May 2014) Log Message: ----------- base: replace eval with expand Modified Paths: -------------- trunk/base/src/port/port.tcl Modified: trunk/base/src/port/port.tcl =================================================================== --- trunk/base/src/port/port.tcl 2014-05-02 15:13:06 UTC (rev 119618) +++ trunk/base/src/port/port.tcl 2014-05-02 15:45:12 UTC (rev 119619) @@ -3661,7 +3661,7 @@ # Map from friendly name set opt [map_friendly_field_names $opt] - if {[catch {eval set matches \[mportsearch \$searchstring $filter_case \$matchstyle $opt\]} result]} { + if {[catch {set matches [mportsearch $searchstring $filter_case $matchstyle $opt]} result]} { global errorInfo ui_debug "$errorInfo" break_softcontinue "search for name $portname failed: $result" 1 status @@ -4772,7 +4772,7 @@ # Calculate our prompt if { $noisy } { - set shortdir [eval file join [lrange [file split $current_portdir] end-1 end]] + set shortdir [file join {*}[lrange [file split $current_portdir] end-1 end]] set prompt "\[$shortdir\] > " } else { set prompt ""