From: chromatic <chromatic@wgz.org>
Date: Thu, 15 Nov 2001 19:54:23 +0000 (-0700)
Subject: Fix AIX Failure (was Re: Smoke 12998 /pro/3gl/CPAN/perl-current)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8db1c9eef38d8afcb875490c3652c084c231100a;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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.