strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

masterfix: #i10000# fix for race condition

Browse source
This commit is contained in:
Vladimir Glazunov 2010-09-23 17:41:56 +02:00
parent ec1697300c
commit 46a58eb98d
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
solenv/bin/mhids.pl
View file

@ -59,7 +59,10 @@ sub cleandie
print STDERR "$errstring\n";
if ( not $debug ) {
foreach my $i (@cleanuplist) {
unlink "$workfile$i" if -f "$workfile$i" or print STDERR "ERROR - couldn't remove $workfile$i\n";
# unlink "$workfile$i" if -f "$workfile$i" or print STDERR "ERROR - couldn't remove $workfile$i\n";
if ( -f "$workfile$i" ) {
unlink "$workfile$i" or print STDERR "ERROR - couldn't remove $workfile$i\n";
}
}
}
die "$erroreval\n";
@ -387,6 +390,7 @@ rename("$srs/$filebase.hid.$ENV{INPATH}", "$srs/$filebase.hid") or cleandie("ERR
if ( not $debug ) {
foreach my $i (@cleanuplist) {
sleep 1;
if ( -f "$workfile$i" ) {
unlink "$workfile$i" or cleandie("");
}