Peppermint/debian-cd-clone
1
0
Fork 0
mirror of https://salsa.debian.org/images-team/debian-cd.git synced 2024-11-24 15:19:51 -01:00
Code Issues Packages Projects Releases Wiki Activity

shortened some silly-code :)

Browse Source
This commit is contained in:
Josip Rodin 2003-07-24 16:06:59 +00:00
parent 9c1ef2ee68
commit 4ad8f25184
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tools/list2cds
View File

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