recognize CYGWIN systems in proc execute_fileevent
This commit is contained in:
parent
13406893d1
commit
d3ec547394
|
|
@ -243,7 +243,7 @@ proc execute_fileevent {id} {
|
||||||
global execute OS has_x errorCode
|
global execute OS has_x errorCode
|
||||||
|
|
||||||
append execute(data,$id) [read $execute(pipe,$id) 1024]
|
append execute(data,$id) [read $execute(pipe,$id) 1024]
|
||||||
if { $OS != {Windows} } {
|
if { ![regexp -nocase {windows} $OS] && ![regexp -nocase {cygwin} $OS]} {
|
||||||
set eof [eof $execute(pipe,$id)]
|
set eof [eof $execute(pipe,$id)]
|
||||||
# handle processes that close stdout. Read pipe will go into eof condition
|
# handle processes that close stdout. Read pipe will go into eof condition
|
||||||
# but process is still running. Doing a close operation in blocking mode
|
# but process is still running. Doing a close operation in blocking mode
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue