r313494 make perl File::Temp broken

[Iblis Lin]

Hi,

as not a perl programmer myself. I have no idea what is going on.
I found this issue while compiling math/openblas.

[iblis at ns]% uname -a
FreeBSD ns 12.0-CURRENT FreeBSD 12.0-CURRENT #1 r313500: Fri Feb 10 16:39:21 
CST 2017     root at ns:/usr/obj/usr/src/sys/GENERIC  amd64

[iblis at ns]% cat test.pl 
use File::Temp qw(tempfile);
$tmpf = new File::Temp( UNLINK => 1 );

[iblis at ns]% perl test.pl
Error in tempfile() using template /tmp/XXXXXXXXXX: Could not create temp file
/tmp/dI5uhUsijR: Bad file descriptor at test.pl line 2.


And part of truss's output:

close(3)                                         = 0 (0x0)
stat("/tmp/",{ mode=drwxrwxrwt ,inode=24317568,size=1024,blksize=32768 }) = 0 (0x0)
stat("/tmp/",{ mode=drwxrwxrwt ,inode=24317568,size=1024,blksize=32768 }) = 0 (0x0)
openat(AT_FDCWD,"/tmp/Nn0Epra5ff",O_RDWR|O_EXLOCK|O_NOFOLLOW|O_CREAT|O_EXCL,0600) ERR#9 'Bad file descriptor'
stat("/usr/share/nls/C/libc.cat",0x7fffffffdcf8) ERR#2 'No such file or directory'
stat("/usr/share/nls/libc/C",0x7fffffffdcf8)     ERR#2 'No such file or directory'
stat("/usr/local/share/nls/C/libc.cat",0x7fffffffdcf8) ERR#2 'No such file or directory'
stat("/usr/local/share/nls/libc/C",0x7fffffffdcf8) ERR#2 'No such file or directory'
Error in tempfile() using template /tmp/XXXXXXXXXX: Could not create temp file /tmp/Nn0Epra5ff: Bad file descriptor at test.pl line 2.
write(2,"Error in tempfile() using templa"...,135) = 135 (0x87)


-- 
Iblis Lin
林峻頤