diff options
-rwxr-xr-x | iurt | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -49,6 +49,7 @@ use File::Spec::Functions qw(rel2abs); use File::Basename qw(fileparse); # I did not manage to make locks work over the network #use File::lockf; +use Fcntl qw(:flock SEEK_END); use Mkcd::Commandline qw(parseCommandLine usage); use MDK::Common; use Filesys::Df qw(df); @@ -1414,7 +1415,10 @@ sub write_status { return unless $run{status}{$srpm}; my $status_file = status_file($local_spool, $run); if (open my $file, ">>$status_file") { + flock($file, LOCK_EX); + seek($file, 0, SEEK_END); print $file "$srpm: $run->{status}{$srpm}\n"; + flock($file, LOCK_UN); } } |