diff options
Diffstat (limited to 'order')
-rwxr-xr-x | order | 9 |
1 files changed, 7 insertions, 2 deletions
@@ -57,7 +57,7 @@ while (@ARGV) { die("usage: order [--manifest manifest] cachedir [packages...]\n") unless @ARGV; my $cachedir = shift @ARGV; - +my $missedpkgfile = shift @ARGV; my @p; if ($manifest) { if ($manifest eq '-') { @@ -92,7 +92,12 @@ for my $p (@p) { delete $q->{'filelist'}; last; } - die("binary not found: $p\n") unless $q; + unless ($q) { + open(MISS, ">$missedpkgfile"); + print MISS "$p"; + close(MISS); + die("binary not found: $p, try to download it again!\n"); + } $deps{$p} = $q; } |