Update the backported sort_deps fix to match master

This commit is contained in:
Steve McIntyre 2015-07-23 18:50:35 +01:00
parent e90f0acdd2
commit 4bc7234624
1 changed files with 4 additions and 2 deletions

View File

@ -83,6 +83,7 @@ msg(1, "Ignore Recommends: ");
msg(1, yesno($norecommends)."\n"); msg(1, yesno($norecommends)."\n");
msg(1, "Ignore Suggests: "); msg(1, "Ignore Suggests: ");
msg(1, yesno($nosuggests)."\n"); msg(1, yesno($nosuggests)."\n");
msg(1, "Maximum allowed package size: $max_pkg_size bytes\n");
msg(1, "====================================================================== msg(1, "======================================================================
"); ");
@ -871,9 +872,10 @@ sub add_missing {
# will do. # will do.
foreach my $pkg (@{$thisdep}) { foreach my $pkg (@{$thisdep}) {
my %t = %$pkg; my %t = %$pkg;
my $pkgname = $t{"Package"}; my $pkgname = lc $t{"Package"};
if ($packages{$pkgname}{"Size"} > $max_pkg_size) { if (exists $packages{$pkgname} &&
($packages{$pkgname}{"Size"} > $max_pkg_size)) {
msg(2, " $pkgname is too big, mark it as excluded\n"); msg(2, " $pkgname is too big, mark it as excluded\n");
$excluded{$pkgname} = 'toobig'; $excluded{$pkgname} = 'toobig';
} }