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

[jberry at macports.org]

Revision: 88776
          http://trac.macports.org/changeset/88776
Author:   jberry at macports.org
Date:     2012-01-11 08:12:32 -0800 (Wed, 11 Jan 2012)
Log Message:
-----------
Cut down on a bit of array round-tripping

Modified Paths:
--------------
    trunk/base/src/port/port.tcl

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2012-01-11 11:53:01 UTC (rev 88775)
+++ trunk/base/src/port/port.tcl	2012-01-11 16:12:32 UTC (rev 88776)
@@ -698,11 +698,15 @@
         array unset portinfo
         array set portinfo $info
         
+        set portentry [entry_for_portlist [list url $portinfo(porturl) name $name]]
+        
         array unset entry
-        array set entry [entry_for_portlist [list url $portinfo(porturl) name $name]]
+        array set entry portentry
+        
         if {[info exists unique($entry(fullname))]} continue
         set unique($entry(fullname)) 1
-        lappend result [array get entry]
+        
+        lappend result portentry
     }
     return $result
 }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20120111/8da1916d/attachment.html>