|
@@ -14,6 +14,7 @@ use Dpkg::Version qw(compare_versions);
|
|
|
textdomain("dpkg-dev");
|
|
textdomain("dpkg-dev");
|
|
|
|
|
|
|
|
my (@samemaint, @changedmaint);
|
|
my (@samemaint, @changedmaint);
|
|
|
|
|
+my @spuriousover;
|
|
|
my %packages;
|
|
my %packages;
|
|
|
my %overridden;
|
|
my %overridden;
|
|
|
|
|
|
|
@@ -85,7 +86,10 @@ sub load_override
|
|
|
|
|
|
|
|
my ($p, $priority, $section, $maintainer) = split(/\s+/, $_, 4);
|
|
my ($p, $priority, $section, $maintainer) = split(/\s+/, $_, 4);
|
|
|
|
|
|
|
|
- next unless defined($packages{$p});
|
|
|
|
|
|
|
+ if (not defined($packages{$p})) {
|
|
|
|
|
+ push(@spuriousover, $p);
|
|
|
|
|
+ next;
|
|
|
|
|
+ }
|
|
|
|
|
|
|
|
for my $package (@{$packages{$p}}) {
|
|
for my $package (@{$packages{$p}}) {
|
|
|
if ($maintainer) {
|
|
if ($maintainer) {
|
|
@@ -268,8 +272,6 @@ for my $p (sort keys %packages) {
|
|
|
}
|
|
}
|
|
|
close(STDOUT) or syserr(_g("Couldn't close stdout"));
|
|
close(STDOUT) or syserr(_g("Couldn't close stdout"));
|
|
|
|
|
|
|
|
-my @spuriousover= grep(!defined($packages{$_}),sort keys %overridden);
|
|
|
|
|
-
|
|
|
|
|
writelist(_g("** Packages in archive but missing from override file: **"),
|
|
writelist(_g("** Packages in archive but missing from override file: **"),
|
|
|
@missingover);
|
|
@missingover);
|
|
|
if (@changedmaint) {
|
|
if (@changedmaint) {
|