Ticket #14061: port.tcl.diff

File port.tcl.diff, 775 bytes (added by ryandesign (Ryan Carsten Schmidt), 17 years ago)
  • src/port/port.tcl

     
    16781678    set status 0
    16791679    require_portlist portlist
    16801680    foreachport $portlist {
     1681        # search for port
     1682        if {[catch {mportsearch $portname no exact} result]} {
     1683            global errorInfo
     1684            ui_debug "$errorInfo"
     1685            break_softcontinue "search for portname $portname failed: $result" 1 status
     1686        }
     1687        if {[llength $result] < 2} {
     1688            break_softcontinue "Port $portname not found" 1 status
     1689        }
     1690
    16811691        set files [registry::port_registered $portname]
    16821692        if { $files != 0 } {
    16831693            if { [llength $files] > 0 } {