Change 31465 by [EMAIL PROTECTED] on 2007/06/25 14:26:37
Subject: [PATCH] Accept file exists error in ext/Win32API/File/t/file.t
From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
Date: Mon, 25 Jun 2007 10:23:15 -0400
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/Win32API/File/t/file.t#6 edit
Differences ...
==== //depot/perl/ext/Win32API/File/t/file.t#6 (text) ====
Index: perl/ext/Win32API/File/t/file.t
--- perl/ext/Win32API/File/t/file.t#5~31458~ 2007-06-25 02:08:53.000000000
-0700
+++ perl/ext/Win32API/File/t/file.t 2007-06-25 07:26:37.000000000 -0700
@@ -222,7 +222,8 @@
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
End of Patch.
