yudaike/openSUSE-release-tools
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add locking to CreatePackageDescr cache

Browse Source
This commit is contained in:
Ludwig Nussel 2014-08-28 17:00:16 +02:00
parent 93f22f29df
commit 20084917ee
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
CreatePackageDescr.pm
View File

@ -7,7 +7,7 @@ BEGIN {
use File::Basename;
use Rpm;
use Fcntl;
use Fcntl qw/:flock/;
sub package_snippet($) {
@ -18,7 +18,8 @@ sub package_snippet($) {
my $out = '';
if ( -f $cachefile ) {
open( C, $cachefile ) || die "no cache for $package";
open( C, '<', $cachefile ) || die "no cache for $package";
flock(C, LOCK_SH) or die "failed to lock $cachefile: $!\n";
while (<C>) {
$out .= $_;
}
@ -152,7 +153,9 @@ sub package_snippet($) {
$out .= "-Sug:\n";
mkdir($cachedir);
open( C, '>', $cachefile ) || die "can't write $cachefile";
open( C, '>>', $cachefile ) || die "can't open $cachefile";
flock(C, LOCK_EX) or die "failed to lock $cachefile: $!\n";
seek(C, 0, 0); truncate(C, 0);
print C $out;
close(C);