Imported Upstream version 3.2.1

[debian/amanda] / perl / Amanda / Changer.pm

diff --git a/perl/Amanda/Changer.pm b/perl/Amanda/Changer.pm
index 4135986c9d3f240e10f7683d488e236bbcffd21b..9c6e88fd05941f8babc9382378df61311ee68b8a 100644 (file)
--- a/perl/Amanda/Changer.pm
+++ b/perl/Amanda/Changer.pm
@@ -859,6 +859,10 @@ sub _new_from_uri { # (note: this sub is patched by the installcheck)
     die "$pkgname->new did not return an Amanda::Changer object or an Amanda::Changer::Error"
        unless ($rv->isa("Amanda::Changer") or $rv->isa("Amanda::Changer::Error"));
 
+    if ($rv->isa("Amanda::Changer::Error")) {
+       return $rv;
+    }
+
     if ($rv->isa("Amanda::Changer")) {
        # add an instance variable or two
        $rv->{'fatal_error'} = undef;