yshui/lix
0
0
Fork 0
forked from lix-project/lix
Code Pull requests Activity

appropriately handle lock acquisition failures in resolve-system-dependencies.pl

Browse source
This commit is contained in:
Jude Taylor 2015-10-21 14:38:35 -07:00
parent 3f65504164
commit f5a7739171
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
scripts/resolve-system-dependencies.pl.in
View file

@ -4,6 +4,7 @@ use utf8;
use strict; use strict;
use warnings; use warnings;
use Cwd qw(realpath); use Cwd qw(realpath);
use Errno;
use File::Basename qw(dirname); use File::Basename qw(dirname);
use File::Path qw(make_path); use File::Path qw(make_path);
use File::Spec::Functions qw(catfile); use File::Spec::Functions qw(catfile);
@ -24,10 +25,14 @@ make_path dirname($cache);
our $DEPS; our $DEPS;
eval { eval {
$DEPS = lock_retrieve($cache); $DEPS = lock_retrieve($cache);
} or do { };
if($!{ENOENT}) {
lock_store {}, $cache; lock_store {}, $cache;
$DEPS = {}; $DEPS = {};
}; } elsif($@) {
die "Unable to obtain a lock on dependency-map file $cache: $@";
}
sub mkset(@) { sub mkset(@) {
my %set; my %set;