$Is_Dosish = $Is_Dos || $Is_OS2 || $Is_MSWin32 || $Is_NetWare || $Is_Cygwin;
-$Is_UFS = $Is_Darwin && (() = `df -t ufs .`) == 2;
+$Is_UFS = $Is_Darwin && (() = `df -t ufs . 2>/dev/null`) == 2;
my($DEV, $INO, $MODE, $NLINK, $UID, $GID, $RDEV, $SIZE,
$ATIME, $MTIME, $CTIME, $BLKSIZE, $BLOCKS) = (0..12);
my $tmpfile = 'Op_stat.tmp';
my $tmpfile_link = $tmpfile.'2';
-
+chmod 0666, $tmpfile;
1 while unlink $tmpfile;
open(FOO, ">$tmpfile") || DIE("Can't open temp test file: $!");
close FOO;
my @thwap = stat *F{IO};
ok(@thwap, "stat(*F{IO}) works");
ok( -f *F{IO} , "single file tests work with *F{IO}");
+ close F;
unlink $tmpfile;
#PVIO's hold dirhandle information, so let's test them too.
}
END {
+ chmod 0666, $tmpfile;
1 while unlink $tmpfile;
}