lib/PublicInbox/LeiMailSync.pm | 5 +++-- diff --git a/lib/PublicInbox/LeiMailSync.pm b/lib/PublicInbox/LeiMailSync.pm index 36cd564cd7477467b75e1f28ff6428c10af3b499..22ee1109cc7e13ba9681fb08fe12c5c35e43dce7 100644 --- a/lib/PublicInbox/LeiMailSync.pm +++ b/lib/PublicInbox/LeiMailSync.pm @@ -392,10 +392,11 @@ # FIXME: something with "lei " is causing uncommitted transaction # warnings, not sure what... sub DESTROY { my ($self) = @_; - my $dbh = $self->{dbh} or return; + my $dbh = delete($self->{dbh}) or return; return if $dbh->{ReadOnly}; use Carp; - warn "BUG $$ $0 $self {dbh} UNCOMMITTED ", Carp::longmess(); + undef $dbh; + warn "BUG $$ $0 $self {dbh} OPEN ppid=".getppid.' '.Carp::longmess(); } 1;