From: Abe Timmerman <abe@ztreet.demon.nl>
Date: Thu, 28 Feb 2002 00:04:06 +0000 (+0100)
Subject: Win32 not happy with new test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=378bd967209b924b23dccb1e4ea9a910d7a0b72e;p=p5sagit%2Fp5-mst-13.2.git

Win32 not happy with new test
Message-ID: <fhnq7u8ref3nqgsa0p4f9u1v5r3sv3akm1@4ax.com>

p4raw-id: //depot/perl@14905
---

diff --git a/lib/File/stat.t b/lib/File/stat.t
index 0c2f22d..3c867de 100644
--- a/lib/File/stat.t
+++ b/lib/File/stat.t
@@ -58,7 +58,7 @@ is( $stat->blocks, $stat[12], "number of blocks in position 12" );
 
 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 @@ SKIP: {
 		'... 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' );
 }