Ticket #19224: patch-portutil.tcl.diff

portutil.tcl

@@ -1670 +1670 @@
         }
     }
 
+    # add required variants
+    foreach v [ditem_key $ditem requires] {
+        if {![variant_isset $v]} {
+            ui_debug "[option name]: Variant $name requires $v"
+            variant_set $v
+        }
+    }
+
     # execute proc with same name as variant.
     if {[catch "variant-${name}" result]} {
         global errorInfo