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

[raimue at macports.org]

Revision: 37118
          http://trac.macosforge.org/projects/macports/changeset/37118
Author:   raimue at macports.org
Date:     2008-05-26 15:37:25 -0700 (Mon, 26 May 2008)

Log Message:
-----------
port/port.tcl:
In opUnion: add items only once to the result as it was meant to be.
Fixes #15433.

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

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2008-05-26 22:36:05 UTC (rev 37117)
+++ trunk/base/src/port/port.tcl	2008-05-26 22:37:25 UTC (rev 37118)
@@ -894,12 +894,14 @@
     foreach item $a {
         array set port $item
         if {[info exists onetime($port(fullname))]} continue
+        set onetime($port(fullname)) 1
         lappend result $item
     }
 
     foreach item $b {
         array set port $item
         if {[info exists onetime($port(fullname))]} continue
+        set onetime($port(fullname)) 1
         lappend result $item
     }
     

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080526/c9aebf2c/attachment.htm