Imported Upstream version 3.2.1

[debian/amanda] / perl / Amanda / Report.pm

diff --git a/perl/Amanda/Report.pm b/perl/Amanda/Report.pm
index 48bd05a72eb6470ec90b4f032f9b2105dea53b51..94e79e75bc13cc7af8a7374c2da730889a0a89e6 100644 (file)
--- a/perl/Amanda/Report.pm
+++ b/perl/Amanda/Report.pm
@@ -1304,13 +1304,16 @@ sub check_missing_fail_strange
 
     foreach my $dle_entry (@dles) {
         my $alldumps = $self->get_dle_info(@$dle_entry, 'dumps');
+       my $driver = $self->get_dle_info(@$dle_entry, 'driver');
        my $planner = $self->get_dle_info(@$dle_entry, 'planner');
 
        if ($planner && $planner->{'status'} eq 'fail') {
            $self->{flags}{dump_failed} = 1;
        } elsif ($planner && $planner->{'status'} eq 'skipped') {
            # We don't want these to be counted as missing below
-       } elsif (!defined $alldumps->{$self->{'run_timestamp'}}) {
+       } elsif (!defined $alldumps->{$self->{'run_timestamp'}} and
+                !$driver and
+                !$planner) {
            $self->{flags}{results_missing} = 1;
            $self->{flags}{exit_status} |= STATUS_MISSING;
        } else {