From 068fc2ec572ddb27575093391da5957bcfc9258e Mon Sep 17 00:00:00 2001
From: codehelp <codehelp@debian.org>
Date: Fri, 20 Aug 2010 21:40:04 +0000
Subject: [PATCH] tighten the section check regexp

git-svn-id: http://emdebian.org/svn/current@7371 563faec7-e20c-0410-992a-a66f704d0ccd
---
 multistrap | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/multistrap b/multistrap
index b69f3d4..a2280c8 100755
--- a/multistrap
+++ b/multistrap
@@ -301,7 +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)));
+		next if (!(grep(/^$sect$/i, @debootstrap)));
 		my @long=split (/ /, $packages{$sect});
 		foreach my $l (@long) {
 			chomp ($l);
@@ -925,7 +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));
+		next if (!grep(/^$sect$/i, @debootstrap));
 		my @list = split (' ', $sect);
 		foreach my $pkg (@list) {
 			next if ($packages{$pkg} =~ /^\s*$/);