lintian doesn't like orphan packages with uploaders...

[debian/amanda] / installcheck / Amanda_Recovery_Clerk.pl

diff --git a/installcheck/Amanda_Recovery_Clerk.pl b/installcheck/Amanda_Recovery_Clerk.pl
index ec3727f894806d7935e04e09cc72b3eb7358f251..9c3bfb8d8f17f7802d163a76b3fc4855178bd082 100644 (file)
--- a/installcheck/Amanda_Recovery_Clerk.pl
+++ b/installcheck/Amanda_Recovery_Clerk.pl
@@ -1,8 +1,9 @@
-# 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
-# by the Free Software Foundation.
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version.
 #
 # This program is distributed in the hope that it will be useful, but
 # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
@@ -70,7 +71,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 +496,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);