Your vendor has not defined Fcntl macro O_NOINHERIT, used at /usr/share/perl5/File/Temp.pm line 247.
Your vendor has not defined Fcntl macro O_EXLOCK, used at /usr/share/perl5/File/Temp.pm line 256.
Your vendor has not defined Fcntl macro O_TEMPORARY, used at /usr/share/perl5/File/Temp.pm line 277.
Your vendor has not defined Fcntl macro O_EXLOCK, used at /usr/share/perl5/File/Temp.pm line 255.
####
my $OPENFLAGS = O_CREAT | O_EXCL | O_RDWR;
my $LOCKFLAG;
unless ($^O eq 'MacOS') {
for my $oflag (qw/ NOFOLLOW BINARY LARGEFILE NOINHERIT /) {
my ($bit, $func) = (0, "Fcntl::O_" . $oflag);
no strict 'refs';
$OPENFLAGS |= $bit if eval {
# Make sure that redefined die handlers do not cause problems
# e.g. CGI::Carp
local $SIG{__DIE__} = sub {};
local $SIG{__WARN__} = sub {};
$bit = &$func();
1;
};
}
# Special case O_EXLOCK
$LOCKFLAG = eval {
local $SIG{__DIE__} = sub {};
local $SIG{__WARN__} = sub {};
&Fcntl::O_EXLOCK();
};
}
####
$OPENFLAGS |= $bit if eval {
# Make sure that redefined die handlers do not cause problems
# e.g. CGI::Carp
local $SIG{__DIE__} = sub {};
local $SIG{__WARN__} = sub {};
local *CORE::GLOBAL::die = sub {};
$bit = &$func();
1;
};