Changeset 88776


Ignore:
Timestamp:
Jan 11, 2012, 4:12:32 PM (6 years ago)
Author:
jberry@…
Message:

Cut down on a bit of array round-tripping

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port/port.tcl

    r88666 r88776  
    699699        array set portinfo $info
    700700       
     701        set portentry [entry_for_portlist [list url $portinfo(porturl) name $name]]
     702       
    701703        array unset entry
    702         array set entry [entry_for_portlist [list url $portinfo(porturl) name $name]]
     704        array set entry portentry
     705       
    703706        if {[info exists unique($entry(fullname))]} continue
    704707        set unique($entry(fullname)) 1
    705         lappend result [array get entry]
     708       
     709        lappend result portentry
    706710    }
    707711    return $result
Note: See TracChangeset for help on using the changeset viewer.