Imported Upstream version 3.2.0

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

diff --git a/perl/Amanda/Recovery/Scan.pm b/perl/Amanda/Recovery/Scan.pm
index 8eb1327d083a08f2f09d2cbd3939d4e9c81dc919..e312d4758d57f2548076e04d56a25b08f7eb02a9 100644 (file)
--- a/perl/Amanda/Recovery/Scan.pm
+++ b/perl/Amanda/Recovery/Scan.pm
@@ -645,6 +645,9 @@ sub _find_volume_no_inventory {
 
        if ($err) {
            if ($err->failed && $err->notfound) {
+               if ($err->{'message'} eq "all slots have been loaded") {
+                   $err->{'message'} = "label '$label' not found";
+               }
                return $params{'res_cb'}->($err, undef);
            } elsif ($err->failed && $err->volinuse and defined $err->{'slot'}) {
                $last_slot = $err->{'slot'};