Ignore:
Timestamp:
Jan 19, 2003, 8:13:37 PM (16 years ago)
Author:
landonf
Message:

Print useful error messages when dportopen call fails

File:
1 edited

Legend:

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

    r1697 r1744  
    11361136    array set portinfo [lindex $res 1]
    11371137    set porturl $portinfo(porturl)
    1138     set worker [dportopen $porturl [array get options] $variations]
     1138    if {[catch {set worker [dportopen $porturl [array get options] $variations]} result] || $result != 0} {
     1139        ui_error "Execution $portname $target failed: $result"
     1140        return -1
     1141    }
    11391142    if {[catch {dportexec $worker $target} result] || $result != 0} {
    11401143        ui_error "Execution $portname $target failed: $result"
Note: See TracChangeset for help on using the changeset viewer.