Ignore:
Timestamp:
Jan 13, 2003, 11:46:55 AM (16 years ago)
Author:
landonf
Message:

Fix "== 0" failure bug

File:
1 edited

Legend:

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

    r1638 r1643  
    471471            break
    472472        } else {
    473             set result [$obj run]
     473            catch {$obj run} result
    474474            # depspec->run returns an error code, so 0 == success.
    475475            # translate this to the statusdict notation where 1 == success.
     
    10771077proc portfile_run {this} {
    10781078    set portname [$this get name]
    1079         if {[portexec_int $portname install] == 0} {
    1080                 portexec_int $portname clean
    1081     }
     1079    if {![catch {portexec_int $portname install} result]} {
     1080                portexec_int $portname clean
     1081    }
     1082    return $result
    10821083}
    10831084
Note: See TracChangeset for help on using the changeset viewer.