Fix AIX Failure (was Re: Smoke 12998 /pro/3gl/CPAN/perl-current)

Message-ID: <20011116030139.6821.qmail@onion.perl.org>

p4raw-id: //depot/perl@13037

diff --git a/lib/File/stat.t b/lib/File/stat.t
index af6c0d5..8215f45 100644 (file)
--- a/lib/File/stat.t
+++ b/lib/File/stat.t
@@ -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.