revert r7374 and fix the implementation to no longer reuse an existing variable name.

git-svn-id: http://emdebian.org/svn/current@7383 563faec7-e20c-0410-992a-a66f704d0ccd
This commit is contained in:
codehelp 2010-08-25 19:56:15 +00:00
parent 8c6ae7d6bd
commit b9ea415aed

View file

@ -940,12 +940,11 @@ sub dump_config {
print "packages:\tPackages: ".join (", ", sort @long)."\n"; print "packages:\tPackages: ".join (", ", sort @long)."\n";
print "suites: \tSuites: ".join (", ", sort values %suites)."\n"; print "suites: \tSuites: ".join (", ", sort values %suites)."\n";
print "components\tComponents: ".join (", ", sort values %components)."\n"; print "components\tComponents: ".join (", ", sort values %components)."\n";
my $msg="omitdebsrc\t"._g("Omit deb-src from sources.list for sections:"); my $srcmsg="omitdebsrc\t"._g("Omit deb-src from sources.list for sections:");
foreach my $omit (sort keys %omitdebsrc) { foreach my $omit (sort keys %omitdebsrc) {
$msg .= $omitdebsrc{$omit} if (defined $omitdebsrc{$omit}); $srcmsg .= $omitdebsrc{$omit} if (defined $omitdebsrc{$omit});
} }
print "$msg\n"; print "$srcmsg\n";
$msg="";
if (defined $explicit_suite) { if (defined $explicit_suite) {
printf("explicitsuite:\t"._g("Explicit suite selection: Yes\n")); printf("explicitsuite:\t"._g("Explicit suite selection: Yes\n"));
} else { } else {