|
Lines 185-194
sub one_msg {
Link Here
|
| 185 |
|
185 |
|
| 186 |
# If reading or writing fails, then the server's dead, |
186 |
# If reading or writing fails, then the server's dead, |
| 187 |
# so there's no point in continuing. |
187 |
# so there's no point in continuing. |
| 188 |
if (!write_msg({seqno => $seqno}, $test->{msg}, $sock)) { |
188 |
if ( !write_msg( { seqno => $seqno }, $test->{msg}, $sock ) ) { |
| 189 |
BAIL_OUT("Write failure in $test->{id}"); |
189 |
BAIL_OUT("Write failure in $test->{id}"); |
| 190 |
} elsif (!($resp = <$sock>)) { |
190 |
} |
| 191 |
BAIL_OUT("Read failure in $test->{id}"); |
191 |
|
|
|
192 |
my $rv = sysread( $sock, $resp, 10000000 ); # 10000000 is a big number |
| 193 |
|
| 194 |
if ( !$rv ) { |
| 195 |
BAIL_OUT("Read failure in $test->{id}"); |
| 192 |
} |
196 |
} |
| 193 |
|
197 |
|
| 194 |
chomp($resp); |
198 |
chomp($resp); |
| 195 |
- |
|
|