PSYNC test reliability improvements (test only issue)
Former-commit-id: 50fd4fa7e62f3996f15f6a8c4dcd892022f111ec
This commit is contained in:
parent
4f7102f46c
commit
2b08505fed
@ -25,10 +25,12 @@ proc show_cluster_status {} {
|
|||||||
array set log {}
|
array set log {}
|
||||||
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)]
|
||||||
while {[gets $fd l] >= 0} {
|
set found 0
|
||||||
|
while {[gets $fd l] >= 0 || !$found} {
|
||||||
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
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
close $fd
|
close $fd
|
||||||
|
Loading…
x
Reference in New Issue
Block a user