Accept file exists error in ext/Win32API/File/t/file.t

From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510706250723r4d6c5f5dg203b3f61cdeaa14d@mail.gmail.com>

p4raw-id: //depot/perl@31465

diff --git a/ext/Win32API/File/t/file.t b/ext/Win32API/File/t/file.t
index 567652c..0840feb 100644 (file)
--- a/ext/Win32API/File/t/file.t
+++ b/ext/Win32API/File/t/file.t
@@ -222,7 +222,8 @@ $ok or print "# ",fileLastError(),"\n";
 print $ok ? "" : "not ", "ok ", ++$test, "\n"; # ok 30
 
 $ok= ! MoveFileEx( "CanWrite.txt", "ReadOnly.cp", MOVEFILE_REPLACE_EXISTING )
- &&  Win32API::File::_fileLastError() == 5; # access is denied
+ &&  (Win32API::File::_fileLastError() == 5     # access is denied
+ ||   Win32API::File::_fileLastError() == 183); # already exists
 $ok or print "# ",fileLastError(),"\n";
 print $ok ? "" : "not ", "ok ", ++$test, "\n"; # ok 31