support setting No_COW on Perl <5.22

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

diff --git a/lib/PublicInbox/Over.pm b/lib/PublicInbox/Over.pm
index 0146414cf4f2ebcf9575714b090e98992b201797..2b314882bc4d9546ab567d523c8c9878d89b6d7b 100644 (file)
--- 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:
                }