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

tighten the section check regexp

Browse source 
git-svn-id: http://emdebian.org/svn/current@7371 563faec7-e20c-0410-992a-a66f704d0ccd
This commit is contained in:
codehelp 2010-08-20 21:40:04 +00:00
parent 0436450d0d
commit 068fc2ec57
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
multistrap
View file

@ -301,7 +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))); next if (!(grep(/^$sect$/i, @debootstrap)));
my @long=split (/ /, $packages{$sect}); my @long=split (/ /, $packages{$sect});
foreach my $l (@long) { foreach my $l (@long) {
chomp ($l); chomp ($l);
@ -925,7 +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)); next if (!grep(/^$sect$/i, @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*$/);