| … | … | ||
|---|---|---|---|
| 764 | $_[0]{$on_timeout} = $_[1]; | 764 | $_[0]{$on_timeout} = $_[1]; |
| 765 | }; | 765 | }; |
| 766 | 766 | ||
| 767 | *$timeout = sub { | 767 | *$timeout = sub { |
| 768 | my ($self, $new_value) = @_; | 768 | my ($self, $new_value) = @_; |
| 769 | |||
| 770 | $new_value >= 0 | ||
| 771 | or Carp::croak "AnyEvent::Handle->$timeout called with negative timeout ($new_value), caught"; | ||
| 769 | 772 | ||
| 770 | $self->{$timeout} = $new_value; | 773 | $self->{$timeout} = $new_value; |
| 771 | delete $self->{$tw}; &$cb; | 774 | delete $self->{$tw}; &$cb; |
| 772 | }; | 775 | }; |
| 773 | 776 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |