From 31fb71079208b13d02e1fbeacbd755a83c026fb4 Mon Sep 17 00:00:00 2001
From: Matt Simerson <matt@tnpi.net>
Date: Sun, 4 Jan 2015 12:22:15 -0800
Subject: [PATCH] add group write permissions to default DBs

---
 lib/Qpsmtpd/DB/File/DBM.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Qpsmtpd/DB/File/DBM.pm b/lib/Qpsmtpd/DB/File/DBM.pm
index 488094e..914aeed 100644
--- a/lib/Qpsmtpd/DB/File/DBM.pm
+++ b/lib/Qpsmtpd/DB/File/DBM.pm
@@ -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;