Changeset 7143


Ignore:
Timestamp:
May 21, 2004, 4:05:43 AM (16 years ago)
Author:
kevin
Message:

Slightly enhanced error reporting.

File:
1 edited

Legend:

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

    r6915 r7143  
    116116    }
    117117
     118        set fd [open ${workpath}/.portsubmit.out r]
     119        gets $fd line
     120        if {![regexp -- {^OK:} $line]} {
     121                return -code error $line
     122        }
     123        close $fd
     124
    118125    return 0
    119126}
Note: See TracChangeset for help on using the changeset viewer.