projects
/
debian
/
amanda
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
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);
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);
$clerk = Amanda::Recovery::Clerk->new(scan => $scan, debug => 1,
feedback => $feedback);