| … | |
… | |
| 567 | $message ||= "$!"; |
567 | $message ||= "$!"; |
| 568 | |
568 | |
| 569 | if ($self->{on_error}) { |
569 | if ($self->{on_error}) { |
| 570 | $self->{on_error}($self, $fatal, $message); |
570 | $self->{on_error}($self, $fatal, $message); |
| 571 | $self->destroy if $fatal; |
571 | $self->destroy if $fatal; |
| 572 | } elsif ($self->{fh}) { |
572 | } elsif ($self->{fh} || $self->{connect}) { |
| 573 | $self->destroy; |
573 | $self->destroy; |
| 574 | Carp::croak "AnyEvent::Handle uncaught error: $message"; |
574 | Carp::croak "AnyEvent::Handle uncaught error: $message"; |
| 575 | } |
575 | } |
| 576 | } |
576 | } |
| 577 | |
577 | |
