diff options
Diffstat (limited to 'scripts')
-rwxr-xr-x | scripts/resolve-system-dependencies.pl.in | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/scripts/resolve-system-dependencies.pl.in b/scripts/resolve-system-dependencies.pl.in index 412f07274..1294ebba5 100755 --- a/scripts/resolve-system-dependencies.pl.in +++ b/scripts/resolve-system-dependencies.pl.in @@ -4,6 +4,7 @@ use utf8; use strict; use warnings; use Cwd qw(realpath); +use Errno; use File::Basename qw(dirname); use File::Path qw(make_path); use File::Spec::Functions qw(catfile); @@ -24,10 +25,14 @@ make_path dirname($cache); our $DEPS; eval { $DEPS = lock_retrieve($cache); -} or do { +}; + +if($!{ENOENT}) { lock_store {}, $cache; $DEPS = {}; -}; +} elsif($@) { + die "Unable to obtain a lock on dependency-map file $cache: $@"; +} sub mkset(@) { my %set; |