shortened some silly-code :)
This commit is contained in:
parent
9c1ef2ee68
commit
4ad8f25184
|
@ -210,8 +210,7 @@ if ($complete) {
|
||||||
# Try to sort them by section even if packages from
|
# Try to sort them by section even if packages from
|
||||||
# other sections will get in through dependencies
|
# other sections will get in through dependencies
|
||||||
# With some luck, most of them will already be here
|
# With some luck, most of them will already be here
|
||||||
my $p;
|
foreach my $p (sort { ($packages{$a}{"Section"} cmp $packages{$b}{"Section"})
|
||||||
foreach $p (sort { ($packages{$a}{"Section"} cmp $packages{$b}{"Section"})
|
|
||||||
|| ($a cmp $b) }
|
|| ($a cmp $b) }
|
||||||
grep { not ($included{$_} or $excluded{$_}) } keys %packages) {
|
grep { not ($included{$_} or $excluded{$_}) } keys %packages) {
|
||||||
add_package ($p, 0, 0);
|
add_package ($p, 0, 0);
|
||||||
|
@ -599,8 +598,7 @@ sub add_missing {
|
||||||
sub is_in {
|
sub is_in {
|
||||||
my $value = shift;
|
my $value = shift;
|
||||||
my $array = shift;
|
my $array = shift;
|
||||||
my $key;
|
foreach my $key (@{$array}) {
|
||||||
foreach $key (@{$array}) {
|
|
||||||
return 1 if ($key eq $value);
|
return 1 if ($key eq $value);
|
||||||
}
|
}
|
||||||
return 0;
|
return 0;
|
||||||
|
@ -642,8 +640,7 @@ sub check_list {
|
||||||
next;
|
next;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
my $removed;
|
foreach my $removed (@to_remove) {
|
||||||
foreach $removed (@to_remove) {
|
|
||||||
msg(2, " Removing $removed ...\n");
|
msg(2, " Removing $removed ...\n");
|
||||||
@{$ref} = grep { $_ ne $removed } @{$ref};
|
@{$ref} = grep { $_ ne $removed } @{$ref};
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue