Ticket #12081: portinfovariants.patch

src/port1.0/portutil.tcl

@@ -1373 +1373 @@
 }
 
 proc variant_run {ditem} {
+    global PortInfo
     set name [ditem_key $ditem name]
     ui_debug "Executing variant $name provides [ditem_key $ditem provides]"
     
@@ -1391 +1392 @@
         ui_error "Error executing $name: $result"
         return 1
     }
+    # Update the long description to show that the variant is active
+    if {[string first [option os.platform] $name] != 0
+           && $name != [option os.arch]
+           && [info exists PortInfo(long_description)]} {
+        set terminator "."
+        if {[info exists PortInfo(variant_desc)]} {
+            array set descs $PortInfo(variant_desc)
+            if {[info exists descs($name)]} {
+                set terminator ": $descs($name)\n"
+            }
+        }
+        set PortInfo(long_description) [concat $PortInfo(long_description) "\n(+$name active$terminator)\n"]
+    }
     return 0
 }