Change 13037 by jhi@alpha on 2001/11/16 04:38:47
Subject: [PATCH lib/File/stat.t] Fix AIX Failure (was Re: Smoke 12998
/pro/3gl/CPAN/perl-current)
From: "chromatic" <[EMAIL PROTECTED]>
Date: Thu, 15 Nov 2001 19:54:23 -0700
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/File/stat.t#4 edit
Differences ...
==== //depot/perl/lib/File/stat.t#4 (text) ====
Index: perl/lib/File/stat.t
--- perl/lib/File/stat.t.~1~ Thu Nov 15 21:45:06 2001
+++ perl/lib/File/stat.t Thu Nov 15 21:45:06 2001
@@ -58,7 +58,6 @@
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.
End of Patch.
