generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Retry rename operation with a slight delay to workaround problems on

Browse Source 
some versions of Windows.
This commit is contained in:
Dr. Stephen Henson
2011-12-10 18:06:55 +00:00
parent 0e480d5553
commit df0884ffb7
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
util/fipsas.pl
View File

@@ -56,7 +56,14 @@ my ($from, $to);
unlink $tmptarg; unlink $tmptarg;
#rename target temporarily #rename target temporarily
rename($target, $tmptarg) || die "Can't rename $target"; my $rencnt = 0;
# On windows the previous file doesn't always close straight away
# so retry the rename operation a few times if it fails.
while (!rename($target, $tmptarg))
{
sleep 2;
die "Can't rename $target" if ($rencnt++ > 10);
}
#edit target #edit target
open(IN,$tmptarg) || die "Can't open temporary file"; open(IN,$tmptarg) || die "Can't open temporary file";