byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge pull request #188 from msimerson/dbm-default-perm

Browse Source 
add group write permissions to default DBs
This commit is contained in:
Jared Johnson 2015-01-04 14:40:38 -06:00
commit 3db87b846c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Qpsmtpd/DB/File/DBM.pm
View File

@ -74,7 +74,7 @@ sub tie_dbm {
my ( $self ) = @_; my ( $self ) = @_;
my $path = $self->path; 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"; warn "tie to database $path failed: $!\n";
$self->unlock; $self->unlock;
return; return;