Oops. As of some point one stopped being able to assign integers and
[p5sagit/p5-mst-13.2.git] / t / op / stat.t
index bcf5bd1..cde2974 100755 (executable)
@@ -30,7 +30,7 @@ $Is_Rhapsody= $^O eq 'rhapsody';
 
 $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);
@@ -493,6 +493,7 @@ SKIP: {
     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.