From 8a0a081d0c05d452c488b55c04e50caf01f0cc87 Mon Sep 17 00:00:00 2001
From: codehelp <codehelp@debian.org>
Date: Fri, 20 Aug 2010 22:02:38 +0000
Subject: [PATCH] trim the source listing to match the specified sections.

git-svn-id: http://emdebian.org/svn/current@7372 563faec7-e20c-0410-992a-a66f704d0ccd
---
 multistrap | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/multistrap b/multistrap
index a2280c8..ae7b91e 100755
--- a/multistrap
+++ b/multistrap
@@ -922,7 +922,12 @@ sub dump_config {
 	} else {
 		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=();
 	foreach my $sect (sort keys %packages) {
 		next if (!grep(/^$sect$/i, @debootstrap));