proxmox-mirrors/pve-common
1
0
Fork 0
mirror of https://git.proxmox.com/git/pve-common synced 2025-08-13 21:19:12 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

tempfile: unliked-file fallback

Browse Source 
some file systems (eg. ZFS) don't support O_TMPFILE
This commit is contained in:
Wolfgang Bumiller 2016-11-02 12:25:50 +01:00 committed by Dietmar Maurer
parent f0cfc20e65
commit 7e1ee743f4
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/PVE/Tools.pm
View File

@ -2,7 +2,7 @@ package PVE::Tools;
use strict;
use warnings;
use POSIX qw(EINTR EEXIST);
use POSIX qw(EINTR EEXIST EOPNOTSUPP);
use IO::Socket::IP;
use Socket qw(AF_INET AF_INET6 AI_ALL AI_V4MAPPED);
use IO::Select;
@ -1308,8 +1308,13 @@ sub tempfile {
my $mode = $opts{mode} // O_RDWR;
$mode |= O_EXCL if !$opts{allow_links};
my $fh = IO::File->new($dir, $mode | O_TMPFILE, $perm)
or die "failed to create tempfile: $!\n";
my $fh = IO::File->new($dir, $mode | O_TMPFILE, $perm);
if (!$fh && $! == EOPNOTSUPP) {
$dir .= "/.tmpfile.$$";
$fh = IO::File->new($dir, $mode | O_CREAT | O_EXCL, $perm);
unlink($dir) if $fh;
}
die "failed to create tempfile: $!\n" if !$fh;
return $fh;
}