| … | … | ||
|---|---|---|---|
| 502 | $self->{connect}[0], | 502 | $self->{connect}[0], |
| 503 | $self->{connect}[1], | 503 | $self->{connect}[1], |
| 504 | sub { | 504 | sub { |
| 505 | my ($fh, $host, $port, $retry) = @_; | 505 | my ($fh, $host, $port, $retry) = @_; |
| 506 | 506 | ||
| 507 | delete $self->{_connect}; | 507 | delete $self->{_connect}; # no longer needed |
| 508 | 508 | ||
| 509 | if ($fh) { | 509 | if ($fh) { |
| 510 | $self->{fh} = $fh; | 510 | $self->{fh} = $fh; |
| 511 | 511 | ||
| 512 | delete $self->{_skip_drain_rbuf}; | 512 | delete $self->{_skip_drain_rbuf}; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |