Ignore:
Timestamp:
Nov 11, 2002, 9:11:24 AM (18 years ago)
Author:
kevin
Message:

Deprecate dportmatch in favor of dportsearch.

File:
1 edited

Legend:

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

    r1066 r1226  
    153153        set target $action
    154154        if {[info exists portname]} {
    155             if {[catch {array set portinfo [dportmatch ^$portname\$]} result]} {
     155            if {[catch {set res [dportsearch ^$portname\$]} result]} {
    156156                puts $result
    157157                exit 1
    158158            }
    159             if {[array size portinfo] == 0} {
     159            if {[llength $res] < 2} {
    160160                puts "Port $portname not found"
    161161                exit 1
    162162            }
     163            array set portinfo [lindex $res 1]
    163164            set porturl $portinfo(porturl)
    164165        }
Note: See TracChangeset for help on using the changeset viewer.