--- a/lib/Padre/Locker.pm 2018-02-10 18:46:46.741637865 +0300 +++ b/lib/Padre/Locker.pm 2018-02-10 18:47:45.296023378 +0300 @@ -102,7 +102,6 @@ sub db_increment { my $self = shift; unless ( $self->{db_depth}++ ) { - Padre::DB->begin; # Database operations we lock on are the most likely to # involve writes. So opportunistically prevent blocking @@ -111,6 +110,7 @@ # corruption if (and only if) there is a power outage, # operating system crash, or catastrophic hardware failure. Padre::DB->pragma( synchronous => 0 ); + Padre::DB->begin; } return; }