Integrate mainline (mostly) utf8.c does not compile.

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

diff --git a/lib/File/stat.t b/lib/File/stat.t
index af6c0d5..0487b8b 100644 (file)
--- a/lib/File/stat.t
+++ b/lib/File/stat.t
@@ -30,7 +30,7 @@ is( $stat->dev, $stat[0], "device number in position 0" );
 
 # On OS/2 (fake) ino is not constant, it is incremented each time
 SKIP: {
-       skip(1, 'inode number is not constant on OS/2') if $^O eq 'os2';
+       skip('inode number is not constant on OS/2', 1) if $^O eq 'os2';
        is( $stat->ino, $stat[1], "inode number in position 1" );
 }
 
@@ -58,7 +58,6 @@ is( $stat->blocks, $stat[12], "number of blocks in position 12" );
 
 local $!;
 $stat = stat '/notafile';
-like( $!, qr/^No such file/, 
-       "should leave 'No such file' error in \$! with invalid file" );
+isn't( $!, '', 'should populate $!, given invalid file' );
 
 # Testing pretty much anything else is unportable.