add group write permissions to default DBs

This commit is contained in:
Matt Simerson 2015-01-04 12:22:15 -08:00
parent 4226dfaa3e
commit 31fb710792

View File

@ -74,7 +74,7 @@ sub tie_dbm {
my ( $self ) = @_;
my $path = $self->path;
tie(my %db, 'AnyDBM_File', $path, O_CREAT | O_RDWR, oct('0600')) or do {
tie(my %db, 'AnyDBM_File', $path, O_CREAT | O_RDWR, oct('0640')) or do {
warn "tie to database $path failed: $!\n";
$self->unlock;
return;