support setting No_COW on Perl <5.22

fileno(DIRHANDLE) only works on Perl 5.22+, so we need to use
dirfd(3) ourselves from Inline::C (or rely on chattr(1) being
installed).

While we're at it, rename `set_nodatacow' to `nodatacow_fd'
for consistency with `nodatacow_dir'.

1 files changed, 2 insertions, 2 deletions

diff --git a/lib/PublicInbox/Over.pm b/lib/PublicInbox/Over.pm
index 0146414c..2b314882 100644
--- a/lib/PublicInbox/Over.pm
+++ b/lib/PublicInbox/Over.pm
@@ -20,10 +20,10 @@ sub dbh_new {
                 if ($rw) {
                         require PublicInbox::Spawn;
                         open my $fh, '+>>', $f or die "failed to open $f: $!";
-                        PublicInbox::Spawn::set_nodatacow(fileno($fh));
+                        PublicInbox::Spawn::nodatacow_fd(fileno($fh));
                         my $j = "$f-journal";
                         open $fh, '+>>', $j or die "failed to open $j: $!";
-                        PublicInbox::Spawn::set_nodatacow(fileno($fh));
+                        PublicInbox::Spawn::nodatacow_fd(fileno($fh));
                 } else {
                         $self->{filename} = $f; # die on stat() below:
                 }