[119619] trunk/base/src/port/port.tcl

[snc at macports.org]

Revision: 119619
          https://trac.macports.org/changeset/119619
Author:   snc at 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 ""
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140502/3c3fb7d5/attachment-0001.html>