diff options
| author | Eric Wong <e@80x24.org> | 2018-04-18 23:27:44 +0000 |
|---|---|---|
| committer | Eric Wong <e@80x24.org> | 2018-04-18 23:40:52 +0000 |
| commit | 2a353273079b2491cbceb20526d3c9dbf43d8f62 (patch) | |
| tree | e84d1b4f39fbb63231c8b3585d14bcd1a7240136 /lib/PublicInbox/Over.pm | |
| parent | cfb8d16578e7f2f2e300f9f436205e4a8fc7f322 (diff) | |
| download | public-inbox-2a353273079b2491cbceb20526d3c9dbf43d8f62.tar.gz | |
We can't have files with permissions inconsistent with what's in git objects.
Diffstat (limited to 'lib/PublicInbox/Over.pm')
| -rw-r--r-- | lib/PublicInbox/Over.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/PublicInbox/Over.pm b/lib/PublicInbox/Over.pm index 07e54b64..30f2603f 100644 --- a/lib/PublicInbox/Over.pm +++ b/lib/PublicInbox/Over.pm @@ -15,7 +15,11 @@ use Compress::Zlib qw(uncompress); sub dbh_new { my ($self) = @_; my $ro = ref($self) eq 'PublicInbox::Over'; - my $dbh = DBI->connect("dbi:SQLite:dbname=$self->{filename}",'','', { + my $f = $self->{filename}; + if (!$ro && !-f $f) { # SQLite defaults mode to 0644, we want 0666 + open my $fh, '+>>', $f or die "failed to open $f: $!"; + } + my $dbh = DBI->connect("dbi:SQLite:dbname=$f",'','', { AutoCommit => 1, RaiseError => 1, PrintError => 0, |