josch/multistrap
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

trim the source listing to match the specified sections.

Browse source 
git-svn-id: http://emdebian.org/svn/current@7372 563faec7-e20c-0410-992a-a66f704d0ccd
This commit is contained in:
codehelp 2010-08-20 22:02:38 +00:00
parent 068fc2ec57
commit 8a0a081d0c
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
multistrap
View file

@ -922,7 +922,12 @@ sub dump_config {
} else { } else {
printf ("include:\t"._g("No included configuration files.\n")); printf ("include:\t"._g("No included configuration files.\n"));
} }
print "source: \tSources: ".join (", ", sort values %sources)."\n"; my @srcdump=();
foreach my $src (sort keys %sources) {
next if ((!grep(/^$src$/i, @aptsources)) or (!grep(/^$src$/i, @debootstrap)));
push @srcdump, $sources{$src};
}
print "source: \tSources: ".join(", ", @srcdump)."\n";
my @long=(); my @long=();
foreach my $sect (sort keys %packages) { foreach my $sect (sort keys %packages) {
next if (!grep(/^$sect$/i, @debootstrap)); next if (!grep(/^$sect$/i, @debootstrap));