rewrite Linux nodatacow use in pure Perl w/o system

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

diff --git a/lib/PublicInbox/Over.pm b/lib/PublicInbox/Over.pm
index 30ad949dd027153f30835f928c962d00e5d9f82a..786f9d922282ea3358c7664462ceb8b591d05e4d 100644 (file)
--- a/lib/PublicInbox/Over.pm
+++ b/lib/PublicInbox/Over.pm
@@ -1,4 +1,4 @@
-# Copyright (C) 2018-2021 all contributors <meta@public-inbox.org>
+# Copyright (C) all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 
 # for XOVER, OVER in NNTP, and feeds/homepage/threads in PSGI
@@ -18,11 +18,10 @@ sub dbh_new {
        my $f = delete $self->{filename};
        if (!-s $f) { # SQLite defaults mode to 0644, we want 0666
                if ($rw) {
-                       require PublicInbox::Spawn;
+                       require PublicInbox::Syscall;
                        my ($dir) = ($f =~ m!(.+)/[^/]+\z!);
-                       PublicInbox::Spawn::nodatacow_dir($dir);
+                       PublicInbox::Syscall::nodatacow_dir($dir);
                        open my $fh, '+>>', $f or die "failed to open $f: $!";
-                       PublicInbox::Spawn::nodatacow_fd(fileno($fh));
                } else {
                        $self->{filename} = $f; # die on stat() below:
                }