From cb7d618a9f36404770a18702179ec635c1e5f31e Mon Sep 17 00:00:00 2001
From: codehelp <codehelp@debian.org>
Date: Wed, 21 Apr 2010 14:30:39 +0000
Subject: [PATCH] avoid broken sources lists on bad config

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

diff --git a/multistrap b/multistrap
index af99658..04e1960 100755
--- a/multistrap
+++ b/multistrap
@@ -260,11 +260,14 @@ foreach my $aptsrc (@debootstrap)
 		$mirror = $sources{$aptsrc};
 		$suite = $suites{$aptsrc};
 		$component = (defined $components{$aptsrc}) ? $components{$aptsrc} : "main";
-		print SOURCES<<END;
+		if (defined $mirror and defined $suite)
+		{
+			print SOURCES<<END;
 deb $mirror $suite $component
 deb-src $mirror $suite $component
 END
-		close SOURCES;
+			close SOURCES;
+		}
 	}
 }
 my $k;
@@ -398,11 +401,13 @@ foreach my $aptsrc (@aptsources)
 		$mirror = $sources{$aptsrc};
 		$suite = $suites{$aptsrc};
 		$component = (defined $components{$aptsrc}) ? $components{$aptsrc} : "main";
-		print SOURCES<<END;
+		if (defined $mirror and defined $suite)
+			print SOURCES<<END;
 deb $mirror $suite $component
 deb-src $mirror $suite $component
 END
-		close SOURCES;
+			close SOURCES;
+		}
 	}
 }
 # altered the sources, so get apt to update.