Changeset 80969

Timestamp:

07/22/11 13:29:22 (4 years ago)

Author:

jmr@…

Message:

fix port variants --index

File:

• trunk/base/src/port/port.tcl (modified) (2 diffs)

trunk/base/src/port/port.tcl

@@ -3301 +3301 @@
             foreach v [lsort $portinfo(variants)] {
                 unset -nocomplain vconflicts vdescription vrequires
+                set varmodifier "   "
                 # Retrieve variants' information from the new format.
                 if {[info exists vinfo]} {
@@ -3323 +3324 @@
                     } elseif {[info exists variant(is_default)]} {
                         set varmodifier "\[$variant(is_default)\]"
-                    } else {
-                        set varmodifier "   "
                     }
                     if {[info exists variant(requires)]} {