X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=perl%2FAmanda%2FRecovery%2FScan.pm;h=5a9fa729dc8ce5c047c9cef3770e4bf8e0fb750c;hb=refs%2Ftags%2Fupstream%2F3.3.1;hp=c1d28fb4c6410446e5223c747e85e81a20b9cef2;hpb=cd0b924f27312d57bd42f6c4fae2b795139e2d0b;p=debian%2Famanda

diff --git a/perl/Amanda/Recovery/Scan.pm b/perl/Amanda/Recovery/Scan.pm
index c1d28fb..5a9fa72 100644
--- 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,