if !isin( $list_state, qw(needs-build building uploaded
built build-attempted failed installed dep-wait
not-for-us all failed-removed
- install-wait reupload-wait));} },
+ install-wait reupload-wait bd-uninstallable));} },
# options with args
dist =>
{ short => "d", arg => \$distribution,
/^Package:\s*(\S+)$/mi and $key = $1;
/^Failed-Why:(([^\n]|\n ([^\n]|\.))*)$/msi and $reason = $1;
$reason =~ s/^\s*//mg;
+ $reason ||= 'No reason given by edos-debcheck';
if (exists $interesting_packages{$key}) {
$interesting_packages{$key} = $reason;
} else {
- print "TODO: edos reported a package we do not care about now" if $verbose;
+ #print "TODO: edos reported a package we do not care about now\n" if $verbose;
}
}
close EDOS;
for my $key (keys %interesting_packages) {
my $pkg = $db{$key};
my $change =
- (defined $interesting_packages{$key} && $pkg->{'State'} eq 'Needs-Build') ||
- (not defined $interesting_packages{$key} && $pkg->{'State'} eq 'BD-Uninstallable');
+ (defined $interesting_packages{$key} and $pkg->{'State'} eq 'Needs-Build') ||
+ (not defined $interesting_packages{$key} and $pkg->{'State'} eq 'BD-Uninstallable');
if ($change) {
if (defined $interesting_packages{$key}) {
change_state( \$pkg, 'BD-Uninstallable' );