only listen to packages listings for those sections included in debootstrap
git-svn-id: http://emdebian.org/svn/current@7370 563faec7-e20c-0410-992a-a66f704d0ccd
This commit is contained in:
parent
720595e180
commit
0436450d0d
2 changed files with 3 additions and 1 deletions
|
@ -22,7 +22,7 @@ aptsources=Debian
|
|||
|
||||
# this is a duplicate if the suite is the same as the toolchain.
|
||||
[Debian]
|
||||
packages=build-essential fakeroot
|
||||
packages=apt build-essential fakeroot
|
||||
source=http://ftp.uk.debian.org/debian
|
||||
keyring=debian-archive-keyring
|
||||
suite=unstable
|
||||
|
|
|
@ -301,6 +301,7 @@ foreach my $sect (sort keys %packages) {
|
|||
my @list = split (' ', $sect);
|
||||
foreach my $pkg (@list) {
|
||||
next if ($packages{$pkg} =~ /^\s*$/);
|
||||
next if (!(grep(/$sect/, @debootstrap)));
|
||||
my @long=split (/ /, $packages{$sect});
|
||||
foreach my $l (@long) {
|
||||
chomp ($l);
|
||||
|
@ -924,6 +925,7 @@ sub dump_config {
|
|||
print "source: \tSources: ".join (", ", sort values %sources)."\n";
|
||||
my @long=();
|
||||
foreach my $sect (sort keys %packages) {
|
||||
next if (!grep(/$sect/, @debootstrap));
|
||||
my @list = split (' ', $sect);
|
||||
foreach my $pkg (@list) {
|
||||
next if ($packages{$pkg} =~ /^\s*$/);
|
||||
|
|
Loading…
Reference in a new issue