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.
|
# this is a duplicate if the suite is the same as the toolchain.
|
||||||
[Debian]
|
[Debian]
|
||||||
packages=build-essential fakeroot
|
packages=apt build-essential fakeroot
|
||||||
source=http://ftp.uk.debian.org/debian
|
source=http://ftp.uk.debian.org/debian
|
||||||
keyring=debian-archive-keyring
|
keyring=debian-archive-keyring
|
||||||
suite=unstable
|
suite=unstable
|
||||||
|
|
|
@ -301,6 +301,7 @@ foreach my $sect (sort keys %packages) {
|
||||||
my @list = split (' ', $sect);
|
my @list = split (' ', $sect);
|
||||||
foreach my $pkg (@list) {
|
foreach my $pkg (@list) {
|
||||||
next if ($packages{$pkg} =~ /^\s*$/);
|
next if ($packages{$pkg} =~ /^\s*$/);
|
||||||
|
next if (!(grep(/$sect/, @debootstrap)));
|
||||||
my @long=split (/ /, $packages{$sect});
|
my @long=split (/ /, $packages{$sect});
|
||||||
foreach my $l (@long) {
|
foreach my $l (@long) {
|
||||||
chomp ($l);
|
chomp ($l);
|
||||||
|
@ -924,6 +925,7 @@ sub dump_config {
|
||||||
print "source: \tSources: ".join (", ", sort values %sources)."\n";
|
print "source: \tSources: ".join (", ", sort values %sources)."\n";
|
||||||
my @long=();
|
my @long=();
|
||||||
foreach my $sect (sort keys %packages) {
|
foreach my $sect (sort keys %packages) {
|
||||||
|
next if (!grep(/$sect/, @debootstrap));
|
||||||
my @list = split (' ', $sect);
|
my @list = split (' ', $sect);
|
||||||
foreach my $pkg (@list) {
|
foreach my $pkg (@list) {
|
||||||
next if ($packages{$pkg} =~ /^\s*$/);
|
next if ($packages{$pkg} =~ /^\s*$/);
|
||||||
|
|
Loading…
Reference in a new issue