Peppermint
/
debian-cd-clone
mirror of https://salsa.debian.org/images-team/debian-cd.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

shortened some silly-code :)

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 # 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};
} }