diff options
Diffstat (limited to 'lib/PublicInbox/LeiMailSync.pm')
-rw-r--r-- | lib/PublicInbox/LeiMailSync.pm | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/lib/PublicInbox/LeiMailSync.pm b/lib/PublicInbox/LeiMailSync.pm index f8834a27..5a10c127 100644 --- a/lib/PublicInbox/LeiMailSync.pm +++ b/lib/PublicInbox/LeiMailSync.pm @@ -32,9 +32,7 @@ sub new { bless { filename => $f, fmap => {} }, $cls; } -sub lms_commit { delete($_[0]->{dbh})->commit } - -sub lms_begin { ($_[0]->{dbh} //= dbh_new($_[0], 1))->begin_work }; +sub lms_write_prepare { ($_[0]->{dbh} //= dbh_new($_[0], 1)) }; sub create_tables { my ($dbh) = @_; @@ -468,14 +466,4 @@ sub imap_oid { $oidbin ? unpack('H*', $oidbin) : undef; } -# FIXED? something with "lei <up|q>" is causing uncommitted transaction -# TODO: remove soon -sub DESTROY { - my ($self) = @_; - my $dbh = delete($self->{dbh}) or return; - return if $dbh->{ReadOnly}; - undef $dbh; - warn "BUG $$ $0 $self {dbh} OPEN ppid=".getppid.' '.Carp::longmess(); -} - 1; |