support setting No_COW on Perl <5.22

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

diff --git a/lib/PublicInbox/Msgmap.pm b/lib/PublicInbox/Msgmap.pm
index eee8d6ca58b96adbb46746c1c23c848154ee804c..e7f7e2c9dec2418b595b91348586a373bbc7c094 100644 (file)
--- a/lib/PublicInbox/Msgmap.pm
+++ b/lib/PublicInbox/Msgmap.pm
@@ -51,7 +51,7 @@ sub new_file {
 sub tmp_clone {
        my ($self, $dir) = @_;
        my ($fh, $fn) = tempfile('msgmap-XXXXXXXX', EXLOCK => 0, DIR => $dir);
-       PublicInbox::Spawn::set_nodatacow(fileno($fh));
+       PublicInbox::Spawn::nodatacow_fd(fileno($fh));
        my $tmp;
        if ($self->{dbh}->can('sqlite_backup_to_dbh')) {
                $tmp = ref($self)->new_file($fn, 2);