Imported Upstream version 3.3.1

[debian/amanda] / perl / Amanda / Recovery / Scan.pm

diff --git a/perl/Amanda/Recovery/Scan.pm b/perl/Amanda/Recovery/Scan.pm
index c1d28fb4c6410446e5223c747e85e81a20b9cef2..5a9fa729dc8ce5c047c9cef3770e4bf8e0fb750c 100644 (file)
--- a/perl/Amanda/Recovery/Scan.pm
+++ b/perl/Amanda/Recovery/Scan.pm
@@ -163,6 +163,7 @@ sub new {
     #until we have a config for it.
     $scan_conf = Amanda::Recovery::Scan::Config->new();
     $chg = Amanda::Changer->new() if !defined $chg;
+    return $chg if $chg->isa("Amanda::Changer::Error");
 
     my $self = {
        initial_chg   => $chg,