}
sub DESTROY {
- my ($self) = @_;
-
# None of the reasons this would die matter if we're in DESTROY anyways
- try { $self->sth->finish }
- if $self->sth && $self->sth->{Active};
+ if (my $sth = $_[0]->sth) {
+ try { $sth->finish } if $sth->{Active};
+ }
}
1;