|
Lines 102-108
sub shutdown {
Link Here
|
| 102 |
sub db_increment { |
102 |
sub db_increment { |
| 103 |
my $self = shift; |
103 |
my $self = shift; |
| 104 |
unless ( $self->{db_depth}++ ) { |
104 |
unless ( $self->{db_depth}++ ) { |
| 105 |
Padre::DB->begin; |
105 |
|
| 106 |
|
106 |
|
| 107 |
# Database operations we lock on are the most likely to |
107 |
# Database operations we lock on are the most likely to |
| 108 |
# involve writes. So opportunistically prevent blocking |
108 |
# involve writes. So opportunistically prevent blocking |
|
Lines 111-116
sub db_increment {
Link Here
|
| 111 |
# corruption if (and only if) there is a power outage, |
111 |
# corruption if (and only if) there is a power outage, |
| 112 |
# operating system crash, or catastrophic hardware failure. |
112 |
# operating system crash, or catastrophic hardware failure. |
| 113 |
Padre::DB->pragma( synchronous => 0 ); |
113 |
Padre::DB->pragma( synchronous => 0 ); |
|
|
114 |
Padre::DB->begin; |
| 114 |
} |
115 |
} |
| 115 |
return; |
116 |
return; |
| 116 |
} |
117 |
} |
