Download source packages for all binaries, if a source directory is set.

git-svn-id: http://emdebian.org/svn/current@7261 563faec7-e20c-0410-992a-a66f704d0ccd

debian/changelog

@@ -14,8 +14,10 @@ multistrap (2.1.5) unstable; urgency=low
   * Handle fakeroot with native architectures.
   * Extend device table format to support creating symlinks and
     hardlinks.
+  * Download source packages for all binaries, if a source directory is
+    set.
 
- -- Neil Williams <codehelp@debian.org>  Mon, 31 May 2010 18:15:06 +0100
+ -- Neil Williams <codehelp@debian.org>  Mon, 31 May 2010 20:15:56 +0100
 
 multistrap (2.1.4) unstable; urgency=low
 

multistrap

@@ -652,26 +652,11 @@ sub check_bin_sh
 sub tidy_apt
 {
 	print _g("I: Tidying up apt cache and list data.\n");
-	if ($unpack eq "true")
-	{
-		opendir (DEBS, "${dir}${cachedir}/archives/")
-			or die (_g("Cannot read apt archives directory.\n"));
-		my @files=grep(!m:\.\.?$:, readdir DEBS);
-		closedir (DEBS);
-		foreach my $file (@files)
-		{
-			next if (-d $file);
-			next unless ($file =~ /\.deb$/);
-			if (defined $sourcedir) {
-				system ("mv ${dir}${cachedir}archives/$file $sourcedir/$file");
-				my $str = join (" ", @dsclist);
-				print "$str\n";
-				print "(cd $sourcedir; apt-get -d $config_str source $str)";
-				system ("(cd $sourcedir; apt-get -d $config_str source $str)");
-			} else {
-				unlink ("${dir}${cachedir}archives/$file");
-			}
-		}
+	if (defined $sourcedir) {
+		my $str = join (" ", @dsclist);
+		print "$str\n";
+		print "(cd $sourcedir; apt-get -d $config_str source $str)";
+		system ("(cd $sourcedir; apt-get -d $config_str source $str)");
 	}
 	unlink ("${dir}etc/apt/sources.list")
 		if (-f "${dir}etc/apt/sources.list");
@@ -694,6 +679,23 @@ sub tidy_apt
 		next unless ($file =~ /\.bin$/);
 		unlink ("${dir}${cachedir}$file");
 	}
+	if ($unpack eq "true")
+	{
+		opendir (DEBS, "${dir}${cachedir}/archives/")
+			or die (_g("Cannot read apt archives directory.\n"));
+		my @files=grep(!m:\.\.?$:, readdir DEBS);
+		closedir (DEBS);
+		foreach my $file (@files)
+		{
+			next if (-d $file);
+			next unless ($file =~ /\.deb$/);
+			if (defined $sourcedir) {
+				system ("mv ${dir}${cachedir}archives/$file $sourcedir/$file");
+			} else {
+				unlink ("${dir}${cachedir}archives/$file");
+			}
+		}
+	}
 }
 
 # if native arch, do a few tasks just because we can and probably should.