| … | … | ||
|---|---|---|---|
| 624 | 624 | ||
| 625 | sub timeout { | 625 | sub timeout { |
| 626 | my ($self, $timeout) = @_; | 626 | my ($self, $timeout) = @_; |
| 627 | 627 | ||
| 628 | $self->{timeout} = $timeout; | 628 | $self->{timeout} = $timeout; |
| 629 | delete $self->{_tw}; | ||
| 629 | $self->_timeout; | 630 | $self->_timeout; |
| 630 | } | 631 | } |
| 631 | 632 | ||
| 632 | # reset the timeout watcher, as neccessary | 633 | # reset the timeout watcher, as neccessary |
| 633 | # also check for time-outs | 634 | # also check for time-outs |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |