| … | … | ||
|---|---|---|---|
| 413 | 413 | ||
| 414 | $self->{hdl}->destroy | 414 | $self->{hdl}->destroy |
| 415 | if $self->{hdl}; | 415 | if $self->{hdl}; |
| 416 | 416 | ||
| 417 | $_->($self) for $self->{protocol} ? () : @HOOK_DESTROY; | 417 | $_->($self) for $self->{protocol} ? () : @HOOK_DESTROY; |
| 418 | |||
| 419 | $self->{protocol} = "destroyed"; # to keep hooks from invoked twice. | ||
| 418 | } | 420 | } |
| 419 | 421 | ||
| 420 | sub DESTROY { | 422 | sub DESTROY { |
| 421 | my ($self) = @_; | 423 | my ($self) = @_; |
| 422 | 424 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |