lei_mail_sync: set nodatacow on btrfs

[public-inbox.git] / lib / PublicInbox / LeiMailSync.pm

diff --git a/lib/PublicInbox/LeiMailSync.pm b/lib/PublicInbox/LeiMailSync.pm
index 690c6477efa9c3be76242392d39fcdad90d1378e..f185b585f5e240b02cda3e01f69340741220f50b 100644 (file)
--- a/lib/PublicInbox/LeiMailSync.pm
+++ b/lib/PublicInbox/LeiMailSync.pm
@@ -14,6 +14,11 @@ sub dbh_new {
        my ($self, $rw) = @_;
        my $f = $self->{filename};
        my $creat = $rw && !-s $f;
+       if ($creat) {
+               require PublicInbox::Spawn;
+               open my $fh, '+>>', $f or Carp::croak "open($f): $!";
+               PublicInbox::Spawn::nodatacow_fd(fileno($fh));
+       }
        my $dbh = DBI->connect("dbi:SQLite:dbname=$f",'','', {
                AutoCommit => 1,
                RaiseError => 1,