better syntax for timeout cancel in gaw_cmd
This commit is contained in:
parent
ec6ad39acc
commit
e6808f844a
|
|
@ -773,10 +773,10 @@ proc gaw_cmd {cmd} {
|
||||||
fileevent $gaw_fd readable gaw_echoline
|
fileevent $gaw_fd readable gaw_echoline
|
||||||
while { $n} {
|
while { $n} {
|
||||||
#timeout for abnormal deadlocks
|
#timeout for abnormal deadlocks
|
||||||
after 10000 set gaw_fd stalled
|
set wd [after 10000 set gaw_fd stalled]
|
||||||
vwait gaw_fd
|
vwait gaw_fd
|
||||||
if { $gaw_fd ne {stalled} } {
|
if { $gaw_fd ne {stalled} } {
|
||||||
after cancel set gaw_fd stalled
|
after cancel $wd
|
||||||
} else {
|
} else {
|
||||||
puts "timeout waiting for gaw response.."
|
puts "timeout waiting for gaw response.."
|
||||||
break
|
break
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue