Imported Upstream version 3.3.2
[debian/amanda] / installcheck / Amanda_Recovery_Clerk.pl
index ec3727f894806d7935e04e09cc72b3eb7358f251..5a14d1b159e5e60d827a1b5dc651781187e6dad5 100644 (file)
@@ -1,4 +1,4 @@
-# Copyright (c) 2010 Zmanda Inc.  All Rights Reserved.
+# Copyright (c) 2010-2012 Zmanda Inc.  All Rights Reserved.
 #
 # This program is free software; you can redistribute it and/or modify it
 # under the terms of the GNU General Public License version 2 as published
@@ -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);