Changeset 19992


Ignore:
Timestamp:
Oct 9, 2006, 12:46:15 AM (13 years ago)
Author:
jberry@…
Message:

Resolve #10843, and probably #8229.

portinfo was not being initialized each time through the foreachport loop, on a number of targets,
leading to improper output for port deps and port variants, among others.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port/port.tcl

    r19665 r19992  
    445445        set results {}
    446446        foreach {name info} $res {
     447                array unset portinfo
    447448                array set portinfo $info
    448449               
     
    585586                                continue
    586587                        }
     588                        array unset portinfo
    587589                        array set portinfo [lindex $res 1]
    588590                       
     
    11491151                                ui_warn "Found $found port $portname definitions, displaying first one."
    11501152                        }
     1153                        array unset portinfo
    11511154                        array set portinfo [lindex $result 1]
    11521155                       
     
    16031606                                continue
    16041607                        }
     1608                        array unset portinfo
    16051609                        array set portinfo [lindex $res 1]
    16061610                       
     
    16981702                }
    16991703
     1704                array unset portinfo
    17001705                array set portinfo [lindex $result 1]
    17011706
     
    17401745                }
    17411746       
     1747                array unset portinfo
    17421748                array set portinfo [lindex $result 1]
    17431749       
     
    17731779                }
    17741780                foreach {name array} $res {
     1781                        array unset portinfo
    17751782                        array set portinfo $array
    17761783
     
    17951802                        set portfound 1
    17961803                        puts $output
    1797                         unset portinfo
    17981804                }
    17991805                if { !$portfound } {
     
    18281834
    18291835                foreach {name array} $res {
     1836                        array unset portinfo
    18301837                        array set portinfo $array
    18311838                        set outdir ""
     
    19952002                                break_softcontinue "Port $portname not found" 1 status
    19962003                        }
     2004                        array unset portinfo
    19972005                        array set portinfo [lindex $res 1]
    19982006                        set porturl $portinfo(porturl)
Note: See TracChangeset for help on using the changeset viewer.