Imported Upstream version 3.2.1

[debian/amanda] / perl / Amanda / Changer / disk.pm

diff --git a/perl/Amanda/Changer/disk.pm b/perl/Amanda/Changer/disk.pm
index e633c451385e6c8715157bbe76011bbe6f76a351..a04fd0def83e370f2cf7d0791d7a3fe61f959f4f 100644 (file)
--- a/perl/Amanda/Changer/disk.pm
+++ b/perl/Amanda/Changer/disk.pm
@@ -189,11 +189,12 @@ sub inventory {
            if ($label) {
                $s->{'label'} = $self->_get_slot_label($slot);
                $s->{'f_type'} = "".$Amanda::Header::F_TAPESTART;
+               $s->{'device_status'} = "".$DEVICE_STATUS_SUCCESS;
            } else {
                $s->{'label'} = undef;
                $s->{'f_type'} = "".$Amanda::Header::F_EMPTY;
+               $s->{'device_status'} = "".$DEVICE_STATUS_VOLUME_UNLABELED;
            }
-           $s->{'device_status'} = "".$DEVICE_STATUS_SUCCESS;
            $s->{'current'} = 1 if $slot eq $current;
            push @inventory, $s;
        }