fix unicode split /\s+/

[p5sagit/p5-mst-13.2.git] / t / op / stat.t

diff --git a/t/op/stat.t b/t/op/stat.t
index 86d100b..7cb6b1b 100755 (executable)
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -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);
@@ -41,7 +41,7 @@ my $Curdir = File::Spec->curdir;
 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;
@@ -480,7 +480,7 @@ ok(unlink($f), 'unlink tmp file');
 }
 
 SKIP: {
-    skip "No dirfd()", 2 unless $Config{d_dirfd};
+    skip "No dirfd()", 3 unless $Config{d_dirfd};
     ok(opendir(DIR, "."), 'Can open "." dir') || diag "Can't open '.':  $!";
     ok(stat(DIR), "stat() on dirhandle works"); 
     ok(-d -r _ , "chained -x's on dirhandle"); 
@@ -493,12 +493,13 @@ 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.
 
     SKIP: {
-        skip "No dirfd()", 2 unless $Config{d_dirfd};
+        skip "No dirfd()", 3 unless $Config{d_dirfd};
         ok(opendir(DIR, "."), 'Can open "." dir') || diag "Can't open '.':  $!";
         ok(stat(*DIR{IO}), "stat() on *DIR{IO} works");
         ok(-d -r *DIR{IO} , "chained -x's on *DIR{IO}");
@@ -507,5 +508,6 @@ SKIP: {
 }
 
 END {
+    chmod 0666, $tmpfile;
     1 while unlink $tmpfile;
 }