1N/A# Test for File::Temp - POSIX functions 1N/Aprint "# TMPNAM: in a scalar context: \n"; 1N/A# simply check that the file does not exist 1N/A# Not a 100% water tight test though if another program 1N/A# has managed to create one in the meantime. 1N/A# TMPNAM list context 1N/A# Not strict posix behaviour 1N/A# File is opened - make sure it exists 1N/A# Unlink it - a possible NFS issue again if TMPDIR is not a local disk 1N/A skip("Skip test failed probably due to \$TMPDIR being on NFS",1); 1N/A print "# TMPFILE: tmpfile got FH $fh\n"; 1N/A # print something to it 1N/A # Skip all the remaining tests 1N/A skip("Skip test failed probably due to \$TMPDIR being on NFS",1);