… | |
… | |
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 | |