[68764] trunk/base/src/port1.0/portconfigure.tcl

[jmr at macports.org]

Revision: 68764
          http://trac.macports.org/changeset/68764
Author:   jmr at macports.org
Date:     2010-06-12 14:56:14 -0700 (Sat, 12 Jun 2010)
Log Message:
-----------
fix possibility of duplicates in configure.universal_archs

Modified Paths:
--------------
    trunk/base/src/port1.0/portconfigure.tcl

Modified: trunk/base/src/port1.0/portconfigure.tcl
===================================================================
--- trunk/base/src/port1.0/portconfigure.tcl	2010-06-12 21:34:35 UTC (rev 68763)
+++ trunk/base/src/port1.0/portconfigure.tcl	2010-06-12 21:56:14 UTC (rev 68764)
@@ -226,12 +226,17 @@
     set ret {}
     foreach arch $archs {
         if {[lsearch -exact $supported_archs $arch] != -1} {
-            lappend ret $arch
-        } elseif {$arch == "x86_64" && [lsearch -exact $supported_archs "i386"] != -1 && [lsearch -exact $ret "i386"] == -1} {
-            lappend ret "i386"
-        } elseif {$arch == "ppc64" && [lsearch -exact $supported_archs "ppc"] != -1 && [lsearch -exact $ret "ppc"] == -1} {
-            lappend ret "ppc"
+            set add_arch $arch
+        } elseif {$arch == "x86_64" && [lsearch -exact $supported_archs "i386"] != -1} {
+            set add_arch "i386"
+        } elseif {$arch == "ppc64" && [lsearch -exact $supported_archs "ppc"] != -1} {
+            set add_arch "ppc"
+        } else {
+            continue
         }
+        if {[lsearch -exact $ret $add_arch] == -1} {
+            lappend ret $add_arch
+        }
     }
     return $ret
 }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100612/b5fc116a/attachment.html>