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:
codehelp 2010-08-20 08:28:52 +00:00
parent 720595e180
commit 0436450d0d
2 changed files with 3 additions and 1 deletions

View file

@ -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

View file

@ -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*$/);