Imported Upstream version 3.2.1

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

diff --git a/perl/Amanda/Changer/robot.pm b/perl/Amanda/Changer/robot.pm
index 38a10b7a777e53d3687c5f1db6c91ee9a4330993..924b2101b2ca6cf5fbcaa2de72ab1b15f6b10e7d 100644 (file)
--- a/perl/Amanda/Changer/robot.pm
+++ b/perl/Amanda/Changer/robot.pm
@@ -790,13 +790,13 @@ sub get_device { # (overridden by subclasses)
 
     my $device = Amanda::Device->new($device_name);
     if ($device->status != $DEVICE_STATUS_SUCCESS) {
-       return $self->make_error("failed", undef,
+       return Amanda::Changer->make_error("fatal", undef,
                reason => "unknown",
                message => "opening '$device_name': " . $device->error_or_status());
     }
 
     if (my $err = $self->{'config'}->configure_device($device)) {
-       return $self->make_error("failed", undef,
+       return Amanda::Changer->make_error("fatal", undef,
                reason => "unknown",
                message => $err);
     }