Changeset 80971

Timestamp:

07/22/11 14:03:02 (4 years ago)

Author:

jmr@…

Message:

don't clobber other variant info when setting is_default

File:

• trunk/base/src/port1.0/portutil.tcl (modified) (1 diff)

trunk/base/src/port1.0/portutil.tcl

@@ -2021 +2021 @@
 
             foreach v $value {
-                if {[regexp {([-+])([-A-Za-z0-9_]+)} $v whole val variant]} {
+                if {[regexp {([-+])([-A-Za-z0-9_]+)} $v whole val variant] && ![info exists variations($variant)]} {
                     # Retrieve the information associated with this variant.
                     if {![info exists vinfo($variant)]} {
                         set vinfo($variant) {}
                     }
+                    array unset info
                     array set info $vinfo($variant)
-
-                    if {![info exists variations($variant)]} {
-                        # Set is_default and update vinfo.
-                        array set vinfo [list $variant [list is_default $val]]
-
-                        set variations($variant) $val
-                    }
+                    # Set is_default and update vinfo.
+                    set info(is_default) $val
+                    array set vinfo [list $variant [array get info]]
+
+                    set variations($variant) $val
                 }
             }