Commit 421de622 authored by Dr. Stephen Henson's avatar Dr. Stephen Henson
Browse files

unlink target and retry to avoid intermittent Win32 failures

parent c567812f

util/fipslink.pl

+9 −0
Original line number Diff line number Diff line
@@ -57,6 +57,15 @@ print "$fips_cc -DHMAC_SHA1_SIG=\\\"$fips_hash\\\" $fips_cc_args $fips_libdir/fi 
system "$fips_cc -DHMAC_SHA1_SIG=\\\"$fips_hash\\\" $fips_cc_args $fips_libdir/fips_premain.c";

die "Second stage Compile failure" if $? != 0;



my $delcnt = 0;

# On windows the previous file doesn't always close straight away

# so retry an unlink operation a few times if it fails.

while (!unlink($target))

        {

        sleep 2;

        die "Can't delete $target" if ($delcnt++ > 10);

        }





print "$fips_link @ARGV\n";

system "$fips_link @ARGV";