Ignore:
Timestamp:
Jul 13, 2004, 1:13:44 AM (15 years ago)
Author:
wbb4
Message:

Bug:
Submitted by:
Reviewed by:
Approved by:
Obtained from:

Fixing for ports that don't have variants.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portutil.tcl

    r7714 r7717  
    837837    set chosen [choose_variants $dlist upvariations]
    838838        set portname $PortInfo(name)
    839        
    840         ui_debug "Provided variants: $PortInfo(variants)"
    841         ui_debug "Requested variants: [array get upvariations]"
    842         # Check to make sure the requested variations are available with this port,
    843         # if one is not, warn the user and remove the variant from the array.
     839
     840        # Check to make sure the requested variations are available with this
     841        # port, if one is not, warn the user and remove the variant from the
     842        # array.
    844843        foreach key [array names upvariations *] {
    845                 if {[lsearch $PortInfo(variants) $key] == -1} {
     844                if {![info exists PortInfo(variants)] ||
     845                        [lsearch $PortInfo(variants) $key] == -1} {
    846846                        ui_debug "Requested variant $key is not provided by port $portname."
    847847                        array unset upvariations $key
Note: See TracChangeset for help on using the changeset viewer.