Imported Upstream version 3.3.0

[debian/amanda] / installcheck / Amanda_Recovery_Clerk.pl

diff --git a/installcheck/Amanda_Recovery_Clerk.pl b/installcheck/Amanda_Recovery_Clerk.pl
index ec3727f894806d7935e04e09cc72b3eb7358f251..7841f9900905e50f5be13f25e4a802cc061f1827 100644 (file)
--- a/installcheck/Amanda_Recovery_Clerk.pl
+++ b/installcheck/Amanda_Recovery_Clerk.pl
@@ -70,7 +70,8 @@ sub setup_changer {
     my ($slot, $xfer_info, $partnum);
 
     my $steps = define_steps
-       cb_ref => \$finished_cb;
+       cb_ref => \$finished_cb,
+       finalize => sub { $chg->quit() };
 
     step setup => sub {
        $chg = Amanda::Changer->new($chg_name);
@@ -494,6 +495,8 @@ $feedback = main::Feedback->new(
     },
 );
 
+$chg = Amanda::Changer->new("chg-disk:$taperoot");
+$scan = Amanda::Recovery::Scan->new(chg => $chg);
 $clerk = Amanda::Recovery::Clerk->new(scan => $scan, debug => 1,
                                      feedback => $feedback);