Change 14905 by jhi@alpha on 2002/02/27 22:44:52
Subject: [PATCH lib/File/stat.t] Win32 not happy with new test
From: Abe Timmerman <[EMAIL PROTECTED]>
Date: Thu, 28 Feb 2002 00:04:06 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/File/stat.t#7 edit
Differences ...
==== //depot/perl/lib/File/stat.t#7 (text) ====
Index: perl/lib/File/stat.t
--- perl/lib/File/stat.t.~1~ Wed Feb 27 16:00:05 2002
+++ perl/lib/File/stat.t Wed Feb 27 16:00:05 2002
@@ -58,7 +58,7 @@
SKIP: {
local *STAT;
- skip(2, "Could not open file: $!") unless open(STAT, 'TEST');
+ skip("Could not open file: $!", 2) unless open(STAT, 'TEST');
ok( File::stat::stat('STAT'), '... should be able to find filehandle' );
package foo;
@@ -67,6 +67,8 @@
'... and filehandle in another package' );
close STAT;
+ main::skip("Win32: different stat-info on filehandle", 1) if $^O eq 'MSWin32';
+
main::is( "@$stat", "@$stat2", '... and must match normal stat' );
}
End of Patch.
