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

Don't sort the sources, suites and components lines in --simulate output, so that they correspond.

Browse source 
git-svn-id: http://emdebian.org/svn/current@7373 563faec7-e20c-0410-992a-a66f704d0ccd
This commit is contained in:
wookey 2010-08-20 22:54:07 +00:00
parent 8a0a081d0c
commit dc66a1305a
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
multistrap
View file

@ -923,7 +923,7 @@ sub dump_config {
printf ("include:\t"._g("No included configuration files.\n"));
}
my @srcdump=();
foreach my $src (sort keys %sources) {
foreach my $src (keys %sources) {
next if ((!grep(/^$src$/i, @aptsources)) or (!grep(/^$src$/i, @debootstrap)));
push @srcdump, $sources{$src};
}
@ -938,8 +938,8 @@ sub dump_config {
}
}
print "packages:\tPackages: ".join (", ", sort @long)."\n";
print "suites: \tSuites: ".join (", ", sort values %suites)."\n";
print "components\tComponents: ".join (", ", sort values %components)."\n";
print "suites: \tSuites: ".join (", ", values %suites)."\n";
print "components\tComponents: ".join (", ", values %components)."\n";
my $msg="omitdebsrc\t"._g("Omit deb-src from sources.list for sections:");
foreach my $omit (sort keys %omitdebsrc) {
$msg .= $omitdebsrc{$omit} if (defined $omitdebsrc{$omit});