fix typo in rules file

[debian/amanda] / server-src / amcheckdump.pl

diff --git a/server-src/amcheckdump.pl b/server-src/amcheckdump.pl
index dfa6f0c7dc9ec267a2215e270ccda94595afc422..15c7a97d33a25ea436eb105b1a66a469cb7e30a8 100644 (file)
--- a/server-src/amcheckdump.pl
+++ b/server-src/amcheckdump.pl
@@ -102,13 +102,19 @@ sub find_next_device {
 
     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();
            },
        );
@@ -152,6 +158,11 @@ sub try_open_device {
              $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) {