PSYNC test shouldn't wait forever
Former-commit-id: 130613e16636923296a8d5b2c4bc623e62fef2f5
This commit is contained in:
parent
92de178bfe
commit
4820142896
@ -26,12 +26,14 @@ proc show_cluster_status {} {
|
|||||||
for {set j 0} {$j < 5} {incr j} {
|
for {set j 0} {$j < 5} {incr j} {
|
||||||
set fd [open $R_log($j)]
|
set fd [open $R_log($j)]
|
||||||
set found 0
|
set found 0
|
||||||
while {[gets $fd l] >= 0 || !$found} {
|
set tries 0
|
||||||
|
while {([gets $fd l] >= 0 || !$found) && $tries < 1000} {
|
||||||
if {[regexp $log_regexp $l] &&
|
if {[regexp $log_regexp $l] &&
|
||||||
[regexp -nocase $repl_regexp $l]} {
|
[regexp -nocase $repl_regexp $l]} {
|
||||||
lappend log($j) $l
|
lappend log($j) $l
|
||||||
set found 1
|
set found 1
|
||||||
}
|
}
|
||||||
|
incr $tries
|
||||||
}
|
}
|
||||||
close $fd
|
close $fd
|
||||||
}
|
}
|
||||||
|
Loading…
x
Reference in New Issue
Block a user