my $load_sub = sub {
my ($err) = @_;
- die $err if $err;
+ if ($err) {
+ print STDERR $err, "\n";
+ exit 1;
+ }
$changer->load(
label => $label,
res_cb => sub {
(my $err, $reservation) = @_;
- die $err if $err;
+ if ($err) {
+ print STDERR $err, "\n";
+ exit 1;
+ }
Amanda::MainLoop::quit();
},
);
$device->error(), ".\n";
return undef;
}
+ if (!$device->configure(1)) {
+ print "Could not configure device $device_name: ",
+ $device->error(), ".\n";
+ return undef;
+ }
my $label_status = $device->read_label();
if ($label_status != $DEVICE_STATUS_SUCCESS) {