Changeset 87281


Ignore:
Timestamp:
Nov 16, 2011, 7:44:36 AM (6 years ago)
Author:
jmr@…
Message:

set subport to the name as listed in the PortIndex when possible (#31743)

Location:
trunk/base/src
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/macports1.0/macports.tcl

    r86872 r87281  
    27252725                    set check_archs 0
    27262726                }
    2727                 lappend options subport $dep_portname
     2727                lappend options subport $dep_portinfo(name)
    27282728                # Figure out the depport. Check the open_mports list first, since
    27292729                # we potentially leak mport references if we mportopen each time,
     
    31663166    global macports::global_variations
    31673167    array set options $optionslist
    3168     set options(subport) $portname
    31693168
    31703169    if {![string match "" $depscachename]} {
     
    31943193    # set portname again since the one we were passed may not have had the correct case
    31953194    set portname $portinfo(name)
     3195    set options(subport) $portname
    31963196
    31973197    set ilist {}
  • trunk/base/src/port/port.tcl

    r83270 r87281  
    10521052
    10531053    # open portfile
    1054     if {[catch {set mport [mportopen $porturl [list subport $portname] [array get global_variations]]} result]} {
     1054    if {[catch {set mport [mportopen $porturl [list subport $portinfo(name)] [array get global_variations]]} result]} {
    10551055        ui_debug "$::errorInfo"
    10561056        return -code error "Unable to open port: $result"
     
    10981098               
    10991099                    # open its portfile
    1100                     if {[catch {set mport [mportopen $porturl [list subport $depname] [array get global_variations]]} result]} {
     1100                    if {[catch {set mport [mportopen $porturl [list subport $portinfo(name)] [array get global_variations]]} result]} {
    11011101                        ui_debug "$::errorInfo"
    11021102                        ui_error "Unable to open port: $result"
     
    18871887        }
    18881888        puts -nonewline $separator
     1889        array unset portinfo
    18891890        # If we have a url, use that, since it's most specific
    18901891        # otherwise try to map the portname to a url
     
    18981899                break_softcontinue "Port $portname not found" 1 status
    18991900            }
    1900             array unset portinfo
    19011901            array set portinfo [lindex $result 1]
    19021902            set porturl $portinfo(porturl)
     
    19151915            }
    19161916            if {![info exists options(subport)]} {
    1917                 set options(subport) $portname
     1917                if {[info exists portinfo(name)]} {
     1918                    set options(subport) $portinfo(name)
     1919                } else {
     1920                    set options(subport) $portname
     1921                }
    19181922            }
    19191923 
     
    22402244    set status 0
    22412245    foreachport $portlist {
     2246        array unset portinfo
    22422247        if {$porturl eq ""} {
    22432248            # Look up the port.
     
    22522257
    22532258            # Retrieve the port's URL.
    2254             array unset portinfo
    22552259            array set portinfo [lindex $result 1]
    22562260            set porturl $portinfo(porturl)
     
    22672271        }
    22682272        if {![info exists options(subport)]} {
    2269             set options(subport) $portname
     2273            if {[info exists portinfo(name)]} {
     2274                set options(subport) $portinfo(name)
     2275            } else {
     2276                set options(subport) $portname
     2277            }
    22702278        }
    22712279
     
    27172725            set deptypes {depends_fetch depends_extract depends_build depends_lib depends_run}
    27182726        }
    2719        
     2727
     2728        array unset portinfo
    27202729        # If we have a url, use that, since it's most specific
    27212730        # otherwise try to map the portname to a url
     
    27292738                break_softcontinue "Port $portname not found" 1 status
    27302739            }
    2731             array unset portinfo
    27322740            array set portinfo [lindex $result 1]
    27332741            set porturl $portinfo(porturl)
     
    27482756                break_softcontinue "Portdir $portdir not found" 1 status
    27492757            }
    2750             array unset portinfo
    27512758            array set portinfo [lindex $result 1]
    27522759        }
     
    27632770            }
    27642771            if {![info exists options(subport)]} {
    2765                 set options(subport) $portname
     2772                if {[info exists portinfo(name)]} {
     2773                    set options(subport) $portinfo(name)
     2774                } else {
     2775                    set options(subport) $portname
     2776                }
    27662777            }
    27672778            if {[catch {set mport [mportopen $porturl [array get options] [array get merged_variations]]} result]} {
     
    28432854                    array set portinfo [lindex $result 1]
    28442855                    set porturl $portinfo(porturl)
    2845                     set options(subport) $depname
     2856                    set options(subport) $portinfo(name)
    28462857                   
    28472858                    # open the portfile if requested
     
    32853296    }
    32863297    foreachport $portlist {
     3298        array unset portinfo
    32873299        if {$porturl eq ""} {
    32883300            # look up port
     
    32963308            }
    32973309
    3298             array unset portinfo
    32993310            array set portinfo [lindex $result 1]
    33003311
     
    33053316        if {!([info exists options(ports_variants_index)] && $options(ports_variants_index) eq "yes")} {
    33063317            if {![info exists options(subport)]} {
    3307                 set options(subport) $portname
     3318                if {[info exists portinfo(name)]} {
     3319                    set options(subport) $portinfo(name)
     3320                } else {
     3321                    set options(subport) $portname
     3322                }
    33083323            }
    33093324            if {[catch {set mport [mportopen $porturl [array get options] [array get variations]]} result]} {
     
    38003815    }
    38013816    foreachport $portlist {
     3817        array unset portinfo
    38023818        # If we have a url, use that, since it's most specific
    38033819        # otherwise try to map the portname to a url
     
    38183834                }
    38193835            }
    3820             array unset portinfo
    38213836            array set portinfo [lindex $res 1]
    38223837            set porturl $portinfo(porturl)
     
    38533868        }
    38543869        if {![info exists options(subport)]} {
    3855             set options(subport) $portname
     3870            if {[info exists portinfo(name)]} {
     3871                set options(subport) $portinfo(name)
     3872            } else {
     3873                set options(subport) $portname
     3874            }
    38563875        }
    38573876        if {[catch {set workername [mportopen $porturl [array get options] [array get requested_variations]]} result]} {
  • trunk/base/src/port1.0/portutil.tcl

    r84937 r87281  
    782782        lappend PortInfo(subports) $subname
    783783    }
    784     if {$subname == $subport} {
     784    if {[string equal -nocase $subname $subport]} {
    785785        set PortInfo(name) $subname
    786786        uplevel 1 $body
Note: See TracChangeset for help on using the changeset viewer.