X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=installcheck%2FAmanda_Recovery_Clerk.pl;h=7841f9900905e50f5be13f25e4a802cc061f1827;hb=cd0b924f27312d57bd42f6c4fae2b795139e2d0b;hp=ec3727f894806d7935e04e09cc72b3eb7358f251;hpb=b116e9366c7b2ea2c2eb53b0a13df4090e176235;p=debian%2Famanda

diff --git a/installcheck/Amanda_Recovery_Clerk.pl b/installcheck/Amanda_Recovery_Clerk.pl
index ec3727f..7841f99 100644
--- 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);