X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=perl%2FAmanda%2FChanger%2Frobot.pm;h=924b2101b2ca6cf5fbcaa2de72ab1b15f6b10e7d;hb=011a59f5a54864108a16af570a6b287410597cc2;hp=38a10b7a777e53d3687c5f1db6c91ee9a4330993;hpb=b116e9366c7b2ea2c2eb53b0a13df4090e176235;p=debian%2Famanda

diff --git a/perl/Amanda/Changer/robot.pm b/perl/Amanda/Changer/robot.pm
index 38a10b7..924b210 100644
--- 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);
     }